1、识别最后的一个是否汉字
regex = CreateObject("VBScript.RegExp")
regex.Pattern ="^([\u4e00-\u9fa5]){1,8}$"
nstr=RIGHTC('中华人民共和国',1)
IF regex.test(nstr)
    MESSAGEBOX('是汉字')
else
    MESSAGEBOX('非汉字')
ENDIF
RELEASE regex
2、但看楼主提这样的问题，可能是想截取字符串，如是这样就只需识别“全角”和“半角”
如：每截取9个字符的字符串：
STR='中华人民共和国１1ＡＢ1234中华人民共和国１1ＡＢ1234中华人民共和国１1ＡＢ1234'
I=1
L=9
STR1=''
*******************************
i=I+LEN(STR1)
STR1=SUBSTRC(SUBSTR(STR,I,L),1) &&取第1段
?STR1
*****************************
i=I+LEN(STR1)
STR1=SUBSTRC(SUBSTR(STR,I,L),1) &&取第2段
?STR1
*******************************
i=I+LEN(STR1)
STR1=SUBSTRC(SUBSTR(STR,I,L),1) &&取第3段
?STR1
*按此类推......
if empty(STR1)
    wait wind '截取完毕'
endif

邓版，我写的是RIGHTC，不是RIGHT。

哦~

各位大师，我的本意就是一段字符很长，如40个字符，只取1-10个字符，就是最后一个字符出现半角"?"，判别不了取不好。

论坛上有这方面的内容自己找吧

先取要取的最后一个字符（如第10个），读取这年字符的ASC码，如果大于127，则取11个字符，否则就取10个字符。这个思路的前提是字符串中不存在制表符，因为现在用制表符的人几乎没有了。

都不看前面回覆的。讀明白了17所說的，結合前面所給的代碼，自然知道這個問題怎麼思考、如何解決。

[ 本帖最后由 TonyDeng 于 2013-12-11 21:21 编辑 ]

画人像，连他的肠都画出来给你看了，还不明白吗

STR='各位大师，我的本意就是一段字符很长，如40个字符，只取1-10个字符，就是最后一个字符出现半角"?"，判别不了取不好。'
STR1=SUBSTRC(SUBSTR(STR,1,10),1) &&只取1-10个字符

看看这样可以否

楼主啊，不知道说你啥了，看来你没仔细研读过取子串的那几个函数呀。其实，很简单的，如果要取头10个字符：LEFTC(字符串,10)，取最后10个字符：RIGHTC(字符串,10)。取双字节子串的函数是单双字节通吃的。也就是说，取双字节子串的函数可以用在全部是纯单字节内容的字符串上的。明白了吗？

大师们，第一次的内容就很清楚了，第二次提问，就是想更多的听取大师的指点，让我等水平的人多学点。谢谢了