eliminare gli invii da una stringa

[andgio76]

ciao ragazzi io ho questo problema
nel database ho memorizzato un stringa con degli inviii
es.
CAPPELLO
100% originale
G-UNIT by RBK

Il gruppo hip hop G Unit (di cui fa anche parte 50 Cent) ha creato in collaborazione con Reebok una linea d'abbigliamento.

Come posso prendere questa stringa e metterla tutta sulla stessa riga? (quindi eliminando gli invii?
grazie
dimenticavo ho provato a fare questo ma senza risultati:

modifica=replace(testo,chr(127),"")

[optime]

fai la replace con VbCrLf

[andgio76]

ho già provato ma non funziona!

[optime]

prova allora con CHR(10) o CHR(13)

[andgio76]

ok provo immediatamente!
o meglio quando il mio sito riprende a funzionare!
ciao e grazie

[andgio76]

ok funziona grazie mille
bisogna fare due replace una con chr (10)l'altra con cht
r(13)
grazie mille!

[andgio76]

ok funziona grazie mille
bisogna fare due replace una con chr (10)l'altra con cht
r(13)
grazie mille!ti chiedo ancora una cosa velocissima!

adesso ho questa situazione:

CAPPELLO 100% originale G-UNIT by RBK Il gruppo hip hop G Unit (di cui fa anche parte 50 Cent) ha creato in collaborazione con Reebok una linea d'abbigliamento.
come posso lasciare solo uno spazio tra una parola e l'altra?

[optime]

sempre con la replace.

parolanauova=replace(parolavecchia, chr(10) & chr(13), chr(32))

[andgio76]

cosi' mi dà la stringa vuota!

ma se io avessi una stringa dove ci sono piu' spazi
es "ciao a tutti"
non c'è una funzione che mi lascia solo uno spazio tra una parola e l'altra?

[andgio76]

ho risolto il problema usando questa funzione

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


Volevo chiedervi ancora una cosa!

Come posso contare quanti spazi ci sono in una stringa?