none
VBScript RRS feed

  • Pergunta

  • 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,

    segunda-feira, 6 de outubro de 2008 19:27

Respostas

  • 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!

    terça-feira, 7 de outubro de 2008 19:29

Todas as Respostas

  • Alguém?

    terça-feira, 7 de outubro de 2008 15:03
  • 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!

    terça-feira, 7 de outubro de 2008 19:29
  • beleza, valeu!!!

    quinta-feira, 9 de outubro de 2008 17:57