text laden aus einer bestimmten zeile

[antonioli]

Hallo,

zu meinem Problem und zwar wie kann ich aus einer text Datei bestimmte Zeilen in eine Listbox laden.

Das Problem nochmal im Bild:
clickme

Dabei sollte alles zwischen "transfer1" und "transfer1ende" geladen werden. Dabei sollte beachtet werden das man vorher nicht weiß wie viele Zeilen zwischen "transfer1" und "transfer1ende" stehen.

Für jeden tipp bin ich dankbar

 

[CarnivoreCI]

wenn du nicht weißt wo was steht, musst du den ganzen Text "parsen".

Also du musst halt komplett durchgehen und z.b. mit indexOf arbeiten.

Schoenen Abend,
Roman

 

[Philipp9494]

also antonioli, weißt du in welcher Zeile der Text steht. Wenn ja, habe ich hier eine kleine Funktion für dich:

Public Function lesen(ByVal Pfad, Optional ByVal Zeile) As String

Dim fFile As Integer, fInhalt As String, vZeilen() As String, DateiName As String

On Error GoTo er
fFile = FreeFile
DateiName = Pfad 'hier dein Name inkl. Pfad

fInhalt = Space(FileLen(DateiName)) 'Variable in der richtigen Länge vorfüllen

Open DateiName For Binary As fFile
Get fFile, , fInhalt 'komplette Datei einlesen
Close fFile


vZeilen = Split(fInhalt, vbNewLine) 'den Text in Zeilen teilen
lesen = vZeilen(Zeile - 1)

End Function

Hoffe dir geholfen zu haben ;-)

mfg

Philipp9494