Replacing Non-ASCII Charaters 1

[hc98br]

Hi, I'm having difficulty finding a solution to this problem, any help would be wonderful!!

I have some text that has loads of non-ascii characters in it - and I want to take them out, and have found the following code which works lovely!!:

Dim newDesc
Set objRegExp = New RegExp
objRegExp.Global = True
objRegExp.IgnoreCase = True
objRegExp.Pattern = "[^\x20-\x7E]"
newDesc = objRegExp.Replace(dataRS("description"), "")

Problem is I don't just want to lose the rouge characters, I want to convert them into HTML friendly character codes (e.g. &#8443 and I'm at a loss.

I tried, objRegExp.Replace(dataRS("description"), Asc("$&")), but it just returns the code of the $.

Many thanks in advance


Ben.

http://www.ben-robinson.com

 

[Sheco]

The Asc() function returns an integer representing the character code corresponding to the first letter in a string.

 

[Sheco]

Have you experimented with the Server.HTMLEncode method?

 

[hc98br]

As ever missed the simplest solution and when for the over complicated!!!

Server.HTMLEncode is perfect!


Many thanks!


Ben.

http://www.ben-robinson.com