大师可在怎么判断二进制字符是中文还是英文

[gaowenzhen]

Tocn("2D 4E FD 56 BA 4E 61 62 63")
Function Tocn(s)

    Dim arr
    Dim i
    Dim txt
    arr = Split(RTrim(s))
    For i = 0 To UBound(arr) Step 2
       Tocn=Tocn& ChrW(CInt("&H" & arr(i+1)) * 256 + CInt("&H" & arr(i)))
    Next
End Function

2D 4E FD 56 BA 4E 61 62 63 这字符是:中国人abc

我想判断出这些(2D 4E FD 56 BA 4E 61 62 63 )字符是中文还是英文,上面程序只能理处中文,不能和英文一起理处,请大师帮助啊感谢

[Microogle]

为什么开始转换的时候不直接全部保存为双字节呢?
涉及到字符集编码识别了就是比较难过的事情。
如果不包含符号只包含英文和汉字的话，可以先判断是否为英文，然后再转换。

WScript.Echo Tocn("2D 4E FD 56 BA 4E 61 62 63")
Function Tocn(s)
On Error Resume Next
    Dim arr
    Dim i
    Dim txt
    arr = Split(RTrim(s))
    For i = 0 To UBound(arr)
    	If CInt("&H" & arr(i)) > 65 And CInt("&H" & arr(i)) < 122 Then
    		Tocn = Tocn & Chr(CInt("&H" & arr(i)))
    	Else
        	Tocn=Tocn& ChrW(CInt("&H" & arr(i+1)) * 256 + CInt("&H" & arr(i)))
        	i = i + 1
        End If
    Next
End Function

不保证100%的正确性。

[碧海情天-赵亮]

一般可见的普通字符（如英文字符以及其它一些符号，空格等）的ASCII码区间是32到128.

双字节字符集解决象形文字符和ASCII的某种兼容性。最初的128个代码是ASCII。较高的128个代码中的某些总是跟随着第二个字节。这两个字节一起（称作首字节和跟随字节）定义一个字符，通常是一个复杂的象形文字。

即碰到的第一个高于128的ASCII值，就可以认作是一个汉字的第一个字节，然后可跳过其后面的一个字节看下一个字节的ASCII值。

[gaowenzhen]

别提了，１，存入时必需要求是１０进制　可能是我中英文转成１０进制时出问题

然后再从１０进制还原出中英文．