dividere stringhe troppo lunghe

[unreg]

Salve,

ho un problema con della stringhe di testo che sono formate da parole troppo lunghe.

Sarebbe possibile dividerle in più righe tramite Asp ?

in PHP ho trovato questo ma andrebbe convertito ASP:

--------------------------------------------------------------------------------
 
$parole = explode(" ", $row["titolo"]);
                //$parole = preg_split ("/\s/", $frase);

                $len_max=20; //precipitevolissimevolmente (26)
                $titolo="";
                
                for($i=0;$i < count($parole);$i++)
                {
                  $parola=$parole[$i];
                  if (!empty($parola))
                  {
                    $titolo=$titolo . chunk_split($parola, $len_max);                   
                  }
                }
     
                $titolo=substr($titolo, 0, strlen($titolo)-2);
                //Spazio finale piu' fine stringa (messi da chunk_split) da togliere 

Come si Fa ?

Grazie !

[maximum]

Prova questa:

<%
Function dividiStringa(sStr, iInizio, iProg)

	Dim sTesto 
	Dim lLenght
	Dim sFinal 

	If Len(sStr) > 20 Then
	   If Mid(sStr, 21, 1) = " " Then
		  sFinal = Mid(sStr, 1, 20) & "
"
  	  	  response.write(sFinal)
		  sTesto = Mid(sStr, 22, Len(sStr) - 21)
		  iProg = iProg + 1
		  dividiStringa sTesto, 1, iProg
	   Else
		  lLenght = InStrRev(Mid(sStr, 1, 20), " ")
		  If Not lLenght = 0 Then
			 sFinal = Mid(sStr, 1, lLenght) & "
" 
	  	  	 response.write(sFinal)
			 sTesto = Mid(sStr, lLenght + 1, Len(sStr) - lLenght)
		  Else
			 sFinal = Mid(sStr, 1, 20) & "
" 
  	  	     response.write(sFinal)
			 sTesto = Mid(sStr, 20 + 1, Len(sStr) - 20)
		  End If
		  iProg = iProg + 1
		  dividiStringa sTesto, 1, iProg
	   End If
	ElseIf Len(sStr) <= 20 And Len(sStr) <> 0 Then
		 sFinal = sStr
 	  	 response.write(sFinal)
	End If

End Function

response.write(dividiStringa("Ciao, questa è una prova di come funziona l'algoritmo ricorsivo di spezzatura di stringhe troppo lunghe!",1,1))
%>

[unreg]

Grazie, ma pultroppo sicuramente io mi sono spiegato male

quello che devo fare è dividere le parole lunghe della stringa.

Esempio:

oggi è bellooooooooooooooooooooooooooooooooooooooooooooo !

in un div di 150px non ci va perchè lo divide così:

oggi è
bellooooooooooooooooooooooooooooooooooooooooooooo
!

Stravolgendo la Grafica

Tramite Asp è possibile dividere le parole troppo lunghe ?

tornando all'esempio dovrebbe fare una cosa del tipo:

oggi è
bellooooooooooooooooooooo
oooooooooooooooooooooooo
!

Grazie !

[unreg]

Un problema simile al mio si è verificato sul Blog, li è stato risolto con js, a me serve una funzione ASP che taglia le parole con testo troppo lungo.

Grazie !

[wallrider]

provo, eh

Dim str2Divide, numChars, resultStr
Dim giri, resto, temp
numChars = 30
str2Divide = "belloooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo!"

giri = CInt(Len(str2Divide) / numChars)
resto = Len(str2Divide) Mod numChars
temp = str2Divide
For i = 1 To giri
    resultStr = Mid(temp, 1, numChars)
    temp = Mid(temp, numChars + 1)
    If i < giri Then
        resultStr = resultStr & "
"
    End If
Next
If resto > 0 Then
    resultStr = resultStr & "
" & temp
End If

resultstr conterrà la stringa spezzata

[unreg]

non va

come faccio ?


p.s. anche questo forum soffre questo problema



provaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa aaaaaaaaaaaaaaaaaa

[wallrider]

Originariamente inviato da unreg
non va

Cosa di preciso?

provaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa aaaaaaaaaaaaaaaaaa

[maximum]

Guarda che la mia funziona proprio per il caso tuo, hai provato a copiare ed incollare il codice da me postato, sostituendo alla stringa di esempio la parola provaaaaaaa.....???

Così:

<%
Function dividiStringa(sStr, iInizio, iProg)

	Dim sTesto 
	Dim lLenght
	Dim sFinal 

	If Len(sStr) > 20 Then
	   If Mid(sStr, 21, 1) = " " Then
		  sFinal = Mid(sStr, 1, 20) & "
"
  	  	  response.write(sFinal)
		  sTesto = Mid(sStr, 22, Len(sStr) - 21)
		  iProg = iProg + 1
		  dividiStringa sTesto, 1, iProg
	   Else
		  lLenght = InStrRev(Mid(sStr, 1, 20), " ")
		  If Not lLenght = 0 Then
			 sFinal = Mid(sStr, 1, lLenght) & "
" 
	  	  	 response.write(sFinal)
			 sTesto = Mid(sStr, lLenght + 1, Len(sStr) - lLenght)
		  Else
			 sFinal = Mid(sStr, 1, 20) & "
" 
  	  	     response.write(sFinal)
			 sTesto = Mid(sStr, 20 + 1, Len(sStr) - 20)
		  End If
		  iProg = iProg + 1
		  dividiStringa sTesto, 1, iProg
	   End If
	ElseIf Len(sStr) <= 20 And Len(sStr) <> 0 Then
		 sFinal = sStr
 	  	 response.write(sFinal)
	End If

End Function

response.write(dividiStringa("provaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa",1,1))
%>

[unreg]

grazie Maximum !

[maximum]

Prego.