Problema eliminazione punteggiatura

[fabiodj]

Ciao Rsga
Ho questa stringa e devo poter eliminare man mano che cancello le email anche la punteggiatura.
Nell'esempio che posto ci sono riuscito ma se decido di cancellare anziché la mail centrale proporio quella iniziale mi rimane il punto e virgiolo.
Posto il codice perché non ho trovato la soluzione su come fare; accetto aiuto

riga ="mio@miomail.it;mio@miomail2.it,mio@miomail3.i t"
eliminamail = mio@miomail2.it

stringa = replace(riga,eliminamail,"")
stringa = Replace (stringa,";;",";")
stringa = Trim(stringa)
stringa = split (stringa,"")
for i = 0 to ubound(stringa)
s_stringa = stringa(i)

IF i=0 then
chrstringa = Len(s_stringa)-1
new_riga = Left(s_stringa,chrstringa)
else
new_riga= new_stringa &"," & s_stringa
end if
next

[Roby_72]

Secondo me ti conviene prima aggiungere alla variabile riga iniziale il ; alla fine.
In questo modo recupererai tutte le email seguite da ; e con lo stesso procedimento le andrai a cancellare.

Roby

[fabiodj]

Grazie socio ....
Io dopo tanti tentativi sono riuscito a gestire la cosa con + replace; te cosa ne pensi?
Ma secondo te esiste da qualche parte una regular expression per eliminare punteggiatura e caratteri speciali ?


stringa = replace(riga,eliminamail,"")
stringa = Replace (stringa,";;",";")
stringa = Replace (stringa,";"," ")
stringa = Trim(stringa)
stringa = split (stringa,"")
for i = 0 to ubound(stringa)
s_stringa = stringa(i)

IF i=0 then
new_riga = s_stringa
else
new_riga= new_stringa &";" & s_stringa
end if
next

[Roby_72]

Certo che esiste ma se te li toglie poi non riconosci più le email...
Con il mio suggerimento dovevi fare solo una replace.

Roby