[求助]请求编一VB转Unicode编码的文档为Ansi编码

xiaoquansb

因为某些原因要读取文本里的中文内容，可是用read-line读取的是乱码，这可办呀

找了很久，原来是内码问题，

如果是Ansi的没有问题，支持中文，但是Unicode的就会乱码，甚至出错

在网上搜到VB可以改编码，求大侠写函数让LISP调用

把Unicode编码的文档转为Ansi编码

还有反向操作

把Ansi编码的文档转为Unicode编码

vbUnicode 将 Ansi 字串转换为 Unicode
vbFromUnicode 将 Unicode 字串转换为 Ansi