MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access


    Converter texto para Código Numerico em HTML

    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7914
    Registrado : 15/03/2013

    Converter texto para Código Numerico em HTML Empty Converter texto para Código Numerico em HTML

    Mensagem  Alvaro Teixeira 3/10/2018, 15:02

    Olá a todos.

    Necessitei desta função, partilho o código e exemplo.
    Código:
    Function fncStr2Html(strConverter) As String
    ' Autor ..: Alvaro Teixeira (ahteixeira)
    ' Para ...: MaximoAccess.com
    ' Data ...: 03-10-2018
    ' Função .: fncStr2Html
    ' Obs ....: Converter texto para Código Numerico em HTML

    Dim i%, sTmp$
    i = Len(strConverter & "")

        If i > 0 Then
           For i = 1 To i
               sTmp = sTmp & "&#" & Asc(Mid(strConverter, i, 1)) & ";"
           Next
        End If
        
        fncStr2Html = sTmp

    End Function

    Abraço
    Anexos
    Converter texto para Código Numerico em HTML AttachmentConverter_str2html.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (20 Kb) Baixado 6 vez(es)


    Última edição por ahteixeira em 9/3/2022, 20:14, editado 1 vez(es) (Motivo da edição : Repor anexo do exemplo)

      Data/hora atual: 29/3/2024, 00:24