hi, ich will aus einer textdatei Variabeln auszulesen, die in jeder zeile stehen:
jede zeile fängt mit 'Dim' vor der zu suchenden variabeln an, nach dem variabel kommt nach einem leerzeichen 'As' für die Zuweisung der Variabel
also etwa so sieht das aus:
Dim Variabel As
ich bin so vorgegangen: Nach dem ich die Variabeln für den Code deklariert habe und Pfade zum Öffnen der Datei und zum Schreiben einer Datei bestimmt habe fängt meine schleife an:
While Not EOF(1)
Line Input #1, strZeile
If InStr(strZeile, "Dim") Then 'Suche nach Dim
strName = Mid(strZeile, 5 - InStr(Text$, "As")) 'ab 5.zeichen ausschneiden
'bis in Text As beginnt
txtdisplay = txtdisplay & strName & " " 'Ausgabe
End If
Wend
das programm schneidet nach dem leerzeichen (nach dim) zwar den gesuchten string raus aber macht kein stopp vor dem As
wie musste ich sonst den variabel in der zeile rauschneiden??
thx