Hola otra vez.
Para aprender sobre las expresiones regulares, he hecho un código el cual busca en un archivo de texto las posibles concordancias según el patrón de la expresión.
Este es el codigo:
Código:
<%
Function RegExpTest(ExpresionRegular, archivo)
Dim regEx, Match, Matches, RetStr
Set regEx = New RegExp
regEx.Pattern = ExpresionRegular
regEx.IgnoreCase = True
regEx.Global = True
If (regEx.Test(archivo) = True) Then
Set Matches = regEx.Execute(archivo)
For Each Match In Matches
RetStr = RetStr & "Coincidencia encontrada en la posición "
RetStr = RetStr & Match.FirstIndex & ". El valor coincidente es '"
RetStr = RetStr & Match.Value & "'.<br>" & vbCrLf
Next
Else
RetStr = "Fallo"
End If
RegExpTest = RetStr
End Function
strFileName = "pruebaz.txt"
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTextFile = objFSO.OpenTextFile(Server.MapPath(strFileName))
Expresion="?<=<b>).+(?=</b>"
Do While Not objTextFile.AtEndOfStream
strReadLineText = objTextFile.ReadLine
Response.Write(RegExpTest(Expresion, objTextFile))
Loop
%>
Pero da error en No coinciden los tipos: '
regEx.Test' o en '
regEx.Execute'.
He probado con varias expresiones y siempre da error.
Alguien me puede echar una mano.
Salu2