Sub testingRegExp ()
Schwaches strBody als Schnur
Schwaches intFile als ganze Zahl
intFile = FreeFile
„C \ strbody.txt“ für Eingang öffnen, wie #intFile
strBody = bringt Input$ (LOF (intFile), #intFile) 'LOF Länge der Akte zurück
Nahes #intFile
Schwaches RegX als Gegenstand, Matten als Gegenstand, Kostenzähler als lang
RegX = CreateObject („VBScript.RegExp“) einstellen
Mit RegX
. Global = ausrichten
.MultiLine = richten aus
.IgnoreCase = richten aus
. Muster = „DEFINIERT WERDEN“
Matten einstellen =. Durchführen (strBody)
Mit beenden
Für Kostenzähler = 0 zu Mats.Count - 1
Debug.Print Matten (Gegen)
Zunächst
Matten einstellen = nichts
RegX einstellen = nichts
Unterseeboot beenden
|