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


  共有3195人关注过本帖树形打印复制链接

主题:求狐表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))
Next
Dim e As String
For i As Integer = 0 To  v.length - 1 Step 2
    e = e & DecToHex(v.SubString(i,2))
Next
Output.Show(e)

 回到顶部