摘要:
Function GBtoUTF8(szInput) Dim wch, uch, szRet Dim x Dim nAsc, nAsc2, nAsc3 '如果输入参数为空,则退出函数 If szInput = "" Then GBtoUTF8= szInput Exit Function End If '开始转换 For x = 1 To Len(szInput) wch = Mid(szInpu... 阅读全文
posted @ 2008-04-17 16:55
bullion
阅读(365)
评论(0)
推荐(0)
浙公网安备 33010602011771号