ich hab folgendes vor:
Ich möchte eine ASCII Datei einlesen (ca. 20000 Zeilen) und darin nach bestimmten Zeichenfolgen suchen. Im Grunde sind es immer die selben Zeichen, aber eben sehr viele die theoretisch vorkommen können. Mein Ansatz war es mit der like Funktion su suchen. Ich bekomme aber auch seltsamerweise Ergebnisse die nicht ganz passen. Mein Ansatz war folgender:
(Das File habe ich vorher in das Array geladen)
Function FindString(strCheck, strMatch) As String
Dim i As Long: i = Len(strCheck)
' On Error Resume Next
Do While Left(strCheck, i) Like strMatch
LenFoundString = Left(strCheck, i)
' Debug.Print i, Left(strCheck, i), strCheck
i = i - 1
Exit Do
Loop
End Function
sub StartSuche
dim i as long
For i = 1 To UBound(arr)
debug.print FindString(arr(i), "*m[0-999]*")
Next i
Die 2. Suche wäre dann nach "*m[0-999]=[0-999]*"
Was ich am Ende haben möchte ist, dass ich alle Zeichenfolgen die so aussehen, also M0-M999 und M0-999=0-999 habe
(M1, M2, M3, M4, M5 ect)
(M1=1, M1=33, M55=22 ect)
Mein Ergebnis ist aktuell, dass er mir dann die gesamte Zeile ausgibt, da ich die Länge der Suchfunktion nicht weiß (m0 oder M123) und in machen Zeilen der String auch mehrfach vorhanden sein Kann:
"Franz jagt M1 den ganzen M123 Tag durch den Wald m234"