下面是部分代码,简单的说,就是自己判断是否是汉字,然后按双字节的字符去处理它if AscB(MidB(strFrom, i, 1)) > 127 then strTo = strTo & chr(Ascb(MidB(strFrom, i, 1))*256+Ascb(MidB(strFrom, i+1, 1))) i = i + 1 else strTo = strTo & ChrW(AscB(MidB(strFrom, i, 1))) end if