Textdatei auslesen

[Trelock]

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

[Nobody]

Private Sub Command1_Click()

Dim a, b As Integer

Dim c, d As String

d = "Dim vari As Integer"

c = UCase(d)

a = UCase(InStr(1, c, "DIM"))

b = UCase(InStr(1, c, "AS"))

d = Mid(d, a + 4, b - a - 5)

MsgBox d

End Sub

Die Korrekturen +4 / -5 sind für Dim und AS