replacing strange quote with standard quote

[Stimp]

I have a function to replace the strange quotes (Chr(8220) and
Chr(8221)) with standard quotes...

e.g. Public Shared Function TextFormat(ByVal InputString As String) As
String

InputString = InputString.Replace(Chr(8220), """")
InputString = InputString.Replace(Chr(8221), """")

TextFormat = InputString
End Function

usage: TextFormat(objRS("Description"))
This compiles fine, but when I run the page I get the following error:

Procedure call or argument is not valid

Line 340: InputString = InputString.Replace(Chr(8220), """")

Any ideas?

Thanks,
Peter

[Sergey Zuyev]

Try to use ChrW function instead.
ChrW takes CharCode as a Unicode code point

Public Shared Function TextFormat(ByVal InputString As String) As String
InputString = InputString.Replace(ChrW(8220), """")
InputString = InputString.Replace(ChrW(8221), """")

TextFormat = InputString
End Function
--
Programmer
"Stimp" wrote:

I have a function to replace the strange quotes (Chr(8220) and
Chr(8221)) with standard quotes...

e.g. Public Shared Function TextFormat(ByVal InputString As String) As
String

InputString = InputString.Replace(Chr(8220), """")
InputString = InputString.Replace(Chr(8221), """")

TextFormat = InputString
End Function

usage: TextFormat(objRS("Description"))
This compiles fine, but when I run the page I get the following error:

Procedure call or argument is not valid

Line 340: InputString = InputString.Replace(Chr(8220), """")

Any ideas?

Thanks,
Peter

[Stimp]

On Tue, 19 Sep 2006 Sergey Zuyev <Se*********@discussions.microsoft.comwrote:

Try to use ChrW function instead.
ChrW takes CharCode as a Unicode code point

Public Shared Function TextFormat(ByVal InputString As String) As String
InputString = InputString.Replace(ChrW(8220), """")
InputString = InputString.Replace(ChrW(8221), """")

TextFormat = InputString
End Function

worked a treat... thanks a million!
--

fiddlewidawiddum