'oMatch.SubMatches'

[tom]

Hallo ,

ich bekomme für folgende Function diese Fehlermeldung:

Das Objekt unterstützt diese Eigenschaft oder Methode nicht.: 'oMatch.SubMatches'
Laufzeitfehler in Microsoft VBScript- Fehler '800a01b6'

Was kann ich tun, danke für die Mühe

------------------------------------------------
Function getID(strPat, strStrng)
 Dim regEx          'Variable für regulärer Ausdruck
 Dim oMatches, oMatch     'Collection für Treffer
 Dim Result          'Rückgabewert

Set regEx = New RegExp        'Erzeugt einen regulären Ausdruck
 regEx.Pattern = strPat         'Setzt das Pattern
 regEx.IgnoreCase = True       'Ignoriert Gross/Kleinschreibung
 regEx.Global = True         'reg. Ausdruck trifft nur die erste Ausprägung
 Set oMatches = regEx.Execute(strStrng)
 For Each oMatch in oMatches        'Iterate Matches collection.
   Result = oMatch.SubMatches(0)     'erster Sub Treffer des Patterns
    getID = Result
    Exit Function
  Next
     'Nichts gefunden
   Result = -1
   getID = Result
End Function

[Frank]

Hi,

evt. hängt das an der Version deines VBS.

mach doch mal ein version.vbs mit dem Inhalt:

wscript.echo wscript.version

Und lass es laufen, evt. bekommst du da 5.0 heraus, was schon etwas älter ist, du könntest auf 5.5/5.6 updaten, dann solltest du das Problem nicht mehr haben. Ist das nicht für dich möglich, könnte dir folgender Umweg bleiben:

set subMatches = oMatch.SubMatches
for each subMatch in SubMatches
  result = subMatch.value
next

(Keine Garantie!)

Frank