replace double quote by single quote 1

[henryz]

Hello Everybody,

I have a funny experience. In a case I want to replace all double quotes in
my data content by single quotes. I use function like this:

Function StrQuoteReplace(strValue)
// Replace any double quote in strValue with one single quote.
// The second argument to Replace consists of
// one double quote enclosed in a pair of double quotes.
// The third argument to Replace consists of
// one single quote enclosed in a pair of double quotes.
StrQuoteReplace = Replace(strValue, " " ", " ' &quot

End Function

but I don't know for some reason the code does not work, I have a compile
error, the message is in the following:

"Microsoft VBScript compilation error '800a03ee'

Expected ')'

StrQuoteReplace = Replace(strValue, """, "'&quot
------------------------------------------^"

Any Suggestions will be most welcome.

Thanks in advance

Henry

 

[xscape]

Don't you need a forward slash infront of the " inside the quote marks, or it thinks you're closing the string and opening one again without closing it. I'm a Java guy not VB but I guess the principals the same, try "/"" I think that's right.

 

[henryz]

Dear xscape,

It does not work as you suggested. Thanks a lot anyway.

Henry

 

[Guest_imported]

Try this:

StrQuoteReplace = Replace(strValue,chr(34),"'&quot

 

[Mighty]

Because you are placing a double quote within double quotes, you need to use two. This will work:

StrQuoteReplace = Replace(strValue, """", "'&quot
Mise Le Meas,

Mighty