[Resolvido] comparar uma string usando uma expressão regular

[xanburzum 169]

A função FcLike compara uma string usando uma expressão regular e retorna

Verdadeiro se a expressão regular corresponde à string de entrada ou Falso se o padrão

não corresponder. Existem dois argumentos necessários, corda e padrão.

 

String é a string para comparar.

 

Padrão é a expressão regular a aplicar-se à corda. Retorna nulo se erro

manuseio é ativado e é um problema enountered durante a comparação.

 

sintaxe:

 

boolean = FcLike(string, Padrão)

exemplo:

 

<%
 ' FcLike retorna True para indicar um padrão correspondente.
response.write FcLike "Xan Burzum", "[A-Z]\D\D\D\s[A-Z]\D\D\D\D\D\D\D"

 ' FcLike retorna False para indicar um padrão correspondente.
response.write FcLike "Xan Burzum", "B[^i]"
%>

 

code:

 

<%
Private Function FcLike(byVal String, byVal padrão)
	Dim a, b, boolErr
	On Error Resume Next
	Set a = New RegExp
	If Err Then
		boolErr = True
	End If
	On Error GoTo 0
	If boolErr then 
		Err.Raise 5108, "Função FcLike", "Esta função usa " & _
			"objeto RegExp e exige o VBScript" & _
			"Scripting Engine Versão 5.1 ou superior."
		FcLike= Null
		Exit Function
	End If
	a.padrão = padrão
	a.IgnoreCase = false
	a.Global = true
	Set b = a.Execute(String)
	if b.Count > 0 then 
		FcLike= True 
	else 
		FcLike= False
	end if
	Set b = nothing
	Set a = Nothing
End Function
%>