riconoscere spazio e inserire messaggio

[djjunior]

Carissimi,
utilizzo questo script che su 290 caratteri, se sono meno non visualizza messagio letti tutto mentre se supera i 290 c'è il messaggio leggi tutto con relativo link.
Ora capita che nei 290 caratteri può esserci uno spazio nella news, tipo:

...messaggio, messaggio, messaggio.
(spazio)
Messaggio, messaggio ...leggi tutto

Creando un fastidioso "buco", sarebbe possibile che se dovesse capitare lo spazio, il sistema lo riconosce, mette in automatico il messaggio leggi tutto?

<% 
strTesto = rs.Fields("testo")
news = replace(FormatText(strTesto), VbCrLf, "
")

if len(news) > 290 then

Response.Write Left(news,290) & "http://...<font face=""Tahoma"" size...i tutto</font>"

else

Response.Write Left(news,290) & ""

end if
%>

Grazie
G.

[Roby_72]

Gliel'hai detto tu di metterlo alla seconda riga...

Roby

[djjunior]

Sicuramente non mi sono spiegato bene, nel testo completo c'è uno spazio tra una riga ed un altra, ecco vorrei che il sistema (anche se non arrivati ai 290 caratteri) mi inserisca li il messaggio leggi tutto, evitando quello spazio.

Ecco come appare ora:

Riceviamo e pubblichiamo nota congiunta della dirigente nazionale Fli e del referente provinciale :
(questo spazio deve riconoscere e inserire leggi tutto qui escludendo il testo successivo)

“Non è la Napoli che ha stabilito la linea nazion ...leggi tutto

Grazie
G.

[Roby_72]

Allora devi prima vedere se c'è uno spazio e, tramite la replace sostituire VbCrLf con il link "leggi tutto".
Se non c'è conti i caratteri.

Roby

[djjunior]

come posso implementarlo nell'attuale script??
Grazie
G.

[Roby_72]

Dentro a tutti e due i lati dell'IF (perché vale a prescindere della lunghezza) devi mettere

spazio = instr(strTesto,VbCrLf) 
if spazio > 0 then
strTesto = left(strTesto, spazio) & "metti il link"
end if

Ragionaci.

Roby

[djjunior]

Grazie Roby,
ho provato varie forme di inserimento, ragionandoci, in ultima:

<% 
strTesto = rs.Fields("testo")
news = replace(FormatText(strTesto), VbCrLf, "
")
spazio = instr(strTesto,VbCrLf) 

if len(news) > 250 then

if spazio > 0 then
strTesto = left(news, spazio) & "http://...<font face=""Tahoma"" size...i tutto</font>"
else
Response.Write Left(news,250) & "http://...<font face=""Tahoma"" size...i tutto</font>"
end if

else

if spazio > 0 then
strTesto = left(news, spazio) & ""
else
Response.Write Left(news,250) & ""
end if

end if
%>

Però così facendo non stampa a video proprio nessun testo
Grazie
G.

[Roby_72]

Fatti stampare le variabili.
Usa fino all'ultimo "strTesto" e non "news".
La formattazione devi applicarla alla fine.

Roby

[djjunior]

Scusami credo di non aver capito bene, quali variabili devo stampare?
La formattazione alla fine, di che?

<% 
strTesto = rs.Fields("testo")
news = replace(FormatText(strTesto), VbCrLf, "
")
spazio = instr(strTesto,VbCrLf) 

if len(strTesto) > 250 then

if spazio > 0 then
strTesto = left(strTesto, spazio) & "http://...<font face=""Tahoma"" size...i tutto</font>"
else
Response.Write Left(strTesto,250) & "http://...<font face=""Tahoma"" size...i tutto</font>"
end if

else

if spazio > 0 then
strTesto = left(strTesto, spazio) & ""
else
Response.Write Left(strTesto,250) & ""
end if

end if
%>

Grazie
G.

[Roby_72]

strTesto e spazio

Roby