Suchen mit regulären ausdrücken klappt nicht ganz

Question

Hallo,

lese aus Excel per Automation Cell-Formeln aus, z.B. D3+L3

Um die Feldnamen (Überschriften) der Formel zu holen suche ich per Reguläre Ausdrücke nach 1 oder 2 Großbuchstaben. Leider findet Regexp nur den 1. Eintrag, oMatch.Count ist 1. Wie schaff ich es dass er beide findet?

Gruß Andreas

    Dim oRegExp As Object, oMatch As Object
    Set oRegExp = CreateObject("vbscript.regexp")
    oRegExp.Global = False
    oRegExp.IgnoreCase = True
    oRegExp.MultiLine = False
    oRegExp.pattern = "([A-Z]{1,2})+"

    Set oMatch = oRegExp.Execute("D3+L3")

    Set oRegExp = Nothing
    Set oMatch = Nothing

---

http://www.AccessBlog.de

Answer 1

Hallo Andreas Vogt,

Müsste das nicht oRegExp.Global = True sein, damit oMatch.Count 2 liefert: „if TRUE, find all matches, if FALSE find only the first match“ ?

Grüße,

Robert

---

Robert Breitenhofer, MICROSOFT 
Bitte haben Sie Verständnis dafür, dass im Rahmen dieses Forums, welches auf dem Community-Prinzip„Entwickler helfen Entwickler“ beruht, kein technischer Support geleistet werden kann oder sonst welche garantierten Maßnahmen seitens Microsoft zugesichert werden können.

Answer 2

Hallo Robert,

danke für die Antwort, wusste nicht mehr genau wie die Option Global sich auswirkt.

Jetzt funktionierts wie gewünscht.

Gruß Andreas

---

http://www.AccessBlog.de