JAK: Korzystanie z wyra�e� regularnych w programie Microsoft Visual Basic 6.0

Numer ID artyku�u: 818802 - Zobacz jakich produkt�w dotycz� zawarte w tym artykule porady.

W tym artykule jest opisany krok po kroku spos�b tworzenia wyra�e� regularnych i wykorzystywania ich w celu ustalenia, czy ci�gi pasuj� do okre�lonych wzorc�w. Za pomoc� wyra�e� regularnych mo�na przeprowadzi� prost� analiz� ci�g�w i dopasowa� je do okre�lonego wzorca. Przy u�yciu obiekt�w dost�pnych w bibliotece wyra�e� regularnych Microsoft VBScript Regular Expressions�5.5 mo�na por�wna� ci�g z okre�lonym wzorcem, zast�pi� wzorzec ci�gu innym ci�giem lub pobra� tylko niekt�re cz�ci sformatowanego ci�gu. W tym artykule om�wiono spos�b konstruowania wzorca umo�liwiaj�cego analiz� ci�gu zawieraj�cego wiele wyst�pie� tego samego wzorca.

Wymagania

Poni�ej przedstawiono list� wymaganych element�w, takich jak sprz�t, oprogramowanie, infrastruktura sieci i dodatki Service Pack:

Program Microsoft Visual Basic 6.0

W artykule za�o�ono, �e czytelnik zna nast�puj�ce zagadnienia:

Program Visual Basic 6.0
Sk�adnia wyra�enia regularnego

Dopasowywanie wzorca przy u�yciu wyra�e� regularnych

W programie Visual Basic�6.0 obiekt RegExp dopasowuje wzorzec za pomoc� wyra�e� regularnych. Poni�ej podano w�a�ciwo�ci obiektu RegExp. Stanowi� one wzorzec umo�liwiaj�cy por�wnywanie ci�g�w przekazywanych do wyst�pienia obiektu RegExp:

Pattern: Ci�g definiuj�cy wyra�enie regularne.
IgnoreCase: W�a�ciwo�� logiczna okre�laj�ca, czy nale�y przetestowa� wyra�enie regularne przez jego zestawienie ze wszystkimi mo�liwymi kombinacjami w ci�gu.
Global: Ustawia warto�� logiczn� lub zwraca warto�� logiczn� wskazuj�c�, czy wzorzec musi by� zgodny ze wszystkimi wyst�pieniami w ca�ym przeszukiwanym ci�gu, czy tylko z pierwszym wyst�pieniem.
RegExp: Udost�pnia nast�puj�ce metody umo�liwiaj�ce okre�lenie, czy ci�g jest zgodny z konkretnym wzorcem wyra�enia regularnego:
- Test: Zwraca warto�� logiczn� wskazuj�c�, czy mo�na dopasowa� wyra�enie regularne do ci�gu.
- Execute: Zwraca obiekt MatchCollection zawieraj�cy obiekt Match dla ka�dej zako�czonej pomy�lnie operacji dopasowania.

Aby dopasowa� ci�g do wyra�enia regularnego, wykonaj nast�puj�ce kroki:

Ustaw wyra�enie regularne przy u�yciu metody Pattern obiektu RegExp.
Uzyskaj ci�g, aby zbada� go za pomoc� wzorca.
Ustaw w�a�ciwo�� IgnoreCase obiektu RegExp na warto�� True.
Przeka� ci�g uzyskany w kroku�2 jako argument do metody Execute obiektu RegExp.
Przypisz zwr�con� warto�� metody Execute do obiektu MatchCollection.

W obiekcie MatchCollection znajduj� si� informacje o dopasowanych ci�gach.

Uwaga: Aby ustali�, czy ci�g pasuje do okre�lonego wyra�enia regularnego, mo�na r�wnie� u�y� metody Test.

Przyk�ad krok po kroku

Uruchom program Microsoft Visual Basic�6.0.
W menu File kliknij polecenie New Project.
W oknie dialogowym New Project kliknij pozycj� Standard Exe, a nast�pnie kliknij przycisk OK.

Domy�lnie zostanie utworzony formularz Form1.
W menu Project kliknij polecenie References.
Kliknij dwukrotnie pozycj� Microsoft VBScript Regular Expressions�5.5, a nast�pnie kliknij przycisk OK.
Kliknij dwukrotnie przycisk CommandButton w przyborniku.

Domy�lnie do formularza zostanie dodany przycisk Command1.
Kliknij dwukrotnie przycisk Command1, aby otworzy� okno kodu.
Wklej nast�puj�cy kod w procedurze obs�ugi zdarze� Command1_Click:
MsgBox(TestRegExp("is.", "IS1 is2 IS3 is4"))
Uwaga: W tym przyk�adzie wzorzec is. jest por�wnywany z ci�giem �IS1 is2 IS3 is4�. Mo�na u�y� kropki (.) jako symbolu wieloznacznego, aby dopasowa� jeden dodatkowy znak i wy�wietli� go we wzorcu wyszukiwania. Po dodaniu dw�ch kropek do wzorca wyszukiwania zostan� wy�wietlone dwa dodatkowe znaki. Je�li nie zostan� dodane �adne kropki, wy�wietlony zostanie tylko wzorzec wyszukiwania.

Dodaj nast�puj�c� funkcj� za procedur� obs�ugi zdarze� Command1_click:

Function TestRegExp(myPattern As String, myString As String)
   ' Utw�rz obiekty.
   Dim objRegExp As RegExp
   Dim objMatch As Match
   Dim colMatches   As MatchCollection
   Dim RetStr As String
   
   ' Utw�rz obiekt wyra�enia regularnego.
   Set objRegExp = New RegExp

   'Ustaw wzorzec przy u�yciu w�a�ciwo�ci Pattern.
   objRegExp.Pattern = myPattern

   ' Ustaw ignorowanie wielko�ci liter.
   objRegExp.IgnoreCase = True

   'Ustaw w�a�ciwo�� Global.
   objRegExp.Global = True

   'Sprawd�, czy ci�g mo�na por�wna�.
   If (objRegExp.Test(myString) = True) Then

   'Pobierz dopasowania.
    Set colMatches = objRegExp.Execute(myString)   ' Rozpocznij wyszukiwanie.

    For Each objMatch In colMatches   ' Powt�rz kolekcj� dopasowa�.
      RetStr = RetStr & "Znaleziono dopasowanie na pozycji "
      RetStr = RetStr & objMatch.FirstIndex & ". Warto�� dopasowania to '"
      RetStr = RetStr & objMatch.Value & "'." & vbCrLf
    Next
   Else
    RetStr = "Dopasowanie ci�gu nie powiod�o si�"
   End If
   TestRegExp = RetStr
End Function

W menu Run kliknij polecenie Start, aby uruchomi� aplikacj�.
Kliknij przycisk Command1.

Zostanie wy�wietlone pole komunikatu, w kt�rym zostan� zwr�cone wszystkie wyst�pienia wyra�enia is w ci�gu IS1 is2 IS3 is4.