锐客网

  1. 首页 > 睿知 > it技术 > >

vb.net中文转gbk vb数字转汉字

汉字IT技术

vb.net 写入sqlite 中文时 ， 在sqlite显示的是乱码 ， 这样不好管理，请问怎么解决？并非SQLite的乱码 。windows的命令行console窗口只支持GBK的汉字 。。
数据库内容为unicode/utf8/utf16等其他汉字编码时，将不能在win命令行窗口显示正确 。
建一个console.bat文件，写上
chcp 65001
cmd
【vb.net中文转gbk vb数字转汉字】然后建一个快捷方式到这个文件，把快捷方式的字体改成宋体
然后就可以使用sqlite命令并显示utf-8的内容
或者 ， 库中的文字也用GBK编码，就可直接显示 。
请问在VB中如何将unicode转换成GBK码发送 ， 要任意字符串的 。这是一段文字转成unicode的，然后再转成gbkGBK编码与Unicode编码“兼容” ， 应该说它们的编码是一致的吧？
也就是说你转换出的Unicode编码就是你要的GBK编码呀 。
如果要转换成你要的这种“格式”的Unicode编码 ， For循环中没必要用If去判断 。
这样就行了：
strTemp = ""
For i = 1 To Len(aa)
strTemp = strTempRight$("0000"Hex$(AscW((Mid$(aa, i, 1)))), 4)
Next
Text2.Text = strTemp
在VB6中怎么取得一个汉字字符的编码？VB内部采用unicode，必须转换 。
Dim b() As Byte
b = StrConv("你", vbFromUnicode)
'转换为本地机器编码,GB2312/GBK
Debug.Print Hex(CCur(b(0)) * 256b(1))
但是这样得出的结果是"C4E3"，你所说的"4F60"并不是GBK/GB2312码 ， 而是unicode码，用以下程序得到：
Debug.Print Hex(ascw("你"))
vb怎么把汉字转换成gbk编码vb 怎么把汉字转换成gbk编码参考方法如下vb.net中文转gbk：面vb.net中文转gbk的两段VB代码分别针对UTF-8（UTF8EncodeURI）和GB2312（GBKEncodeURI）进行vb.net中文转gbk了编码vb.net中文转gbk的转换 。Private Sub command1_click()Debug.Print (UTF8EncodeURI("汉字"))Debug.Print (GBKEncodeURI("汉字"))End SubFunction UTF8EncodeURI(szInput)Dim wch, uch, szRetDim xDim nAsc, nAsc2, nAsc3If szInput = "" ThenUTF8EncodeURI = szInputExit FunctionEnd IfFor x = 1 To Len(szInput)wch = Mid(szInput, x, 1)nAsc = AscW(wch)If nAsc0 Then nAsc = nAsc65536If (nAsc And HFF80) = 0 ThenszRet = szRetwchElseIf (nAsc And HF000) = 0 Thenuch = "%"Hex(((nAsc \ 2 ^ 6)) Or HC0)Hex(nAsc And H3F Or H80)szRet = szRetuchElseuch = "%"Hex((nAsc \ 2 ^ 12) Or HE0)"%"_Hex((nAsc \ 2 ^ 6) And H3F Or H80)"%"_Hex(nAsc And H3F Or H80)szRet = szRetuchEnd IfEnd IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput)Dim i As LongDim x() As ByteDim szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)szRet = szRet"%"Hex(x(i))NextGBKEncodeURI = szRetEnd Function
vb 怎么把汉字转换成gbk编码vb 怎么把汉字转换成gbk编码
参考方法如下vb.net中文转gbk：
面vb.net中文转gbk的两段VB代码分别针对UTF-8（UTF8EncodeURI）和GB2312（GBKEncodeURI）进行vb.net中文转gbk了编码vb.net中文转gbk的转换 。
Private Sub command1_click()
Debug.Print (UTF8EncodeURI("汉字"))
Debug.Print (GBKEncodeURI("汉字"))
End Sub
Function UTF8EncodeURI(szInput)
Dim wch, uch, szRet
Dim x
Dim nAsc, nAsc2, nAsc3
If szInput = "" Then
UTF8EncodeURI = szInput
Exit Function
End If
For x = 1 To Len(szInput)
wch = Mid(szInput, x, 1)
nAsc = AscW(wch)
If nAsc0 Then nAsc = nAsc65536
If (nAsc And HFF80) = 0 Then
szRet = szRetwch
Else
If (nAsc And HF000) = 0 Then
uch = "%"Hex(((nAsc \ 2 ^ 6)) Or HC0)Hex(nAsc And H3F Or H80)
szRet = szRetuch
Else
uch = "%"Hex((nAsc \ 2 ^ 12) Or HE0)"%"_
Hex((nAsc \ 2 ^ 6) And H3F Or H80)"%"_
Hex(nAsc And H3F Or H80)
szRet = szRetuch
End If
End If
Next
UTF8EncodeURI = szRet
End Function
Function GBKEncodeURI(szInput)
Dim i As Long
Dim x() As Byte
Dim szRet As String
szRet = ""
x = StrConv(szInput, vbFromUnicode)
For i = LBound(x) To UBound(x)
szRet = szRet"%"Hex(x(i))
Next
GBKEncodeURI = szRet
End Function
vb.net用GetBytes时GBK特殊字符乱码，中文正常GetBytes 方法是获取字符串的字节数组序列，与之相反的是
Encoding.GetString 方法，把字节数组还原成字符串，参考：
vb.net中文转gbk的介绍就聊到这里吧，感谢你花时间阅读本站内容，更多关于vb数字转汉字、vb.net中文转gbk的信息别忘了在本站进行查找喔 。

    推荐阅读


    上一篇：如何确认服务器端口是否开放？ 怎么检测服务器端口开放

    下一篇：如何搭建iOS软件的服务器端？ ios软件服务器端怎么做