# 辨别中文字

Posted by 小吴 on May 26, 1998 at 23:32:19:

In Reply to: please help me,write a posted by on May 26, 1998 at 21:02:28:

如果我告诉你如何办别中英文字，那你是不是有办法自己把程式写出来呢？

首先你用 For loop 及 Mid$ 依序取出每个字元假设定 strChar。然后

If LenB(StrConv(strChar, vbFromUnicode)) = 2 Then
是中文字
Else
是英文字
End If

当你发现上一个字和目前这个字元的状态不同时 (例如从中文变英文，或英文变中文)，只要补上空白就行了。

上面这个方法可以解决大部份情况。如果你要作到完全正确，你还必须过滤掉全形的标点符号，因为英文和全形标点符号之间应该不用空白才对。

Follow Ups: