Recuerda que en la informática un problema suele tener diferentes soluciones, no obstante nosotros te enseñaremos lo más óptimo y mejor.
Solución:
Puede usar el objeto Regex de VBScript agregando una referencia a la biblioteca de expresiones regulares de Microsoft VBScript.
Ejemplo de uso:
Dim szLine As String
Dim regex As New RegExp
Dim colregmatch As MatchCollection
With regex
.MultiLine = False
.Global = True
.IgnoreCase = False
End With
szLine = "Analyzed range (from-to) 10 100"
regex.Pattern = "^Analyzed range"
If regex.Test(szLine) Then
regex.Pattern = ".*?([0-9]+).*?([0-9]+)"
Set colregmatch = regex.Execute(szLine)
'From
Debug.Print colregmatch.Item(0).submatches.Item(0)
'To
Debug.Print colregmatch.Item(0).submatches.Item(1)
End If
Fuente: http://mark.biek.org/blog/2009/01/regular-expressions-in-vba/
Puedes usar CreateObject("vbscript.regexp")
o simplemente haga referencia a la biblioteca de secuencias de comandos.
Te mostramos reseñas y puntuaciones
Si guardas algún reparo y forma de mejorar nuestro reseña puedes escribir una interpretación y con placer lo analizaremos.
¡Haz clic para puntuar esta entrada!
(Votos: 0 Promedio: 0)