VBScript

Question

Olá,

Criei um VBS que precisa gravar umas informações no banco, para servidor de schedule.

Poré,, essas informações estão "sujas", e no ASP utilizava Server.HTMLEncode() para limpa-las, porém, no VBS não funciona esta função ou não encontrei nenhuma parecida.

Existe alguma funcao (criada por alguem, ou nativa, funcionando ta bom!) para substituir o HTMLEncode?

Obrigado,

Answer 1

Alguém?

Answer 2

Eu achei essa função aqui que você pode adaptar para ao invés dela tirar os acentos ela substituir pelo código da letra com acento, trocar o espaço e talz...

Code Snippet

 

Function TiraAcento(Palavra)
CAcento = "àáâãäèéêëìíîïòóôõöùúûüÀÁÂÃÄÈÉÊËÌÍÎÒÓÔÕÖÙÚÛÜçÇñÑ"
SAcento = "aaaaaeeeeiiiiooooouuuuAAAAAEEEEIIIOOOOOUUUUcCnN"
Texto = ""
    if Palavra <> "" then
        For X = 1 to Len(Palavra)
            Letra = mid(Palavra,X,1)
            Pos_Acento = inStr(CAcento,Letra)
                if Pos_Acento > 0 then
                    Letra = mid(SAcento,Pos_Acento,1)
                end if
            Texto = Texto & Letra
        next
        TiraAcento = Texto
    end if
end function

Function VerificaPalavra(atributo)

Dim i
Dim id
Dim Auxiliar
Dim Resultado

Auxiliar = Split(Atributo, " ", - 1, vbBinaryCompare)

For i = LBound(Auxiliar) To Ubound(Auxiliar)
    Resultado = Resultado & " " & TiraAcento(Auxiliar(i))
Next

VerificaPalavra = Trim(Resultado)

end function

 

 

 

Espero ter ajudado!

Answer 3

beleza, valeu!!!