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

vb.net 写入sqlite 中文时，在sqlite显示的是乱码，这样不好管理，请问怎么解决？

并非SQLite的乱码。windows的命令行console窗口只支持GBK的汉字。。

数据库内容为unicode/utf8/utf16等其他汉字编码时，将不能在win命令行窗口显示正确。

建一个console.bat文件，写上

chcp 65001

cmd

然后建一个快捷方式到这个文件，把快捷方式的字体改成宋体

然后就可以使用sqlite命令并显示utf-8的内容

或者，库中的文字也用GBK编码，就可直接显示。

相关问答

Q1: 请问在VB中如何将unicode转换成GBK码发送，要任意字符串的。这是一段文字转成unicode的，然后再转成gbk

GBK编码与Unicode编码“兼容”，应该说它们的编码是一致的吧？

也就是说你转换出的Unicode编码就是你要的GBK编码呀。

如果要转换成你要的这种“格式”的Unicode编码，For循环中没必要用If去判断。

这样就行了：

strTemp = ""

For i = 1 To Len(aa)

   strTemp = strTemp  Right$("0000"  Hex$(AscW((Mid$(aa, i, 1)))), 4)

Next

Text2.Text = strTemp

Q2: 在VB6中怎么取得一个汉字字符的编码？

VB内部采用unicode，必须转换。

Dim b() As Byte

b = StrConv("你", vbFromUnicode)

'转换为本地机器编码,GB2312/GBK

Debug.Print Hex(CCur(b(0)) * 256 + b(1))

但是这样得出的结果是"C4E3"，你所说的"4F60"并不是GBK/GB2312码，而是unicode码，用以下程序得到：

Debug.Print Hex(ascw("你"))

Q3: 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 nAsc 0 Then nAsc = nAsc + 65536If (nAsc And HFF80) = 0 ThenszRet = szRet wchElseIf (nAsc And HF000) = 0 Thenuch = "%" Hex(((nAsc \ 2 ^ 6)) Or HC0) Hex(nAsc And H3F Or H80)szRet = szRet uchElseuch = "%" Hex((nAsc \ 2 ^ 12) Or HE0) "%" _Hex((nAsc \ 2 ^ 6) And H3F Or H80) "%" _Hex(nAsc And H3F Or H80)szRet = szRet uchEnd 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

Q4: 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 nAsc 0 Then nAsc = nAsc + 65536

If (nAsc And HFF80) = 0 Then

szRet = szRet wch

Else

If (nAsc And HF000) = 0 Then

uch = "%" Hex(((nAsc \ 2 ^ 6)) Or HC0) Hex(nAsc And H3F Or H80)

szRet = szRet uch

Else

uch = "%" Hex((nAsc \ 2 ^ 12) Or HE0) "%" _

Hex((nAsc \ 2 ^ 6) And H3F Or H80) "%" _

Hex(nAsc And H3F Or H80)

szRet = szRet uch

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

Q5: vb.net用GetBytes时GBK特殊字符乱码，中文正常

GetBytes 方法是获取字符串的字节数组序列，与之相反的是

Encoding.GetString 方法，把字节数组还原成字符串，参考：

vb.net中文转gbk的介绍就聊到这里吧，感谢你花时间阅读本站内容，更多关于vb数字转汉字、vb.net中文转gbk的信息别忘了在本站进行查找喔。