vou testar no iis em casa ai ponho o que tando erro certinho.....poruqe tava testando no domain dlx....
Quebrar Palavra
Started By bareta, 20/07/2004, 17:04
18 replies to this topic
#16
Posted 21/07/2004, 18:58
fabiobareta@hotmail.com
-------------------------------------------------------------------
Sistemas CGMOTION a melhor solução para seu site!!!
Sistema de usuarios online
Galeria de imagens (atualizada)!!!
Sistema de bate papo!!!
Sistema de Noticias
Acesse já o forum CGMOTION
*o verdadeiro amigo não é aquele que aparta a briga, mas sim aquele que chega dando uma voadora*
-------------------------------------------------------------------
Sistemas CGMOTION a melhor solução para seu site!!!
Sistema de usuarios online
Galeria de imagens (atualizada)!!!
Sistema de bate papo!!!
Sistema de Noticias
Acesse já o forum CGMOTION
*o verdadeiro amigo não é aquele que aparta a briga, mas sim aquele que chega dando uma voadora*
#17
Posted 21/07/2004, 21:20
É o codigo q fiz corta qualquer palavra.
heehhehe... agora q eu entendi oq vcs querem fazer...... hauahuaha...
cheguei perto....
heehhehe... agora q eu entendi oq vcs querem fazer...... hauahuaha...
cheguei perto....
#18
Posted 22/07/2004, 01:27
Vai ai o código correto, que quebra dequalquer jeito textos que estouram tabelas.
se o cara digitar "aaaaaaaaaaaaaaaaaaaaaaaaaaa" tao grande, mesmo
assim nao va i estourar, pq automaticamente criara um espaço e uma quebra
de linha.vai ai o codigo:
Function Quebra()
dim i, retorno, matriz
matriz = split(VarOrdemTXT, " ")
retorno = ""
for i = 0 to uBound(matriz)
do while len(matriz(i)) > 75
retorno = retorno & left(matriz(i),75) & " "
matriz(i) = mid(matriz(i), 75 +1)
loop
retorno = retorno & matriz(i) & chr(32)
retorno = Replace(retorno, chr(13), "<br />")
next
Quebra = retorno
End function
Esata função analiza ate 75 caracteres.
VarOrdemTXT é a varial do texto
para usar:
<%=Quebra()%>
se o cara digitar "aaaaaaaaaaaaaaaaaaaaaaaaaaa" tao grande, mesmo
assim nao va i estourar, pq automaticamente criara um espaço e uma quebra
de linha.vai ai o codigo:
Function Quebra()
dim i, retorno, matriz
matriz = split(VarOrdemTXT, " ")
retorno = ""
for i = 0 to uBound(matriz)
do while len(matriz(i)) > 75
retorno = retorno & left(matriz(i),75) & " "
matriz(i) = mid(matriz(i), 75 +1)
loop
retorno = retorno & matriz(i) & chr(32)
retorno = Replace(retorno, chr(13), "<br />")
next
Quebra = retorno
End function
Esata função analiza ate 75 caracteres.
VarOrdemTXT é a varial do texto
para usar:
<%=Quebra()%>
#19
Posted 22/07/2004, 20:53
essa aqui tambem corta qualquer palavra de quantos em quantos carctere vc colocar....não faz a analise essa palavra é muito grande...... mais já quebra o galho....... a eu não testei o resto ainda vou ver em ksa é que to meio sem tempo....ai tarkan valeu mesmo brother.............
Se quiser fazer um teste, faça o seguinte... Cria uma página nova, uma "teste.asp", e coloque dentro dela: <% Function PularLinha(StrTrata,Quantidade) StrTrata = CStr(StrTrata) Quantidade = Cint(Quantidade) A = 0 For aux = 1 To Len(StrTrata) StrNovo = Mid(StrTrata, aux, 1) Saida = Saida & StrNovo A = A + 1 IF A = Quantidade then Saida = Saida & "<br>" A = 0 End IF Next PularLinha = Saida End Function Response.Write PularLinha("aaaaaaaaaaaaaaaaaaaa",5) %> No teste acima, eu fiz com que ele pulasse de linha a cada 5 caracteres digitados. E você muda de acordo com as suas preferências. :D
tambem quero pedir desculpas ao Tarkan...por que postei a função dele em outro lugar e não coloquei os creditos...
fabiobareta@hotmail.com
-------------------------------------------------------------------
Sistemas CGMOTION a melhor solução para seu site!!!
Sistema de usuarios online
Galeria de imagens (atualizada)!!!
Sistema de bate papo!!!
Sistema de Noticias
Acesse já o forum CGMOTION
*o verdadeiro amigo não é aquele que aparta a briga, mas sim aquele que chega dando uma voadora*
-------------------------------------------------------------------
Sistemas CGMOTION a melhor solução para seu site!!!
Sistema de usuarios online
Galeria de imagens (atualizada)!!!
Sistema de bate papo!!!
Sistema de Noticias
Acesse já o forum CGMOTION
*o verdadeiro amigo não é aquele que aparta a briga, mas sim aquele que chega dando uma voadora*
1 user(s) are reading this topic
0 membro(s), 1 visitante(s) e 0 membros anônimo(s)