Public Function GBKEncode(ByVal sInput As String) As String
Dim ret_GBKEncode As String = ""
Dim i As Integer
Dim startIndex As Integer = 0
Dim endIndex As Integer
Dim x() As Byte = System.Text.Encoding.Default.GetBytes(sInput) '字符以及字符串在vb2008中都是以unicode编码存储的
endIndex = x.Length - 1
For i = startIndex To endIndex
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
vb.net获得文本框内每个字的位置可以用多个label来截取文本，然后把一个空的文本框放到中间去 。
【vb.net汉字区位 vb中汉字怎么比较】关于vb.net汉字区位和vb中汉字怎么比较的介绍到此就结束了，不知道你从中找到你需要的信息了吗 ？如果你还想了解更多这方面的信息，记得收藏关注本站 。
推荐阅读
- g41主板配什么四核cpu，g41主板可以配什么cpu
- thinkphpdebuglog的简单介绍
- 慢动作恐怖游戏，恐怖游戏动图
- 21个g能看多久虎牙直播，21个g能看多久虎牙直播啊
- mysql这个单词怎么读 mysql英文怎么读
- Flutter音频播放器，flutter 播放音频
- 动作射击rpg游戏，射击动作类游戏
- redis消息机制，redis实现消息队列的方式
- go语言学习推荐 go语言教程推荐