VBA String-In-String-Suche mit Wildcard

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Test() Dim strCheck As String, strMatch As String, strFound As String Dim lngPos As Long strCheck = "Lupus bekommt das nicht hin!" strMatch = "u*n" lngPos = 1 lngPos = InStr(lngPos, strCheck, strCheck Like "*" & strMatch & "*") 'Das Ergebnis von lngPos ist 0. 'StrFound = ????? welchen Code-Schnipsel gibt es hierfür? End Sub

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

Beliebteste Forumthreads (12 Monate)

VBA String-In-String-Suche mit Wildcard

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

155 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

VBA String-In-String-Suche mit Wildcard

12 Beiträge zum Forumthread Beiträge zu diesem Forumthread

155 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread