instr und like kombinieren

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub a() Dim a$, b$, c$, d$, arr, i& Dim Rex As Object Set Rex = CreateObject("VBScript.RegExp") Rex.Pattern = "\dg" Rex.Global = True a = "Das ist ein gString" b = "Auch 1g String" c = "Der 25g String" d = "Das ist Keiner" arr = Array(a, b, c, d) For i = LBound(arr) To UBound(arr) MsgBox "Teste den String [" & arr(i) & "] auf [#g]..." If Rex.test(arr(i)) Then MsgBox "Der String [" & arr(i) & "] enthält [#g]" Else: MsgBox "Der String [" & arr(i) & "] enthält KEIN [#g]" End If Next i End Sub

…was Florian bezweckt. Das Problem ist mir nämlich durchaus vertraut und RegExp kann in diesem einfachen Fall auch nicht mehr liefern als Like, aber da Instr versucht wurde, ist anzunehmen, dass die Position dieses g oder gar einer ganzen Zahl+g gesucht ist.
Tja, Florian,
das geht natürlich nicht und es gibt in VBA auch keine Fertig-Methode für so etwas. Das darfst du also selbst pgmmieren → mit Like feststellen, ob #g vorhanden und dann mit Instr jedes g oder jede Ziffer suchen und die Vorgänger bzw Nachfolger kontrollieren. So etwas habe ich in 2 UDFs gemacht, mit denen man das dann sogar in einer ZellFml feststellen könnte, bspw so:
=VLike(textbezug;"*#g*";-1) → Position von # bzw 0
=VLike(textbezug;"*#g*";1) → Position von g bzw 0
=VLike(textbezug;"*#g*") → WAHR oder FALSCH
Man könnte aber auch mit MaskOn kombinieren, zB so: =WENN(VLike(textbezug;"*#g*");MaskOn(textbezug;"num";"g"))
MaskOn: https://www.herber.de/cgi-bin/callthread.pl?index=1344962#1345181
VLike: https://www.herber.de/cgi-bin/callthread.pl?index=1247144#1247699
Letztere enthält auch Möglichkeiten, die Position zu bestimmen, falls du das selbst schreiben willst (Zeilen mit Verwendung der unpublizierten UDF VPairs wurden hier absichtl auskommentiert!).
Feedback nicht unerwünscht! Gruß, Luc :-?
Besser informiert mit …

Sub a() Const SEP$ = "," Dim a$, b$, c$, d$, e$, arr, brr, i&, j&, s$ a = "Das ist ein gString" b = "Auch 1g String" c = "Der 25g String" d = "Das ist Keiner" e = "Da 33g größer als 22g, zwei!" arr = Array(a, b, c, d, e) ReDim brr(0 To UBound(arr), 1 To 2) For i = LBound(arr) To UBound(arr) For j = 2 To Len(arr(i)) If Mid(arr(i), j, 1) Like "g" Then If IsNumeric(Mid(arr(i), j - 1, 1)) Then s = s & j & SEP End If End If Next j brr(i, 1) = arr(i): brr(i, 2) = s s = vbNullString Next i For i = LBound(brr) To UBound(brr) Debug.Print "Str: " & brr(i, 1), "Pos: " & brr(i, 2) Next i Erase arr: Erase brr End Sub

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

64 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

instr und like kombinieren

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

64 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread