USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Dicas

  ASP - Active Server Page    (Miscelâneas)

Título da Dica:  função tira enter
Postada em 30/3/2004 por Martini         
eu utilizo esta função para enviar e-mail em html. Na mensagem (campo textarea), onde tiver um enter  a função troca por <br>
exemplo: tiraenter(Mensagem)

'Função para tirar os ENTER
Public Function TiraEnter(QTexto)
  Dim y, vString1, vString2, vPosicao
  vString1 = Chr(13) + Chr(10)
  vString2 = "<br>" '"§¢"
  For y = 1 To Len(vString1)
    vPosicao = InStr(1, QTexto, Mid(vString1, y, 1), vbBinaryCompare)
    If vPosicao <> 0 Then
      If Mid(QTexto, vPosicao, 1) = Chr(13) Then
        QTexto = Mid(QTexto, 1, vPosicao - 1) & Mid(vString2, y, 2) & Mid(QTexto, vPosicao + 1, Len(QTexto))
      Else
        QTexto = Mid(QTexto, 1, vPosicao - 1) & Mid(vString2, y + 1, 2) & Mid(QTexto, vPosicao + 1, Len(QTexto))
      End If
      y = y - 1
    End If
  Next
  TiraEnter = QTexto
End Function
 


CyberWEB Network Ltda.    © Copyright 2000-2024   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página