Andare a capo con gli array non troncando le parole

L

luca1317

Nuovo Utente
9 Nov 2008
12
0
0
Lo script seguente prende la stringa abcdefg e la suddivide in 3 righe: abc def g

Ora, se resto è uguale a 0? succede una cosa strana:

al posto di abcdefg (7caratteri) inseriamo abcdef (6 caratteri) in modo che il resto sia uguale a zero e le righe siano solo2 (array(0) e array (1).

Lo script in questo caso mi crea un terzo array(2) vuoto:
ARRAY(0):abc
ARRAY(1):def
ARRAY(2)

Come mai?
Codice: 
dim testo,maxLen 
testo_abstract="abcdefg"


maxLen=3
lentotale=Len(testo_abstract)
righe=Int(lentotale/maxlen)
resto=lentotale-(maxLen*righe)


For x=0 To righe
If testo="" Then
testo=Mid(testo_abstract,x+1,maxLen) & "<br>"
Else
testo=testo & Mid(testo_abstract,(maxLen*x)+1,maxLen) & "<br>"
End If
Next


If resto > 0 Then
For y=0 To resto
testo=testo & Mid(testo_abstract,(maxLen*(x+y))+1,maxLen) & "<br>"
Next
End If


Dim MioArray 
MioArray = Split (testo, "<br>", -1, 1) 
testo=""


conta=righe




if conta>=0 then response.write("arr1: "&MioArray(0))
RESPONSE.WRITE("<BR>")

if conta>=1 then response.write("arr1: "&MioArray(1))
RESPONSE.WRITE("<BR>")
if conta>=2 then response.write("arr2: "&MioArray(2))
RESPONSE.WRITE("<BR>")
if conta>=3 then response.write("arr3: "&MioArray(3))
 
Paolo69

Paolo69

Moderatore
Membro dello Staff
MOD
18 Feb 2010
555
13
18
Italy
www.caprioli.info
Ciao Luca,
prova modificando la parte finale con questo codice:
Codice: 
conta=righe


response.Write conta&"<br />" ' riga aggiunta


	If (conta >= 0) Then
		If (MioArray(0) <> "") Then  
			response.write("arr1: "&MioArray(0))
		End If
	End If
	
		RESPONSE.WRITE("<BR>")

	If (conta >= 1) Then
		If (MioArray(1) <> "") Then 
			response.write("arr2: "&MioArray(1))
		End If
	End If
		RESPONSE.WRITE("<BR>")

	If (conta >= 2) Then
		If (MioArray(2) <> "") Then 
			response.write("arr3: "&MioArray(2))
		End If
	End If
		RESPONSE.WRITE("<BR>")

	If (conta >= 3) Then
		If (MioArray(3) <> "") Then 
			response.write("arr4: "&MioArray(3))
		End If
	End If

se vuoi evitare di scrivere le righe in alto, prova con un ciclo:

Codice: 
conta=righe


response.Write conta&"<br />"

ciclo = 0
If conta > 0 Then
For xyx = 0 To conta

	If (conta >= ciclo) Then
		If (MioArray(ciclo) <> "") Then  
			response.write("arr"&ciclo&": "&MioArray(ciclo))
			response.Write("<br />")
		End If
	End If
ciclo = ciclo + 1

Next
End If

script completo con ciclo:
Codice: 
<%

dim testo,maxLen 
testo_abstract="abcdefg"


maxLen=3
lentotale=Len(testo_abstract)
righe=Int(lentotale/maxlen)
resto=lentotale-(maxLen*righe)


For x=0 To righe
If testo="" Then
testo=Mid(testo_abstract,x+1,maxLen) & "<br>"
Else
testo=testo & Mid(testo_abstract,(maxLen*x)+1,maxLen) & "<br>"
End If
Next


If resto > 0 Then
For y=0 To resto
testo=testo & Mid(testo_abstract,(maxLen*(x+y))+1,maxLen) & "<br>"
Next
End If


Dim MioArray 
MioArray = Split (testo, "<br>", -1, 1) 
testo=""


conta=righe


response.Write conta&"<br />"

ciclo = 0
If conta > 0 Then
For xyx = 0 To conta

	If (conta >= ciclo) Then
		If (MioArray(ciclo) <> "") Then  
			response.write("arr"&ciclo&": "&MioArray(ciclo))
			response.Write("<br />")
		End If
	End If
ciclo = ciclo + 1

Next
End If

%>

Link esempio con ciclo: http://www.caprioli.info/FITNESS/script/array.asp

Paolo
 
Ultima modifica:
Devi accedere o registrarti per poter rispondere.
Discussioni simili
Autore Titolo Forum Risposte Data
M Come andare a capo con la libreria FPDF PHP 6
novello88 [risolto] Andare a capo in email di testo inviata con ASP Classic ASP 2
F Andare a capo all'interno di una tabella WordPress 4
D [MySQL] [PHP] SQL andare da capo MySQL 0
Cosina Andare a capo nel testo della mail ricevuta dal form php PHP 1
B Andare a capo in un file di testo dopo determinata frase PHP 2
P Diminuire la grandezza del font invece che andare a capo HTML e CSS 2
E Codice per andare da capo PHP 0
ivarello andare a capo chiamando un ping PHP 5
S [cicli] Andare a capo dopo un tot Javascript 2
M Andare a capo col PHP PHP 2
grottafelix Paginare 6 record in una riga e poi andare a capo Classic ASP 2
T andare a capo nell'invio dell' e-mail PHP 4
I Andare a capo HTML e CSS 2
S Come andare a capo HTML e CSS 3
S Andare a capo verso sopra PHP 3
S Andare a capo.. HTML e CSS 7
M Come andare a campo in un campo di testo in automatico PHP 9
P problema conferma check e andare avanti nelle pagine PHP 33
P come inserire in un database un dato e farlo andare come primo dato messo PHP 23
V Un aiuto per andare a vivere all'estero Presenta il tuo Sito 2
borgo italia andare in ferie fa bene Discussioni Varie 9
N MyWay.MyWebSearch che non se ne vuole andare Sicurezza e Virus 2
M Caricare file .swf esterno e andare a fotogramma Flash 1
peppoweb Il Web potrebbe andare KO Discussioni Varie 0
C Dopo chiusura del tag php la stringa html va a capo PHP 1
W Mandare a capo valore di SQL Classic ASP 2
P textbox- scrivere tutto su una sola riga anche se si va a capo .NET Framework 2
I [HTML] Tooltips vanno a capo HTML e CSS 6
A [PHP] Visualizzazione righe (a capo) file .txt PHP 2
M [PHP] A capo dopo if PHP 2
M Javascript/Php. Stringa di testo a capo con alert Javascript 7
trattorino [Javascript] Java script ritorni a capo Javascript 7
S [PHP] Fpdf e testo a capo con cell PHP 5
asevenx nl2br che spezza le frasi e aggiunge a capo in modo errato PHP 0
L echo - andar a capo nel codice html generato dal server PHP 3
A Inserire testo dinamico su immagine centrato e a capo PHP 1
A Inserire testo dinamico su immagine centrato e a capo PHP 0
I Php "a capo" PHP 15
D Immagini dentro textfield che restano in linea (e non vadano a capo) Flash 0
K jTextArea non va a capo Java 1
G come evitare l'a capo del testo nelle tabelle HTML e CSS 4
E ACCESS-il capo interessato in relazione non si autocompila! MS Access 0
ivarello Explode a capo PHP 16
A tag <div> mi manda a capo il testo HTML e CSS 3
A A capo in un'array dentro ad un ciclo PHP 9
F problema a capo file txt PHP 2
A strip_tags per l'invio a capo PHP 11
asevenx caratteri speciali, accenti e a capo PHP 3
C AJAX FORM MAIL - problema con gli a capo nel messaggio Javascript 0

Discussioni simili

Alto Basso