Foxtable(狐表)用户栏目专家坐堂 → 老六已经解决2个问题:进制转换和全半角转换


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

主题:老六已经解决2个问题:进制转换和全半角转换

帅哥哟,离线,有人找我吗?
kylin
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 F6
等级:狐精 帖子:3030 积分:19188 威望:0 精华:2 注册:2008/9/1 7:50:00
老六已经解决2个问题:进制转换和全半角转换  发帖心情 Post By:2009/6/22 11:19:00 [只看该作者]

1、关于字符增加2个方法:全角和半角转换
2、十六进制与二进制的转换

作系统需要解决以上问题

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

 回到顶部
帅哥哟,离线,有人找我吗?
狐狸爸爸
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47448 积分:251054 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By: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进制数


 回到顶部
帅哥哟,离线,有人找我吗?
狐狸爸爸
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47448 积分:251054 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By: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
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 F6
等级:狐精 帖子:3030 积分:19188 威望:0 精华:2 注册:2008/9/1 7:50:00
  发帖心情 Post By:2009/6/22 11:42:00 [只看该作者]

谢谢图片点击可在新窗口打开查看

 回到顶部