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

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

共有3207人关注过本帖树形打印复制链接主题：求狐表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

求方法啊！！

希望大神顶起来

lhpc120

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

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

Post By：2015/4/30 19:26:00 [显示全部帖子]

谢谢啊~~

lhpc120

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

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

Post By：2015/4/30 19:42:00 [显示全部帖子]

补充一条：

Dim s As String = "CUT100-BGM V1.01 2013-11-28"

Dim v As String

For i As Integer = 0 To s.length - 1 Step 1

v = v & Asc(s.SubString(i,1))

Dim e As String

For i As Integer = 0 To v.length - 1 Step 2

e = e & DecToHex(v.SubString(i,2))

Output.Show(e)

主题：求狐表16位转字符串，字符串转16位代码