摘要:
分享一个utf-8转字符串的函数。解决编码带来的错误!调用方法:Private Sub cmdConvert_Click() fm20TxtText.Text = FromUtf8(FromHex(fm20TxtHex.Text))End Sub函数如下:Private Declare Function CryptStringToBinary Lib "Crypt32" _ Alias "CryptStringToBinaryW" ( _ ByVal pszString As Long, _ ByVal cchString As Long, _ ByVa 阅读全文
posted @ 2013-07-22 17:24
Officecn
阅读(3601)
评论(0)
推荐(0)
浙公网安备 33010602011771号