Sub testingRegExp ()
Ćmić strBody Sznurek
Ćmić intFile Jako Integer
intFile = FreeFile
Otwierać "C \ strbody.txt" Dla Wkład #intFile
strBody = Input$ (LOF (intFile), #intFile) 'LOF wracać Długość Kartoteka
Zamknięty #intFile
Ciemnawy RegX Gdy Przedmiot, Mata Jako Przedmiot, Kontuar Długo
Ustalony RegX = CreateObject ("VBScript.RegExp")
Z RegX
. Globalny = Prawdziwy
.MultiLine = Prawdziwy
.IgnoreCase = Prawdziwy
. Wzór = "DEFINIOWAĆ"
Ustalony Mata =. Wykonywać (strBody)
Kończyć Z
Dla Kontuar = (0) Mats.Count - (1)
Debug.Print Matować (Kontuar)
Następnie
Ustalony Mata = Nic
Ustalony RegX = Nic
Końcówka Okręt podwodny
|