Replace ,

[Gio&Ste]

Ho un form che permette agli utenti di un sito di inviare del testo ad un db. Alle volte la gente per fretta o dimenticanza si dimentica di mettere gli spazi dopo le virgole e i punti.
Come posso fare per farli inserire nel momento in cui invia i dati al db? ed evitare di ritrovarmi con un doppio spazio dopo il punto o la virgola nei casi in cui lo spazio è già stato inserito da chi scrive il messaggio?

[vaargard]

cerca i punti e le virgole del testo con instr partendo dalla prima posizione, una volta trovato controlli il carattere successivo, se non è lo spazio spezzi il testo (tanto la posizione in cui ti trovi la sai già) e gli aggiungi lo spazio ... che ne dici?

[optime]

1. sostituisci virgola e spazio con #@ (due caratteri a caso)
2. sostituisci la virgola con virgola e spazio
3. sostituisci i due caratteri ad muzzum di cui sopra con virgola e spazio

that easy!

[Gio&Ste]

Ho fatto così e sembra funzionare

Messaggio = Replace(Messaggio, ", ", "#@", 1, -1, 1)
Messaggio = Replace(Messaggio, ",", "#@", 1, -1, 1)
Messaggio = Replace(Messaggio, "#@", ", ", 1, -1, 1)

[optime]

optime. lascia una birra pagata.

[Gio&Ste]

in quale BAR???

[Gio&Ste]

Funziona tutto bene finchè si tratta di inserire le news, nel momento in cui vado a modificarle al posto della virgola mi compare: #@

Cosa devo fare?

[optime]

posta un po' di codice

[Gio&Ste]

<%
Conn_String = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("../mdb-database/db.mdb") 
Set conn = Server.CreateObject("ADODB.Connection")
conn.open Conn_String

IDNews = Request.QueryString("IDNews")

Set RS = conn.Execute("select * from comunica where ID =" & IDNews )

strMessage = RS("Articolo")

strMessage = Replace(strMessage, "
" & vbCrLf, vbCrLf, 1, -1, 1)
strMessage = Replace(strMessage, "
", vbCrLf, 1, -1, 1)
strMessage = Replace(strMessage, ", ", "#@", 1, -1, 1)
strMessage = Replace(strMessage, ",", "#@", 1, -1, 1)
atrMessage = Replace(strMessage, "#@", ", ", 1, -1, 1)
%>
<form .....>
Articolo <textarea rows="8" name="Articolo" cols="61"><%=strMessage%>
...
...
<input type="submit">
</form>

[optime]

aguzza la vista! c'e' un erroruccio nell'ultima replace...