Textdatei einlesen
26.05.2008 10:51:00
Jakobi
habe seinerzeit aus dem Forum unter anderem folgende Funktion bekommen:
Public Function TextFileReadAll(ByVal FileName As String) As String
Dim F As Integer
Dim sInhalt As String
If Dir$(FileName, vbNormal) "" Then
F = FreeFile
Open FileName For Binary As #F
sInhalt = Space$(LOF(F))
Get #F, , sInhalt
Close #F
End If
TextFileReadAll = sInhalt
End Function
Ich möchte die Varible "sInhalt" nicht mit dem gesamten Inhalt der gewählten Datei füllen, sondern nur mit
z. B. den Zeilen von 3 bis 100.
Kann mir jemand helfen?
Vielen Dank im voraus.
mfG Jakobi
Anzeige