以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  老六已经解决2个问题:进制转换和全半角转换  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=3232)

--  作者:kylin
--  发布时间:2009/6/22 11:19:00
--  老六已经解决2个问题:进制转换和全半角转换
1、关于字符增加2个方法:全角和半角转换
2、十六进制与二进制的转换

作系统需要解决以上问题

如有替代办法也行,先谢过了
[此贴子已经被作者于2009-6-22 11:53:04编辑过]

--  作者:狐狸爸爸
--  发布时间:2009/6/22 11:29:00
--  
16进制

Dim Val As string = Convert.ToString(1234,16)

2进制

Dim Val As string = Convert.ToString(1234,2)

10进制

Dim Val As string = Convert.ToString(&H7B,10)  \'&H开始表示16进制数


--  作者:狐狸爸爸
--  发布时间:2009/6/22 11:33:00
--  
转半角:

\'\'\'...
Dim Val As String = "123"
Val = StrConv(Val, VbStrConv.Narrow, 0)
Output.show(val)


转全角:

\'\'\'...
Dim Val As String = "123"
Val = StrConv(Val, VbStrConv.Wide, 0)
Output.show(val)

--  作者:kylin
--  发布时间:2009/6/22 11:42:00
--  
谢谢图片点击可在新窗口打开查看