Quebrando Uma Linha...

[bareta]

putz galera to enrolado com esse codigo aqui:

Array_Palavra = Split(recordset("mensagem")," ")

For I = 0 To Ubound(Array_Palavra())
If Len(Array_Palavra(i)) > 30 Then
 Response.Write(Array_Palavra(i) & "<br>")
end if
Next

de autoria do ursolouco... já tentei de tudo e nada de funcionar..alguém me da uma luz ai

erro na web:

Microsoft VBScript runtime error '800a0009'

Subscript out of range: 'Array_Palavra'

/bareta/teste/fotos_big.asp, line 84

[Decio]

Bom , enquanto o Urso não responde, tenta isso aqui:

<%

Palavra = "Aqui vai seu texto com Mais De 45 Caracteres que deve ser quebrado"

For i = 1 To Len(palavra)

NovaString = NovaString & Mid(palavra, i, 1)

If i = 45 Then NovaString = NovaString & "<br>"

Next

Response.Write NovaString

%>

[bareta]

ficou igual... não consegui outro metodo também...

[Decio]

Tenta colocar a tag "<p><\p>" após alterar a sua string e antes de mostrar com o response.write.

[ursolouco]

putz galera to enrolado com esse codigo aqui:

Array_Palavra = Split(recordset("mensagem")," ")

For I = 0 To Ubound(Array_Palavra())
If Len(Array_Palavra(i)) > 30 Then
 Response.Write(Array_Palavra(i) & "<br>")
end if
Next

de autoria do ursolouco... já tentei de tudo e nada de funcionar..alguém me da uma luz ai erro na web:

Microsoft VBScript runtime error '800a0009' Subscript out of range: 'Array_Palavra' /bareta/teste/fotos_big.asp, line 84

Antes de mais nada, Obrigado ao Mario por me alertar sobre o tópico. Bareta!!! Lembre-se de declarar seu vetor

 Dim Array_Palavra

e defini-lo como array

Array_Palavra = array()

após isso, quando for redimesiona-lo (adicionar ou remover itens) lembre-se de manter os itens atuais..

 Redim Preserve Array_Palavra(novo_indice)

Há, seu recordset, deve ser separado por espaços (" ") para que o código funcione corretamente...

Feito tudo isso, paus nas gatas, normalmente

Abraços !!!

[bareta]

eu fiz alguma modificações mais continua dando erro no next.....

while not recordset.EOF

response.write "<font color=red>" & recordset("nome") &"</font>-"&recordset("cidade")&" em " &recordset("data")&"<br>"

response.write " " & recordset("mensagem") &"<br>"

response.write "<hr>" & "<br>"

Dim Array_Palavra

Array_Palavra = array()

Array_Palavra = Split(recordset("mensagem")," ")

For I = 0 To Ubound(Array_Palavra())

If Len(Array_Palavra(i)) > 30 Then

Response.Write(Array_Palavra(i) & " ")

Next

recordset.movenext

wend

recordset.close

não consigo descobrir o erro...

[Bicicleta]

cara, q tal: usar o Instr e Mid???? Talvez seja bem mais rápido porque não cria nenhum vetor...

Seguinte, procure ler sobre o Instr, você vai ver q tem uma parada q dá pra você iniciar a pesquisa dentro dele a partir de uma posição, qd resgatar essa posição, você pega com o Mid dessa posição até a próxima ocorrência de " "...

ok?

[]s

[bareta]

Achei outra função....Pelo Tarkan da wmonline

<%
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 & " "
A = 0
End IF
Next
PularLinha = Saida
End Function
Response.Write PularLinha("aaaaaaaaaaaaaaaaaaaa",5)
%>