Suddividere un testo

[andreathedove]

Ciao,
sto per fare un sito concernenti poesie.

Vorrei fare in modo che una poesia troppo lunga venga suddivisa su due o piu colonne: mi potete aiutare?

Grazie mille,
Andrea

 

[ArtCava]

dunque vediamo...

Supponiamo tu abbia una variabile che contiene il testo della poesia, chiamiamola (con molta fantasia) poesia...

Dim x = 100 'Imposta la lunghezza massima che vuoi dare al testo contenuto in ciascuna colonna...
<table>
  <tr>
<%
While Len(poesia) > x
  'Costruisci la colonna...
  Response.Write("<td>" & Left(poesia, 100) & "</td>")
  poesia = Mid(poesia, 101)
Wend
If poesia <> "" Then 'Questo controllo non dovrebbe essere necessario, ma sai com è...
  Response.Write("<td>" & poesia & "</td>")
End If
%>
  </tr>
</table>

Se c'è qualche problema non mi fucilare:gun: ma fammi sapere, non l'ho testata, sono andato a naso...
:byebye:

 

[lukeonweb]

A occhio va bene, pa si potrebbe calcolare dinamicamente la lunghezza della poesia, senza usare una variabile statica che prenda i primi 100 caratteri.

La filosofia è ottima, fai qualche prova e facci sapere

 

[andreathedove]

... ciao a tutti e due e grazie per l'aiuto che mi date.

Ho provato lo script e vedete voi il risultato:

http://www.allinonenet.it/nonsoloparole/testo.asp?id=7

<%
body = objRS("body")
body = replace(body,vbCrLf,"<br>")
body = Replace(body," ","&nbsp;") 
 
%>
<table>
<tr>
<td width="500" align = "left"><b><%=objRS("titolo")%></b></td></tr>
<tr><td width="500" align = "left"> di <a href="autore.asp?a=<%=objRS("nick")%>"><%=nome%></a></td></tr>
<tr>
<%
Dim x 

x = 100

num = Len(body)

while num > x 
  'Costruisci la colonna...
  Response.Write("<td>" & Left(body, 100) & "</td>")
  body = Mid(body, 101)
wend
If body <> "" Then 'Questo controllo non dovrebbe essere necessario, ma sai com è...
  Response.Write("<td>" & body & "</td>")
End If
%></tr>

<%
objRS.Close
Set objRS = Nothing
objConn.Close
Set objConn = Nothing
%>
<tr>
<td width="770" align = "left">
<br><br>
<a href="testo.asp?id=<%=request("id")%>">invia il testo ad un amico<a>
</td></tr>
</table> 

Qui riporto il codice.

Luke come posso fare il conteggio dinamicamente ?

Grazie
Andrea

 

[ArtCava]

Ciao andreathedove,

nel While stai testando la variabile num che se all'inizio è = 120 rimarrà 120 per tutto il tempo, ti consiglio di testare sempre Len(body) invece, altrimenti produci un ciclo while infinito tutte le volte che il testo supera i 100 caratteri...

Per la dinamicità della lunghezza, le uniche cose che mi vengono in mente sono

1. Utilizzo di una costante
2. Variabile in un file .ini
3. un campo del db

:byebye:

 

[andreathedove]

... scusa l'igniranza ma X sarebbe la lunghezza totale della Poesia ?

 

[ArtCava]

No, X Imposta la lunghezza massima che vuoi dare al testo contenuto in ciascuna colonna...

:byebye:

 

[andreathedove]

grazie ...