quebrar texto

[desisto 0]

opa

to tentando mas nao consigo fazer uma formula de quebrar o texto...

preciso quebrar a metade do texto pra exibir uma div no meio

sendo que essa funcao so pode ser rodada se o texto tiver mais de 2000 letras

 

lalalalalalalallalalalalalalallalalalalalalal

lalalalalalalallalalalalalalallalalalalalalal

<div>

lalalalalalalallalalalalalalallalalalalalalal

lalalalalalalallalalalalalalallalalalalalalal

 

alguem tem uma luz?

[]s

[hargon 64]

Tem uma função pronta para isso no laboratório de scripts, dê uma pesquisada lá.

[desisto 0]

valeu

vou dar uma olhada

 

procurei la mas nao consegui achar nada referente a duvida

se você tiver o link posta ai pra quebrar um galho

[Anderson Roberto 0]

Basicamente você vai usar If e Mid.

Dá uma olhada aqui.

[hargon 64]

Sério que você procurou?

 

http://forum.imasters.com.br/index.php?showtopic=139592

 

A menos que eu tenha entendido errado sua dúvida...

[desisto 0]

você entendeu errado... mas se eu disse que procurei é pq procurei ne, antes de abrir o topico eu procurei aqui e no google, mas nao achei nada

 

vamos la

esse que você postou limita o comprimento da linha

o que eu quero é dividir um texto em 2 partes e criar uma div no meio

 

se eu tiver um tx com 1000 linhas, ele divide em 2 blocos de 500 e uma div no meio

 

testando um sistema que eu tenho que tarta acentos, cheguei a essa function...

queria que dessem uma olhada

 

é so o comeco, vao ter verificacoes depois, mas o basico, ele calcula a metade do tx e quebra em 2

 

Function quebra_texto(Palavra) 
	metade = int(Len(Palavra) / 2)
	For X = 1 to metade
	Letra1 = mid(Palavra,X,1) 
	Texto1 = Texto1 & Letra1
	next 

	For X = metade to Len(Palavra)
	Letra2 = mid(Palavra,X,1) 
	Texto2 = Texto2 & Letra2 
	next 

	quebra_texto = Texto1 &"<br />DIV<br />"& Texto2
end function 


response.Write quebra_texto(var)

[Anderson Roberto 0]

Você precisa pegar letra por letra?

[desisto 0]

nao nao

acabei de ver esse detalhe

 

letra por letra ta baguncando o ideal seria com palavra ou alguma forma de conseguir por apos uma quebra de linha, no caso vem como Chr(13)

 

teria dar um help?

 

[]s

[Anderson Roberto 0]

letra por letra ta baguncando o ideal seria com palavra ou alguma forma de conseguir por apos uma quebra de linha, no caso vem como Chr(13)

Como assim?

Este valor antes de entrar no banco teria um Chr(13)? Vem de um TextArea?

[desisto 0]

sim, vem de um textarea como Chr(13)

 

no teste que fiz ele quebrou no meio da palavra

prefiria que quebrasse aproveitando uma quebra de linha, quando iniciasse um novo paragrafo a div entrava no inicio cerinho, mas se nao der nao tem problema, so nao queria quebrando no meio da palavra

 

deu pra entender +-?

[Anderson Roberto 0]

sim, vem de um textarea como Chr(13)

Então antes de inserir no banco o texto do TextArea, substitua o Chr(13) por <br> por exemplo, assim quando retornar do banco ele vai quebrar exatamente onde quebrava no TextArea.

[desisto 0]

mas como eu mudo pra nao "varrer" letra por letra e sim palavra?

[Anderson Roberto 0]

Mais ou menos assim:

Primeiro você 'quebra' a string no meio, usando Mid(), depois você pega a posição do próximo espaço depois da metade, usando Instr(), aí você insere a quebra neste ponto, não se esquecendo de que não será mais exatamente a metade e sim do início da string até a posição do espaço depois da metade original obtido com o Instr().

[desisto 0]

valeu Anderson

vou tentar fazer aqui

 

qq coisa eu volto :)

[]s

[Anderson Roberto 0]

Ok.