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
延伸阅读
文章来源于领测软件测试网 https://www.ltesting.net/
发布: 2007-6-30 18:56 | 作者: admin | 来源: | 查看: 19次 | 进入软件测试论坛讨论
文章来源于领测软件测试网 https://www.ltesting.net/