VBA String-In-String-Suche mit Wildcard

Lupus · 2004-02-01T10:29:16+00:00

Hallo Excel-User, ich bin auf der Suche nach einem Code der einen String (strMatch), welcher Wildcards enthält, in einem anderen String(strCheck) sucht und der den gefundenen String zurückgibt. Mit folgendem Code finde ich die erste Position von strMatch in strCheck. lngPos = Application.WorksheetFunction.SearchB(strMatch, strCheck, lngLast) 1. Wie finde ich jetzt heraus, um welchen String es sich handelt? 2. WorksheetFunction.SearchB kann keine Strings größer (~) 32.500 Characters bearbeiten. Wie müsste die Gleichung für lngPos aussehen, wenn der String größer 32.500 Characters ist, ohne vorher den String zu stückeln und mit einer Schleife zu durchlaufen müssen? Gruß Lupus

Hallo Nepumuk,
danke für den Ansatz; also wie
lngPos = InStr(lngPos, strCheck, Left(strMatch, 1))
und wie geht's weiter???
Mit der mid-Funktion kann ich zwar einen String zurückgeben, da ich aber nicht weiß wie lang strFound ist, komme ich damit auch nicht weiter.
strFound = Mid(strCheck, lngPos, [Length])
Ich habe mich auch schon in anderen VB(A)-Foren nach Lösungen umgesehen (habe aber kein cross posting durchgeführt) bin dort aber auch nicht auf ähnliche Fragestellungen / Lösungsansätze getroffen.
Auch eine Alertnativ-Lösung für SearchB konnte ich nicht finden, geschweige denn eine Erklärung für SearchB in der VBA-Hilfe.
Irgendwie wurmt mich das (damit meine ich nicht Dich), so schwer kann das doch gar nicht sein hierfür eine einfache Lösung zu finden.
Wäre Dir sehr dankbar, wenn Du mir irgendwie weiterhelfen könntest.
Gruß Lupus

Hallo Nepumuk,
mein Szenario sieht leider genau so aus, wie ich es beschrieben habe.
In einem großen String (strCheck) suche alle möglichen Strings, die einem Vergleichsstring (strMatch) entsprechen. Die gefundenen Vergleichsstrings und deren Anfangs und Endpositionen schreibe ich ein Array. Dies klappt alles prima, solange nicht mit Wildcards wie "*" und "?" gearbeitet wird.
Folgenden Ansatz habe ich jetzt formuliert. Leider gibt auch dieser nicht den exakten strFound zurück.


Sub Test()
Dim strCheck As String, strMatch As String
Dim strFound As String, strFirstChr As String
Dim lngPos As Long, i As Integer
strCheck = "Lupus bekommt das nicht hin! Sauerei!"
strMatch = "u*e"
strFirstChr = Left(strMatch, 1)
i = 1
lngPos = Application.WorksheetFunction.SearchB(strMatch, strCheck, 1)
For lngPos = 1 To Len(strCheck)
lngPos = InStr(lngPos, strCheck, strFirstChr)
If lngPos = 0 Then Exit For
strFound = Mid(strCheck, lngPos, LenFoundString(strCheck, strMatch))
Cells(i, 1).Value = strFound
i = i + 1
Next
End Sub

Public


Function LenFoundString(strCheck, strMatch) As Long
Dim lngLen As Long
lngLen = Len(strCheck)
While Left(strCheck, lngLen) Like strMatch
lngLen = lngLen - 1
Wend
LenFoundString = lngLen + 1
End Function

Der Code müßte noch in bezug auf strFirstChr = Left(strMatch, "Anzahlzeichen vor dem *")verbessert werden.
Aber auch das wäre keine optimale Lösung, denn der Suchstring könnte auch "u*u*e" lauten.
Ist schon eine verzwickte Sache.
Gruß Lupus

VBA String-In-String-Suche mit Wildcard

Forumthread: VBA String-In-String-Suche mit Wildcard

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Infobox / Tutorial