Replace

marcostraf · May 17th, 2005, 01:24 PM

Public Function fix_characters(ByVal strValue As String) As String
    Dim temp As String
    temp = Replace(strValue, "'", "")
    temp = Replace(temp, ":", "")
    temp = Replace(temp, ",", "")
    fix_characters = Replace(temp, """", "")
End Function

Marco

crmpicco · May 18th, 2005, 09:47 AM

thanks,

this works ok now:

Code:

''''''''''''''''''''''''''''''''''''''''''''''''''''
' Replace all problematic characters with ""
'''''''''''''''''''''''''''''''''''''''''''''''''''
Public Function fix_characters(ByVal strValue As String) As String
    fix_characters = Replace(strValue, "'", "")
    fix_characters = Replace(strValue, ":", "")
    fix_characters = Replace(strValue, ",", "")
    fix_characters = Replace(strValue, """", "")
    fix_characters = Replace(strValue, "`", "")
End Function

www.crmpicco.co.uk
www.crmpicco.co.uk.tt
www.milklemonadechocolate.uk.tt
www.griswolds.uk.tt
www.piccosmini.co.uk.tt
www.morton.uk.tt

marcostraf · May 19th, 2005, 04:26 PM

I will *very* surprised if that works... please check the code we sent you.
Look at your code: strValue is never changed, and fix_characters is assigned at the end, thus only the "`" will be removed.
Marco

gbianchi · May 20th, 2005, 09:57 AM

hey guys i appoint that problem some post ago!!!

HTH

Gonzalo

marcostraf · May 20th, 2005, 01:30 PM

Hi Gonzalo,
this is I I said to picco "WE sent you"... :-)
Marco

gbianchi · May 20th, 2005, 01:34 PM

(looks confused while hiding himself under the table)

that king of thing happends when is not your first language ;)

;) sorry marco

HTH

Gonzalo