Cómo utilizar expresiones regulares en Microsoft Visual Basic 6.0

Nº de error: 7795 (Mantenimiento de contenido)
Para una versión de Microsoft Visual Basic .NET de este artículo, consulte
301264 .
Para una versión de Microsoft Visual C# .NET de este artículo, consulte
308252 .

EN ESTA TAREA

Resumen

En este artículo paso a paso se describe cómo crear expresiones regulares y cómo utilizar expresiones regulares para determinar si las cadenas coinciden con los patrones específicos. Las expresiones regulares permiten simple de analizar y comparar cadenas con un patrón específico. Si utiliza los objetos que están disponibles en la biblioteca Microsoft VBScript 5.5 de expresiones regulares, puede comparar una cadena con un patrón determinado, sustituir una patrón de cadena con otra cadena o recuperar sólo fragmentos de una cadena con formato. Este artículo describe cómo crear un modelo para analizar una cadena que contiene varias instancias del mismo modelo.

Volver al principio

Requisitos


La lista siguiente describe el hardware recomendado, software, infraestructura de red y los service packs que necesita:
  • Microsoft Visual Basic 6.0
En este artículo se supone que está familiarizado con los temas siguientes:
  • Visual Basic 6.0
  • Sintaxis de expresiones regulares
Volver al principio

Utilizar expresiones regulares para coincidir con un patrón



En Visual Basic 6.0, el objeto RegExp utiliza expresiones regulares para coincidir con un patrón. RegExp proporciona las siguientes propiedades. Estas propiedades establecen el patrón para comparar las cadenas que se pasan a la instancia RegExp :
  • Pattern:: una cadena que define la expresión regular.
  • IgnoreCase: una propiedad booleana que indica si debe probar la expresión regular con todas las coincidencias posibles en una cadena.
  • Global: establece un valor booleano o devuelve un valor booleano que indica si un patrón debe coincidir con todas las apariciones de una cadena de búsqueda completa, o si un patrón debe coincidir con sólo la primera aparición.
RegExp proporciona los siguientes métodos para determinar si una cadena coincide con un patrón determinado de una expresión regular:
  • Test: devuelve un valor booleano que indica si la expresión regular puede coincidir con éxito contra la cadena.
  • Execute: devuelve un objeto MatchCollection que contiene un objeto Match para cada coincidencia encontrada.

Para hacer coincidir una cadena en una expresión regular, siga estos pasos:
  1. Establecer la expresión regular mediante la
    Método de patrón del objeto RegExp.
  2. Obtener la cadena para examinar con el modelo.
  3. Establezca la propiedad IgnoreCase de la
    Objeto RegExp en True.
  4. Pasar la cadena al que obtuvo en el paso 2 como argumento al método Execute del objeto RegExp.
  5. Asigne el valor devuelto del método Executeal objeto MatchCollection .

    La
    Objeto MatchCollection contiene información sobre las cadenas coincidentes.

Nota: También puede utilizar el método de prueba para determinar si la cadena coincide con la expresión regular específica.

Volver al principio

Ejemplo paso a paso

  1. Inicie Microsoft Visual Basic 6.0.
  2. En el menú archivo , haga clic en
    Nuevo proyecto.
  3. Haga clic en Exe estándar en el cuadro de diálogo Nuevo proyecto y, a continuación, haga clic en Aceptar.

    De forma predeterminada, se crea Form1.
  4. En el menú proyecto , haga clic en
    Referencias.
  5. Haga doble clic en Microsoft VBScript 5.5 de expresiones regularesy, a continuación, haga clic en Aceptar.
  6. En el cuadro de herramientas, haga doble clic en el CommandButton.

    De forma predeterminada Command1 se agrega al formulario.
  7. Haga doble clic en Command1 para abrir la ventana de código.
  8. Pegue el código siguiente en el
    Controlador de eventos Command1_Click :
    MsgBox(TestRegExp("is.", "IS1 is2 IS3 is4"))
    Nota: En este ejemplo, el modelo is. se compara con la cadena "IS1 is2 IS3 is4". Puede utilizar el punto de carácter especial (.) para que actúe como un carácter comodín, por lo que es coincide con un carácter adicional y se muestra con el patrón de búsqueda. Si agrega dos períodos para el patrón de búsqueda, verá dos caracteres adicionales. Si no se utiliza ningún período, sólo verá el patrón de búsqueda.
  9. Agregue la siguiente función después de la
    Controlador de eventos Command1_click :
    Function TestRegExp(myPattern As String, myString As String)   'Create objects.
    Dim objRegExp As RegExp
    Dim objMatch As Match
    Dim colMatches As MatchCollection
    Dim RetStr As String

    ' Create a regular expression object.
    Set objRegExp = New RegExp

    'Set the pattern by using the Pattern property.
    objRegExp.Pattern = myPattern

    ' Set Case Insensitivity.
    objRegExp.IgnoreCase = True

    'Set global applicability.
    objRegExp.Global = True

    'Test whether the String can be compared.
    If (objRegExp.Test(myString) = True) Then

    'Get the matches.
    Set colMatches = objRegExp.Execute(myString) ' Execute search.

    For Each objMatch In colMatches ' Iterate Matches collection.
    RetStr = RetStr & "Match found at position "
    RetStr = RetStr & objMatch.FirstIndex & ". Match Value is '"
    RetStr = RetStr & objMatch.Value & "'." & vbCrLf
    Next
    Else
    RetStr = "String Matching Failed"
    End If
    TestRegExp = RetStr
    End Function
  10. En el menú Ejecutar , haga clic en
    Iniciar para ejecutar la aplicación.
  11. Haga clic en Command1.

    Se muestra un cuadro de mensaje que devuelve todas las apariciones de la cadena IS en la cadena IS1 is2 IS3 is4 .
Volver al principio
Propiedades

Id. de artículo: 818802 - Última revisión: 17 ene. 2017 - Revisión: 1

Comentarios