Replace in textarea

[centro]

Ciao a tutti,
scusate il titolo.. forse poco esplicativo...
ma con asp.... siccome ho dei limiti di spazio quando vado a trascrivere un testo preso da una text area per fare un pdf...
vorrei fare in modo che se ci sono due o più spazi allora me ne mette solo uno...
e lo stesso con gli invii. se ci sono due o più invii me ne mette solo uno.. in modo da evitare..
troppi spazi mantenendo sempre un minio di formattazione...
grazie.. dei consigli...

ah io ho visto il replace che senz'altro fa per me.. ma come gli do questa regola...?

grazi e buona serata

[mexican]

quando prendi il contenuto della textbox dopo l'invio

testo=replace(request("textbox"), "&nbsp&nbsp", "&nbsp" )
testo=replace(testo, "il codice del br (vbrlc)", "
")


ora i codice del br non lo ricordo a memoria:d

[centro]

grazie mexican...

ma come ti avevo scritto.. così ho porvato anch'io...
il tutto va se sono solo due di invii o di spazi....

ma metti che sono 4 spazi consegutivi..
succede che i primi due li trasforma in uno.. e i secondi due in un'ltro spazio.
totale due spazi tra una parola e una'ltra... io vorrei fare in modo che dato un tot di spazi.... che possa anche essere 50 (se uno è matto... ) me li riduce a uno solo....

e lo stesso per gli invii....
pensate si possa fare...

[mexican]

Originariamente inviato da centro
grazie mexican...

ma come ti avevo scritto.. così ho porvato anch'io...
il tutto va se sono solo due di invii o di spazi....

ma metti che sono 4 spazi consegutivi..
succede che i primi due li trasforma in uno.. e i secondi due in un'ltro spazio.
totale due spazi tra una parola e una'ltra... io vorrei fare in modo che dato un tot di spazi.... che possa anche essere 50 (se uno è matto... ) me li riduce a uno solo....

e lo stesso per gli invii....
pensate si possa fare...

provato così:
testo=replace(request("textbox"), "&nbsp&nbsp", "" )

[mexican]

Originariamente inviato da mexican
provato così:
testo=replace(request("textbox"), "&nbsp&nbsp", "" )

pero ricordo che c'è una funzione che elimina gli spazi.. split se non erro

[optime]

argomento già affrontato: è un bug di asp. mentre con altri linguaggi facendo

stringa=replace(stringa, "xx", "x")

toglie *tutte* le x doppie e le sotituisce con la x singola (quindi "ciaoxxxxxbelloxxdixxxxxxxxcasa" diventa "ciaoxbelloxdixcasa"), asp si ferma alla prima replace.

l'unica è fare un ciclo do...loop, continuando a sostituire finché ce ne sono...

[mexican]

fammi sapere se funziona:

Ecco una piccola funzione che elimina tutti gli spazi bianchi superflui da una stringa di caratteri.

<%
Function Trimmer(sString)
arrTrim = Split(sString, " ")
Trimmer=""
For i = LBound(arrTrim) To UBound(arrTrim)
If arrTrim(i)<>"" Then Trimmer = Trimmer & arrTrim(i) & " "
Next
Trimmer = Trim(Trimmer)
End Function

sText = " ciao, come stai? io bene e tu? "
Response.Write "Stringa di partenza: " & Replace(sText, " ", " ")
Response.Write "Stringa elaborata: " & Replace(Trimmer(sText), " ", " ")
%>

[centro]

grazie mexican.. ma non mi funge... forse perchè... il testo mi arriva da una textarea....
mi sta facendo impazzire.. sta cosa.. mannagia li pescetti

[centro]

pensavo funzionasse.....

ed ho fatto la stessa cosa.. anche per quanto riguarda gli invii di troppo.....

        arrTrim = Split(abRs("testo_abs"), " ")
    Trimmer=""
    For i = LBound(arrTrim) To UBound(arrTrim)
    If arrTrim(i)<>"" Then Trimmer = Trimmer & arrTrim(i) & " "
    Next
    Trimmer = Trim(Trimmer)

    BRTrim = Split(Trimmer,vbCrLf )
    BRTrimmer=""
    For i = LBound(BRTrim) To UBound(BRTrim)
    If BRTrim(i)<>"" Then BRTrimmer = BRTrimmer & BRTrim(i) & vbCrLf
    Next
    testo_abstract = Trim(BRTrimmer) 

non so che succede.. se riformatto il testo nella text area mi funziona..
se poi vado a creare il pdf non mi funge,...

anzi mi taglia il testo......sarà forse la libreria fpdf?

[willybit]

Ciao a tutti,

per queste operazioni sulle stringhe invece di fare dei cilcli è meglio usare le regular expressions.
Faccio un esempio per eliminare tutti gli spazzi e i ritorni a capo in più

<%
if Request.Form<>"" then
  Set RE = CreateObject("VBScript.RegExp")
  RE.Global=true
  RE.Multiline=true
  RE.Pattern=" {2,}"
  str=RE.Replace(Request.Form("NomeTextArea")," ")
  RE.Pattern="(\r\n){2,}"
  str=RE.Replace(str,vbCrLf)
end if
%>
<form method="post">
<textarea name="NomeTextArea" cols="50" rows="8"><%=Request.Form("NomeTextArea")%></textarea>
<hr>
<textarea name="NomeTextArea2" cols="50" rows="8"><%=str%></textarea>
<hr>
<input type="submit" name="NomeSubmit" value="submit">
</form>