求狐表16位转字符串，字符串转16位代码 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 求狐表16位转字符串，字符串转16位代码

共有3181人关注过本帖树形打印复制链接主题：求狐表16位转字符串，字符串转16位代码

lhpc120

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：633 积分：6320 威望：0 精华：0 注册：2011/5/8 13:21:00

求狐表16位转字符串，字符串转16位代码 发帖心情

Post By：2015/4/28 18:35:00 [只看该作者]

4355543130302D42474D2056312E303120323031332D31312D323800

43 55 54 31 30 30 2D 42 47 4D 20 56 31 2E 30 31 20 32 30 31 33 2D 31 31 2D 32 38 00

以上文本返回的字符串是 CUT100-BGM V1.01 2013-11-28

求方法啊！！

希望大神顶起来

有点酸

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：五尾狐帖子：1093 积分：6682 威望：0 精华：0 注册：2013/7/1 9:05:00

Post By：2015/4/28 21:39:00 [只看该作者]

Dim s As String = "4355543130302D42474D2056312E303120323031332D31312D323800"
Dim bte(s.Length / 2 -1) As Byte
For i As Integer = 0 To bte.length - 1
bte(i) = HexToDec(s.SubString(i*2,2))
Next

Return encoding.default.getstring(bte)

狐狸爸爸

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：管理员帖子：47448 积分：251048 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：2015/4/29 8:32:00 [只看该作者]

这样更简单，全是帮助的知识：

Dim s As String = "4355543130302D42474D2056312E303120323031332D31312D323800"
Dim v As String
For i As Integer = 0 To s.length - 1 Step 2
v = v & chr(HexToDec(s.SubString(i,2)))
Next
Return v