Hi!
Wie kann ich bestimmte Zeilen von .txt Dateien in eine Liste einlesen?
cu!
Hi!
Wie kann ich bestimmte Zeilen von .txt Dateien in eine Liste
einlesen?
cu!
Versuchs mal so (Kann sein das das du manches korrigieren musst, ausserdem notwendig ist die Form „frmMain“ und das darin enthaltene ListItem „Liste“)
Function ReadTxtFile(File AS String) AS Boolean
On error resume next
open File For Input As 1
if err „“ then
ReadTxtFile = False
Close #1
Exit Function
end if
do until eof(1) = true
i=i+1
line input #1, lntmp
'Ich nehme einfach mal an, die zugelesene Zeile fängt immer mit „->“ an
if left(lntmp,2) = „->“ then frmMain.Liste.AddItem right(lntmp,len(lntmp)-2)
if err „“ then
ReadTxtFile = False ’ Wenn Variable = False dann Fehler aufgetreten
Close #1
Exit Function
end if
loop
close #1
ReadTxtFile = True 'Wenn Variable = Wahr dann Null Fehler aufgetreten
end function
dim Temp as string
dim Filename as string
dim S() as string
open filename for input as #1
temp = input(lof(1),#1)
close
s = split(temp,vbcrlf)
for I = lbound(s) to ubound(s)
if left(s(I),1) „’“ then
list1.additem s(I)
else
'eintrag wird nicht hinzugefügt
endif
doevents
next
HTH
sebastian Kraus