以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  求狐表16位转字符串，字符串转16位代码  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=67671)
--  作者：lhpc120
--  发布时间：2015/4/28 18:35:00
--  求狐表16位转字符串，字符串转16位代码
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

求方法啊！！

希望大神顶起来
--  作者：有点酸
--  发布时间：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)
--  作者：狐狸爸爸
--  发布时间：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
--  作者：lhpc120
--  发布时间：2015/4/30 19:26:00
--  
谢谢啊~~
--  作者：lhpc120
--  发布时间：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)