以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  如何实现字符串形式的16进制转成整数的方法  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=20559)
--  作者：涛声依旧5666
--  发布时间：2012/6/12 13:19:00
--  如何实现字符串形式的16进制转成整数的方法
各位高手，有谁知道将字符串形式的16进制转成整数的方法。
16进制的字符串为：“0","1","2","3","4","5","6","7","8","9","A","B","C","D","E","F"
要转成整数型，分别是：1,2,3,4,5,6,7,8,9,10,11,12,13,14,15
[此贴子已经被作者于2012-6-12 13:19:08编辑过]
--  作者：狐狸爸爸
--  发布时间：2012/6/12 14:19:00
--  

参考：

http://www.foxtable.com/help/topics/1622.htm

 
--  作者：涛声依旧5666
--  发布时间：2012/6/12 18:00:00
--  

狐爸的方法，是数值型之间的转换吧？我的意思是字符与数值之间的转换。

试了一个下午，下面的方法似乎可行：

 

 

Dim s As Char   ‘定义字符型变量
Dim d As Integer   、定义整数型变量
Dim ss As String    、定义字符串
For i as Integer = 0 To 512
    s = convert.Tochar(d)   ’将整数转换成字符
    ss +=s                    ‘添加到字符串中
Next
output.show("******" & ss.length & ******" )

For i As Integer = 0 To ss.Length-1
    s=ss(i)                       ’取出字符
    d=convert.toint32(s)   ‘将字符转换成整数
    output.show(d)
Next
output.show("ok")

 

 

现分享啦。