[Resolvido] Pular linha quando tiver mais que 10 letras na palavr

[Patrique 0]

Fala ae galera, como eu posso fazer para pular uma linha quando uma palavra tiver mais que 10 letras, vamos supor que o usuário coloque a palavra "Imasters" neste caso esta palavra tem 8 letras, neste caso o sistema não pularia uma linha agora se a palavra fosse "pindamonhangaba" o sistema pularia uma linha e colocaria o resultado assim

 

pindamon

hangaba

 

como isto pode ser feito?

 

Desde já agradeço,

Patrique

 

[]'s

[hargon 64]

Na verdade não é pular linha, é quebrar linha, correto?

 

Função quebraTexto criada pelo Salgado. É só substituir o espaço por quebra de linha.

[scorpio 7]

For i = 0 to Len(palavra) Step 10
  If(I+10>Len(palavra)Then
	response.write mid(palavra,i,Len(palavra)-i)
  Else
	response.write mid(palavra,i,i+10) & "<br>"
  EndIf
Next

 

acho que assim funciona...

[Patrique 0]

Na verdade é quebra de linha mesmo, hehehehe e as 2 funções vão funfar! orbigado ae galera!

 

Tópico Resolvido!

 

[]'s

[xanburzum 169]

dá uma olhada nesta função

 

<%
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
 
 A = 0
	
 For i = aux-5 to aux+5 'Aqui é devolvido um caracter baseado no código ANSI, ex.: Chr(33) .. né?
 
	 MyStr = mid(StrTrata,i,1)
	 if MyStr = " " then
   MyStr = Cstr(Replace(MyStr," ","<br>"&vbCrlf))
   Saida = Saida & MyStr
	 else
   Saida = Saida & "<br>"&vbCrlf
	 end if
 
 Exit For
 
 Next
	
	End IF
Next

PularLinha = Saida
End Function

dim textoA, qtd
textoA = "Justiça suspende shows em Jaguariúna, no interior de SP Quatro pessoas morreram e 11 ficaram feridas após tumulto em rodeio. Apresentações foram canceladas para este sábado e o domingo (24)."
qtd = 10
Response.Write PularLinha(textoA,qtd)
%>

[Patrique 0]

Valew Xam, vou testar esta também.

 

[]'s

[xanburzum 169]

se kiser aumentar a quantidade de caracteres aletere a variavel qtd

qtd = 10

qtd = X 'quantidade de caracteres