Thread: Replace
View Single Post
  #10 (permalink)  
Old May 17th, 2005, 09:45 AM
gbianchi gbianchi is offline
Friend of Wrox
Points: 7,395, Level: 36
Points: 7,395, Level: 36 Points: 7,395, Level: 36 Points: 7,395, Level: 36
Activity: 0%
Activity: 0% Activity: 0% Activity: 0%
 
Join Date: Jun 2003
Location: Capital Federal, , Argentina.
Posts: 2,189
Thanks: 5
Thanked 59 Times in 57 Posts
Send a message via MSN to gbianchi
Default

mmm you have to replace that chars with nothing or with "" (double quote)...

also.. you will only replace the """" b/c you are using always the same destination...

do something like this¨

Code:
Public Function fix_characters(ByVal strValue As String) As String
[TAB]dim sStrTemp as string
    sStrTemp = Replace(strValue, "'", "")
    sStrTemp = Replace(sStrTemp , ":", "")
    sStrTemp = Replace(sStrTemp , ",", "")
    sStrTemp = Replace(sStrTemp , """", "")
fix_characters = sStrTemp 
End Function




HTH

Gonzalo
Reply With Quote