auslesen einzerner zeilen
15.09.2003 16:30:04
Lukas
ich habe folgenden Code um eine TXT Datei auszulesen.
Public
Function LoadTextFile(ByVal DatName As String) As String
Dim F As Long: F = FreeFile
Open DatName For Input As F
LoadTextFile = Input$(LOF(F), F)
Close F
End Function
Damit lese ich aber den ganzen Inhalt aus, wie kann ich das machen
dass er mir nur je eine zeile auliest und dies dann einer extra variable
zuteilt.
for i = 0 bis ende von der txt datei
mVar(i) = Eine Zeile
next i
Wäre euch echt dankbar
gruß lukas
Anzeige