memo e testo lungo

[soldo]

Eccomi di nuovo qui..

Ancora una volta ho bisogno di voi

Spero mi aiutate a capire una cosa, Ho un campo memo dove dal form si inserisce del testo, ho fatto un raplace per mandare a capo dopo aver battuto il tasto invio, ma se uno scrive una frase troppo lunga il risultato è terrificante, la pagina che contiene la tabella si sposta creando un effetto mostruoso.

Per esempio se uno scrive Ciaooooooooooooooooooooooooooooooooooooooooooooooo ooooooooooooooo

Qualche idea? non riesco a farmi venire in mente nulla, ho spulciato il forum ma niente.


Mille grazie.

[kluster]

potresti metterti il contenuto della textarea in una variabile
la splitti per il carattere spazio e poi per ogni parola controlli la lunghezza (Len), se superera un tot di caratteri (fai il calcolo con il tuo layout) inserisci nel mezzo un

[soldo]

Ci provo semmai richiedo qui... per ora Grazie.

[soldo]

Asp se non sbaglio lo split è cosi'

ded = Split(MyVar, “Delimitatore”)

quindi

ded = request.form(Dediche)
Array = Split(ded*")

Splittato = Array(0) & " " & Array(1)


giusto?

[kluster]

array è una parola riservata.

ded = request.form(Dediche) 
ArDed = Split(ded," ") 'Cmq lo spazio è il delimitatore di default
                       'se non viene specificato il delimitatore

[soldo]

Fin qui ero riuscito pure io,

pero' non capisco come fare a splittare una frase intera in parole poi a contarle e inserire il BR.

Puoi darmi un aiutino?

[kluster]

MAXCHARALLOWED = 30 'Una parola deve essere + corta di 30 char (modifica questo valore in base al tuo layout
ArDed	= split(parola)
'scorri le parole dal primo all'ultimo
for i = LBound(ArDed) to UBound(ArDed)
    'Lunghezza della parola che stai controllando
    LenTmp = Len(ArDed(i))
	'Se è + lunga dei char consentiti
    if LenTmp > MAXCHARALLOWED then 
	   	'Inserisco nel mezzo un br
	   	tmpStr 		= Left(ArDed(i),MAXCHARALLOWED)  & "
"
	   	'Costruisco la parte restante della parola
	   	Rest	  	= Mid(ArDed(i),Len(tmpStr)) 
		'Fino a che la parte che avanza non è + lunga dei char consentiti
	    while (Len(Rest) > MAXCHARALLOWED)
			'Aggiungo la parte in + e ci accodo un br
			tmpStr 	= tmpStr & Left(Rest,MAXCHARALLOWED) & "
"
			'Ricalcolo la parte restante della stringa
			Rest	= Mid(ArDed(i),Len(tmpStr))
		wend
		'Compongo la parte finale
		ArDed(i)		= tmpStr & Rest	
    end if 
next
'rimetto tutto a posto
parola = Join(ArDed," ")

[soldo]

Grazie!!

[kluster]

prego