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 Label As Boolean
Dim Cecheckbox As Boolean
Dim Frame As Boolean
Dim Form As Boolean
Dim Commandbutton As Boolean
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
Label = True
End If
If Label = 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
Label = False 'Beendet Schleife wenn kein Label gefunden wird
End If
End If
Wend 'Springt zum Schleifenanfang
Close #1 ' Datei schließen
End Sub