18 replies to this topic

[bareta]

tipo como eu qubro palavras muito grandes???

AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA

[cybermix]

tem mid, left e right que fazem isso

'corta com um tamanho determinado a partir da posicao determinada
'mid(string, inicio, tamanho)
response.write mid("andrews medina", 2, 5)

'corta da esquerda pra direita
'left(string, tamanho)
response.write left("andrews Medina", 5)

'corta da direita pra esquerda
'right(string, tamanho)
response.write right("andrews Medina", 5)

[bareta]

mas não pode cortar..... tipo a cada 30 caracteres teria que dar um espaço para não detruir as tabelas

[LeoB]

Tem uma função que eu fiz em PHP para isso. Se alguém estiver disposto a reescrever em ASP... aí está:

http://forum.wmonlin...showtopic=58785

[bareta]

Tem uma função que eu fiz em PHP para isso. Se alguém estiver disposto a reescrever em ASP... aí está:

http://forum.wmonlin...showtopic=58785

rapaz não manjo nada de PHP.........

[Info_Tec]

Não é uma tradução de PHP para ASP, dei uma olhada mas me baseei em outra lógica:

Function QuebrarTexto(Texto, TMax)

	Texto = Split(Texto," ")

	For x = LBound(Texto) to UBound(Texto)

  If Len(Texto(x)) > TMax Then

 	 Ini = Left(Texto(x),TMax) & "<BR>"

 	 Fim = Right(Texto(x), Len(texto(x) - TMax))

 	 While Len(Fim) > TMax

    Ini = Ini & Left(Fim,TMax)

    Fim = Right(Fim, Len(Fim - TMax))

 	 Wend

 	 Texto(x) = Ini & Fim

  End If

	QuebrarTexto = QuebrarTexto & Texto(x) &" "

	Next

QuebrarTexto = Texto

End Function

[bareta]

Não é uma tradução de PHP para ASP, dei uma olhada mas me baseei em outra lógica:

Function QuebrarTexto(Texto, TMax)
	Texto = Split(Texto," ")
	For x = LBound(Texto) to UBound(Texto)
  If Len(Texto(x)) > TMax Then
  	Ini = Left(Texto(x),TMax) & "<BR>"
  	Fim = Right(Texto(x), Len(texto(x) - TMax))
  	While Len(Fim) > TMax
    Ini = Ini & Left(Fim,TMax)
    Fim = Right(Fim, Len(Fim - TMax))
  	Wend
  	Texto(x) = Ini & Fim
  End If
	QuebrarTexto = QuebrarTexto & Texto(x) &" "
	Next
QuebrarTexto = Texto
End Function

como faço pra usar essa função....

[Info_Tec]

Response.Write(QuebrarTexto(RS("texto"),30)))

[bareta]

eu usei da seguinte da seguinte forma:

<%
Function QuebrarTexto(Texto, TMax)
Texto = Split(Texto," ")
For x = LBound(Texto) to UBound(Texto)
 If Len(Texto(x)) > TMax Then
  Ini = Left(Texto(x),TMax) & "<BR>"
  Fim = Right(Texto(x), Len(texto(x) - TMax))
  While Len(Fim) > TMax
   Ini = Ini & Left(Fim,TMax)
   Fim = Right(Fim, Len(Fim - TMax))
  Wend
  Texto(x) = Ini & Fim
 End If
QuebrarTexto = QuebrarTexto & Texto(x) &" "
Next
QuebrarTexto = Texto
End Function

Textoabc="aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
Response.Write(QuebrarTexto(Textoabc,30))) 
%>

mais so deu erro........

[Tarkan]

Posta a mensagem do erro para que a gente possa tentar corrigir.

Outra coisa, dá uma olhada nesse tópico... Pode te ajudar: http://forum.wmonlin...t=0

Abraços!

[bareta]

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

[Tarkan]

ai tarkan valeu mesmo brother.............

Mesmo tendo funcionado, tem como você postar o erro do anterior aqui?
Que aí pode ser resolvido para termos mais opções de códigos.

Abraços!

[vrsbueno]

Fiz assim..

<%

TMax = 10
Texto = "Se você pensa que caxaça é água, caxaça não é água não, caxaça vem do alambique, e água vem do ribeirão."

x = 10
y = 1

Response.Write Left(Texto,TMax) & "<br>"
Do until x > Len(Texto)
Text = Mid(Texto,x,TMax)
Response.Write Text & "<br>"
Text = ""
y = y + 1
x = y * TMax
Loop

%>

[Info_Tec]

Fiz assim..

<%

TMax = 10
Texto = "Se você pensa que caxaça é água, caxaça não é água não, caxaça vem do alambique, e água vem do ribeirão."

x = 10
y = 1

Response.Write Left(Texto,TMax) & "<br>"
Do until x > Len(Texto)
Text = Mid(Texto,x,TMax)
Response.Write Text & "<br>"
Text = ""
y = y + 1
x = y * TMax
Loop

%>

Esse corta independente de a palavra ter mais que o limite.


E bareta, como você testou, por favor informe o erro que poderemos corrigir a função.