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