ret_GBKEncode = "%"Hex(x(i))
Next
Return ret_GBKEncode
End Function
'GBK解码
Public Function GBKDecode(ByVal sInput As String) As String
sInput = sInput.Replace("%", "")
Dim ret_GBKDecode As String = ""
Dim sLen As Integer = sInput.Length
Dim n As Integer = sLen \ 2
Dim sBytes(0 To n - 1) As Byte
'转化为字节码
For i As Integer = 1 To n
sBytes(i - 1) = CByte("H"sInput.Substring(2 * i - 2, 2))
Next
'将字节码转化为字符串
ret_GBKDecode = System.Text.Encoding.Default.GetString(sBytes)
Return ret_GBKDecode
End Function
2.Unicode字符串为UTF-8
Imports System.Text
Public Function StringAsUtf8Bytes(ByVal strData As String) As Byte()
Dim bytes() As Byte
bytes = Encoding.UTF8.GetBytes(strData)
Return bytes
End Function
'这里可以类推出好几种 。
【vb.net字符转按键 vb字符串】关于vb.net字符转按键和vb字符串的介绍到此就结束了,不知道你从中找到你需要的信息了吗 ?如果你还想了解更多这方面的信息,记得收藏关注本站 。
推荐阅读
- 游戏厅射击游戏机设备价格,游戏厅射击游戏机设备价格多少
- 怎么学会用手机拍照,今天教大家如何用手机拍照
- 绝版打斗动作游戏,经典打斗视频
- c语言编程求分段函数的值 c语言如何求分段函数
- 钉钉中查看所有直播回放,钉钉如何查看直播回放
- python函数属性 python 函数属性
- wordpress单产品主题,wordpress二次元主题
- excel表格怎么设置,excel表格怎么设置页码
- 苹果七ios11.3和11.3.1,苹果7用1103系统怎么样