Testo a capo in automatico all'interno tabella!

**Vailfox** · 02-05-2006, 18:01

testo a capo in automatico dentro tab
Ciao ragazi, ho apena finito di realizzare un guestbook in asp, e adesso sono inciampato in un fastidiosissimo problema!!
all'interno della tabella che dovrebbe contenere in testo estratto dal mio database, questo non và a capo, ovvero viene riprodotto tutto su un'unica riga!!
Avete capito? Il testo che viene immesso nella tabella, non va a capo appena incontra i bordi della tabella, ma non fà altro che aumentare la larghezza della tabella, in modo da essere riprodotto tutto su un'unica riga!!

Come posso ovviare a questo problema??
Vorrei che il testo vadi a capo non appena non entra più nella tabella!!

Aspetto Vostre utili info!!

A presto!!

**santino83** · 02-05-2006, 18:09

codice:

response.write replace(testo_nel_db,vbcrlf,"
")

**Vailfox** · 02-05-2006, 18:11

PORCAMISERIA....nemmeno il tempo di scriverti un pvt, che tu già mi rispondi...

SEI UN FENOMENO!!!!!!!!!!!!!!!

**Vailfox** · 02-05-2006, 18:24

Allora.....santino, ti posto i risultati....Non funziona!!

ovvero, il testo della tabella non va a capo..
cerco di spiegarmi meglio....
Stò creando un guestbook....allora ricevo in input da un forma(textarea) il testo ovvero il messaggio, e lo inserisco nel mio database di access. fino a qui tutto a posto, poi....creo una tabella dove andrà inserito il testo contenuto nel database......il testo all'interno della tabella si vede....ma tutto su un'unica riga, ovvero non và a capo in automatico all'interno della cella!!
Per curiosità, ti mando tutto il codice che ho scritto, se puoi dacci un'occhiata e vediamo se puoi darmi una mano!! help

PS: Dai un'occhiata alla parte finale del codice, è lì che risiede il problema....forse...

<html>
<title>Guestbook</title>
<style type="text/css">

</style>
<body>

<form name="uao" method="post" action="default.asp">
<table width="725" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="725" height="100" align="center" valign="middle"><span class="Stile5">Guestbook<span class="Stile6"><sub> Powered by Fabrizio Alongi</sub></span><span class="Stile8"></sub></span></span></td>
</tr>
</table>
<table width="727" height="180" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="21" colspan="3" align="right" valign="bottom">
<div align="right"> </div></td>
<td colspan="2" align="center" valign="middle"><span class="Stile3">Text Message</span></td>
</tr>
<tr>
<td height="106" colspan="3" align="left" valign="top"><table width="340" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="135" height="31"><span class="Stile3">Name:</span></td>
<td width="205"><input name="nome" type="text" value="" size="30"></td>
</tr>
<tr>
<td height="29"><span class="Stile3">City:</span></td>
<td height="29"><input name="city" type="text" id="city" size="30"></td>
</tr>
<tr>
<td height="30"><span class="Stile3">Object Message:</span></td>
<td height="30"><input name="objmessage" type="text" id="objmessage" size="30"></td>
</tr>
</table></td>
<td height="152" colspan="2" rowspan="2" align="right" valign="top"><div align="left">
<textarea name="messaggio" cols="40" rows="8" wrap="PHYSICAL" maxlenght="2600">Inserisci messaggio</textarea>
</div></td>
</tr>
<tr>
<td width="161" height="53" align="right" valign="top"><input type="submit" value="Send Message"> </td>
<td width="52" align="left" valign="top"></td>
<td width="162" align="left" valign="top"><input type="reset" name="Submit" value=" Reset "></td>
</tr>
</table>
</form>
<%
Set objConn = Server.CreateObject("ADODB.Connection")
perc=Server.MapPath("messaggi.mdb")
objConn.Open("Provider = Microsoft.Jet.OLEDB.4.0; Data Source = "&perc&"")
Set objRs = Server.CreateObject("ADODB.Recordset")
set objRs = objConn.Execute("SELECT * from guest")
tempo=Time()
data=date()
%><font color="#FFFFFF"><%=tempo%>

<%=data%></font><%

Do while NOT objRs.EOF
%><table width="732" order="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="67" height="22"><span class="Stile10">Nome:</span></td>
<td width="665" height="22"><div align="left"><font color="#FFFFFF"><% response.write ("" & objRs("nome") & "") %></font></div></td>
</tr>
<tr>
<td height="23"><span class="Stile10">City:</span></td>
<td height="22"><div align="left"><font color="#FFFFFF"><% response.write ("" & objRs("city") & "") %></font></div></td>
</tr>
<tr>
<td height="22"><span class="Stile10">Object:</span></td>
<td height="22"><div align="left"><font color="#FFFFFF"><% response.write ("" & objRs("objmess") & "") %></font></div></td>
</tr>
<tr>
<td height="22"></td>
<td height="22"><div align="left"></div></td>
</tr>
<table width="735" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="735" height="42" valign="top">
<font color="#FFFFFF">
' IL PROBLEMA RISIEDE QUI!!!!
<% response.write replace(objRs("messaggio"), vbcrlf, "
") %>

</font>
</td>
</tr>
</table>

<%
objRs.Movenext
Loop

nomea=request.form("nome")
message=request.form("messaggio")
citta=request.form("city")
objm=request.form("objmessage")
if nomea<>"" then

objconn.execute "insert into guest(nome, messaggio, city, objmess) values ('" & nomea &"','"& message &"', '" & citta &"', '"& objm &"')"
%><script language="javascript">location.href="default.asp"</script><%
end if

objRs.Close
Set objRs = Nothing
objConn.Close
Set objConn = Nothing
%>
</body>
</html>

**santino83** · 02-05-2006, 18:29

domanda idiota: ma nella textarea in cui inserisci il messaggio sei andato mai a capo spingendo "enter"?

se la risposta è no, le cose sono due:

o ogni tot caratteri ci metti un

o chiedi a quelli di css se c'è un modo per dire alla cella di non allargarsi quando il testo è piu lungo della sua larghezza e quindi costringere il testo a capo

**Vailfox** · 02-05-2006, 18:36

come faccio a mettere ogni tot caratteri un
?? :master:

**santino83** · 02-05-2006, 18:44

che ne so, ci sono tanti modi:

codice:

dim testo,maxLen,att
maxLen=100 'splitto ogni 100 caratteri spazi inclusi)
testo="..testo del db.."

parole=split(testo," ")
testo=""
att=0
for each parola in parole
testo=testo & " " & parola
att=att+len(parola)+1

if att>=maxLen then
testo=testo & "
"
att=0
end if
next

response.write testo

o qualcosa del genere...

ps: al prossimo pvt che mi mandi ti metto tra gli utenti ignorati...se ti sto rispondendo sul forum è inutile il pvt

**Vailfox** · 02-05-2006, 18:50

allora, non riesco a capire del tutto il tuo codice, potresti commentarlo??

a me serve solo andare a capo ogni 100 caratteri, spazi inclusi.....
Ps: sono alquanto stressante vero?? :rollo:

**santino83** · 02-05-2006, 18:55

codice:

<tr>
<td width="735" height="42" valign="top">
<font color="#FFFFFF">
<% 

dim testo,maxLen,att
maxLen=100 'splitto ogni 100 caratteri spazi inclusi
testo=objRs("messaggio") 'gli passo il testo che devo splittare

parole=split(testo," ") 'splitto il testo sugli spazi in maniera da avere singole parole
testo=""
att=0
for each parola in parole
testo=testo & " " & parola 'ricompongo il testo parola per parola
att=att+len(parola)+1 'aggiorno la lunghezza attuale della riga

if att>=maxLen then 'se la lunghezza attuale è maggiore o uguale a quella desiderata
testo=testo & "
" 'vado a capo
att=0 'mi rimetto all'inziio della riga
end if
next

response.write testo 'scrivo il mio testo con gli accapo
%>
</font>
</td>
</tr>

**Vailfox** · 02-05-2006, 19:07

Il testo viene visualizato, senza nessun errore dal browser, ma tutto rimane come prima, il testo è sempre tutto posato su un'unica riga

Mha!!! qualche altra ipotesi??
ps: ma se al posto di
, nel tuo codice ci mettessimo un \n o un vbrclf??
Ipotesi fatta da alunno a prof.....

in oltre, o provato ad aggiungere qualche stringa alla variabile testo, nella pagina asp in esecuzione, si vede la mia stringa alla fine di ogni lunghissima riga!!
questo vuol dire che il comando split non ha avuto effetto...
cosa ne pensi??

Discussione: Testo a capo in automatico all'interno tabella!

Strumenti discussione

Ricerca discussione

Visualizza

Testo a capo in automatico all'interno tabella!

Permessi di invio