Jump to content


Photo

Quebrar Palavra


  • Faça o login para participar
18 replies to this topic

#16 bareta

bareta

    Normal

  • Usuários
  • 64 posts
  • Sexo:Não informado

Posted 21/07/2004, 18:58

vou testar no iis em casa ai ponho o que tando erro certinho.....poruqe tava testando no domain dlx....
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*Posted Image

#17 vrsbueno

vrsbueno

    Ativo

  • Usuários
  • 351 posts
  • Sexo:Não informado
  • Localidade:Taubaté-SP

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.... (y)

#18 myaccount2lists

myaccount2lists

    Ativo

  • Usuários
  • 347 posts
  • Sexo:Masculino

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()%>

#19 bareta

bareta

    Normal

  • Usuários
  • 64 posts
  • Sexo:Não informado

Posted 22/07/2004, 20:53

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

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

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*Posted Image




1 user(s) are reading this topic

0 membro(s), 1 visitante(s) e 0 membros anônimo(s)

IPB Skin By Virteq