Public Sub Main()
MsgBox "Start..." 'Programmstart
Call readForm("C:\Projekte\ParseForm\SearchDlg.frm") 'Pfad aus welchem er lesen soll
MsgBox "Fertig." 'Programmende
End Sub
Private Sub readForm(filepath As String)
Dim DateiNr As Integer
Dim ZeilenInhalt As String
Dim IstEinLabel As Boolean
DateiNr = FreeFile
Open "C:\Projekte\ParseForm\SearchDlg.frm" For Input As #1 'Dateiöffnen
While Not EOF(1) 'Schleife bis Dateiende
Line Input #1, ZeilenInhalt 'Zeile in Variable einlesen
If InStr(1, ZeilenInhalt, ".Label") > 0 Then 'Suchst Zeile mit Inhalt Label
IstEinLabel = True
End If
If IstEinLabel = True Then 'Wenn Label,vergleichen ob in den nächsten Zeilen eine Caption
If InStr(1, ZeilenInhalt, "Caption") > 0 Then 'Wenn Zeileninhalt Caption ist zur MSG-Box
MsgBox (Mid(ZeilenInhalt, (InStr(ZeilenInhalt, Chr(34)) + 1), _
Len(ZeilenInhalt) - InStr(ZeilenInhalt, Chr(34)) - 1)) 'Gibt an wie die Caption ausgegeben werden soll
IstEinLabel = False 'Beendet Schleife wenn kein Label gefunden wird
End If
End If
Wend 'Springt zum Schleifenanfang
Close #1 ' Datei schließen
End Sub