Mit ReadLine Methode (OpenasTextStream) gezielt Textzeilen auslesen

[Drakonia]

Hallo,

schaut euch bitte kurz meinen Code an:

Code:

Sub TextFile_mit_Zeilenumbruch_Schreiben_und auslesen()
Dim s
Dim ar: ar = Application.Transpose(Range("B1:B856"))
Dim FSO As FileSystemObject
Set FSO = New FileSystemObject
Set b = FSO.CreateTextFile("C:\Verzeichnis\Nextfile.txt", True)
b.Write (Join(ar, Chr(13) & Chr(10)))
b.Close

'Wie kann ich eine bestimmte Zeile auslesen?
s = FSO.GetFile("C:\Verzeichnis\Nextfile.txt").OpenAsTextStream(ForReading, TristateUseDefault).ReadLine
End Sub

Die Frage ist für mich wie kann ich die ReadLine - Methode so einstellen, dass ich eine bestimmte Zeile aus meiner Textdatei
auslesen kann.  So wie der Code derzeit dort steht erhält die Variable s lediglich die erste Zeile der konstruierten Textdatei.

[00202]

Hallo, :19:

das geht so: :21:

Bestimmte Zeile aus TXT-Datei lesen...

[schauan]

Hallöchen,

nur mal noch ein kleiner Hinweis. Du schreibst Dein Array ja "gejoint" in die Datei. Wenn Du die Datei als Binärfile einliest, kannst DU sie auch in ein Array splitten und dann das nte Element / Zeile rausholen.

[snb]

Wie z.B.

Code:

Sub M_snb()
  CreateObject("scripting.filesystemobject").CreateTextFile("G:\OF\Nextfile.txt").write Join([transpose(B1:B856)], vbLf)

  Open "G:\OF\Nextfile.txt" For Input As #1
      c00 = Split(Input(LOF(1), 1), vbLf)(200)
  Close
 
  MsgBox c00
End Sub

ergibt line 200.