[xanburzum]

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:

CÓDIGO

boolean = FcLike(string, Padrão)

exemplo:

CÓDIGO

<%
' 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:

CÓDIGO

<%
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
%>