参考文档:http://www.linuxforum.net/books/UTF-8-Unicode.html 代码如下: =========================================== 代码如下:[removed] ‘http://www.linuxforum.net/books/UTF-8-Unicode.html Public Function UTF8EncodeChar(z) Dim c : c=AscW(z)’取UNICODE编码 if c>0 And c<256 Then’Asc编码直接返回 UTF8EncodeCh
