detect non-ASCII char

[Joy]

Function IsGoodAcii(c As String) As Boolean
Dim ObjRegExp As Object

Set ObjRegExp = CreateObject("vbscript.regexp")
ObjRegExp.Global = True
ObjRegExp.Pattern = "[^\x20-\x7E]"
IsGoodAcii = ObjRegExp.test(c)
End Function

We use the above the code to detect non-ASCII char in Name
We have values like 'ABC', which are simply English characters. The above
checker works alright. However
for some computers, especially with non-English language, the above function
detects that the value is not ASCII.

Why it works OK for some machines but fails on others (with non-English
language)?
Thanks

 

[Stephen Sanderlin [MVP]]

Try setting your pattern to [^A-Za-z 0-9
\.,\?'""!@#\$%\^&\*\(\)-_=\+;:<>\/\\\|\}\{\[\]`~]* instead of using the
\x matching.

--
Stephen Sanderlin, Project MVP
VP of Technology
msProjectExperts

For Project Server Consulting: http://www.msprojectexperts.com
For Project Server Training: http://www.projectservertraining.com

Read our blog at: http://www.projectserverhelp.com

 

[Joy]

I will try that.
thanks

Try setting your pattern to [^A-Za-z 0-9
\.,\?'""!@#\$%\^&\*\(\)-_=\+;:<>\/\\\|\}\{\[\]`~]* instead of using the
\x matching.

--
Stephen Sanderlin, Project MVP
VP of Technology
msProjectExperts

For Project Server Consulting: http://www.msprojectexperts.com
For Project Server Training: http://www.projectservertraining.com

Read our blog at: http://www.projectserverhelp.com

Function IsGoodAcii(c As String) As Boolean
Dim ObjRegExp As Object

Set ObjRegExp = CreateObject("vbscript.regexp")
ObjRegExp.Global = True
ObjRegExp.Pattern = "[^\x20-\x7E]"
IsGoodAcii = ObjRegExp.test(c)
End Function

We use the above the code to detect non-ASCII char in Name
We have values like 'ABC', which are simply English characters. The above
checker works alright. However
for some computers, especially with non-English language, the above function
detects that the value is not ASCII.

Why it works OK for some machines but fails on others (with non-English
language)?
Thanks

.