Tem alguma função para isto, por exemplo, no campo do meu guestbook alguem digitar:
"Águaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
e eu querer quebrar a linha depois do 4 "a" repetido
Edição feita por: Dehu, 17/01/2007, 14:03.
Posted 15/01/2007, 11:20
Edição feita por: Dehu, 17/01/2007, 14:03.
Posted 16/01/2007, 09:00
response.write Left('Aguaaaaa', 4)
Posted 16/01/2007, 10:59
Posted 08/02/2007, 07:51
Posted 11/02/2007, 13:12
Function TrataTexto(texto) novotexto = Mid(texto, 1,1) For i = 2 TO Len(texto) If Lcase(Mid(texto, i-1, 1)) <> LCase(Mid(texto, i, 1)) Then parte = Mid(texto, i, 1) novotexto=novotexto & parte End If Next TrataTexto = novotexto End Function texto = "EEeSSSSSSSSEEEEEEEEEE sSsSSSSsssIIIItttEEE éÉéé MTUUUUU leGAAAAALLLLL" response.write "texto: " & texto & "<br>" response.write "tratado: " & TrataTexto(texto)
Function TrataTexto(texto) novotexto = Mid(texto, 1,1) For i = 3 TO Len(texto) If Lcase(Mid(texto, i-2, 1)) <> LCase(Mid(texto, i, 1)) Then parte = Mid(texto, i, 1) novotexto=novotexto & parte End If Next TrataTexto = novotexto End Function
Posted 11/02/2007, 16:41
Posted 14/02/2007, 19:07
Function QuebraPalavra(Frase, Indice) Palavra = Array() ' Determina o Array que receberá a frase a ser quebrada Palavra = Split(Frase," ") ' Quebra a frase onde existe espação em branco For i = LBound(Palavra) to UBound(Palavra) ' Faz um laço tendo como limites o primeiro item do Array (limite inferior -> LBound(Array)) e o ultimo item do Array (limite superior -> UBound(Aray)) Variavel = Palavra(i) If (Len(Variavel) > Indice) Then ' Verifica se a palavra tem mais de 50 caracteres Do While (Len(Variavel) > Indice) Final = Final & " " & Mid(Variavel, 1, Indice) & " " ' Se for maior que 50 caracteres escreve os 50 primeiros caracteres da palavra e depois o restante... Variavel = Mid(Variavel, Indice + 1) Loop Final = Final & " " & Variavel Else Final = Final & " " & Variavel ' Se não for maior que 50 caracteres escreve a palavra inteira... End If Next QuebraPalavra = Final End Functione a chamo assim
msg = quebrapalavra(msg,50)
0 membro(s), 0 visitante(s) e 0 membros anônimo(s)