VB如何只读取字符串中的数字部分??

逐个字符判断，是否为 "+-0123456789." 中的一个，取出连续的数值部分问题不明确啊

比如：
dim s as string
dim v as long

s="123abc456efg"
如果你只要123，那么有现成的函数：
v=val(s)

如果你要123456,如老鸟所言，逐个字符判断，或者用正则


遍历~Private Sub Command1_Click()
Dim i As Integer
Dim a As Double
For i = 1 To Len(Text1)
Text2 = Val(Mid(Text1, i, Len(Text1) - i + 1))
If Text2 <> 0 Then
Exit For
End If
Next
End Sub

Private Sub Form_Load()
Text1 = "abc1234.56bcd"
End Sub来晚了'引用 Microsoft VBScript Regular Expressions x.x
Dim re As RegExp

Set re = New RegExp
re.Pattern = "\D"
re.Global = True
Debug.Print re.Replace("123abc456efg", "")


[url=http://www.vbbaike.com/show.asp?id=101050]如何限制软件的使用期限? [/url]

[url=http://www.vbbaike.com/show.asp?id=101049]VC编写的控件在VB下使用的问题[/url]

[url=http://www.vbbaike.com/show.asp?id=101048]帮忙看看这句[/url]

[url=http://www.vbbaike.com/show.asp?id=101047]msde的安装方法[/url]

[url=http://www.vbbaike.com/show.asp?id=101046]请问在vba中如何加载当前路径dll[/url]

[url=http://www.vbbaike.com/show.asp?id=101045]VB菜鸟求救：Stuff_MIS 查询错误：标准表达式中数据类型不匹配[/url]

[url=http://www.vbbaike.com/show.asp?id=101044]API中的GetComputerName如何调用?[/url]

[url=http://www.vbbaike.com/show.asp?id=101043]autocad的文件怎么样能导入vb中[/url]

[url=http://www.vbbaike.com/show.asp?id=101042]怎么做字符串链表[/url]

[url=http://www.vbbaike.com/show.asp?id=101041]高分求:将access数据库中某个表中指定字段导出成字段宽度、类型有限制的viual foxpro表[/url]

[url=http://www.vbbaike.com/show.asp?id=101040]关于考试试卷自动生成系统[/url]

[url=http://www.vbbaike.com/show.asp?id=101039]如何限制软件的使用期限? [/url]

[url=http://www.vbbaike.com/show.asp?id=101038]如何限制软件的使用期限?[/url]

[url=http://www.vbbaike.com/show.asp?id=101037]使用excel数据源，不能正确显示货币类型的小数……[/url]

[url=http://www.vbbaike.com/show.asp?id=101036]LSet问题[/url]

[url=http://www.vbbaike.com/show.asp?id=101035]急需ＶＢ或ＶＣ编程人员[/url]

[url=http://www.vbbaike.com/show.asp?id=101034]vb中 数字后面有个#是什么意思[/url]

[url=http://www.vbbaike.com/show.asp?id=101033]求助：文件读取问题[/url]

[url=http://www.vbbaike.com/show.asp?id=101032]RowIsVisible 怎么样显示网格中被隐藏的行!我快干血了...[/url]

[url=http://www.vbbaike.com/show.asp?id=101031]如何用CreatProgress函数成功启动command.com程序[/url]

[url=http://www.vbbaike.com/show.asp?id=101030]乘法溢出的问题[/url]

[url=http://www.vbbaike.com/show.asp?id=101029]初次做VB的DLL，请大家帮忙！[/url]

[url=http://www.vbbaike.com/show.asp?id=101028]权限被拒绝[/url]

[url=http://www.vbbaike.com/show.asp?id=101027]Excel导入Sql server2000中openrowset的使用时奇怪问题![/url]

[url=http://www.vbbaike.com/show.asp?id=101026]什么品牌电脑好？[/url]

[url=http://www.vbbaike.com/show.asp?id=101025]VB+ado+Access如何数据修改[/url]

[url=http://www.vbbaike.com/show.asp?id=101024]VB怎样只读取字符串中的数字部分??[/url]

[url=http://www.vbbaike.com/show.asp?id=101023]VC菜鸟关于生成exe文件无法运行的问题，在线等[/url]

[url=http://www.vbbaike.com/show.asp?id=101022]老问题，如何将函数作为参数进行传递？[/url]

[url=http://www.vbbaike.com/show.asp?id=101021]如何在WEB控件里点击某文字连接??[/url]

[url=http://www.vbbaike.com/show.asp?id=101020]100分悬赏rc2加密算法[/url]

[url=http://www.vbbaike.com/show.asp?id=101019]关于按狃问题[/url]

[url=http://www.vbbaike.com/show.asp?id=101018]一个逻辑上的问题[/url]

[url=http://www.vbbaike.com/show.asp?id=101017]如何引用ACCESS 中窗体的文本框的值?[/url]

[url=http://www.vbbaike.com/show.asp?id=101016]CSDN 快速搜索[/url]

[url=http://www.vbbaike.com/show.asp?id=101015]关于LDAP连接的问题[/url]

[url=http://www.vbbaike.com/show.asp?id=101014]最近用尝试用VB做DLL，有问题请大家指教一下。[/url]

[url=http://www.vbbaike.com/show.asp?id=101013]excel 后台打印报表的问题？？？[/url]

[url=http://www.vbbaike.com/show.asp?id=101012]如何使用web控件执行网页操作??[/url]

[url=http://www.vbbaike.com/show.asp?id=101011]inet.openurl的问题[/url]

[url=http://www.vbbaike.com/show.asp?id=101010]关于 RasGetProjectionInfo 求 IP 地址的问题[/url]

[url=http://www.vbbaike.com/show.asp?id=101009]DataGrid的用法：如何在datagrid中插入一列数据？[/url]

[url=http://www.vbbaike.com/show.asp?id=101008]msflexgrid 用鼠标[/url]

[url=http://www.vbbaike.com/show.asp?id=101007]连接一个dbf表 open 出错 [/url]

[url=http://www.vbbaike.com/show.asp?id=101006]怎么把RS数据绑定Data Report 的文本框控件上?[/url]

[url=http://www.vbbaike.com/show.asp?id=101005]最好的视频教程网站[/url]

[url=http://www.vbbaike.com/show.asp?id=101004]在台式机的800×600下编写的VB程序，放到笔记本上字体太难看粗糙，但在1024×768下显示时，字体虽然好看，但程序运行后的窗口只占液晶显示器的一部分，有没有适应屏幕分辨率的控件，自己编代码实现太麻烦，因界面上控件太多。[/url]

[url=http://www.vbbaike.com/show.asp?id=101003]请问一个ADO的问题[/url]

[url=http://www.vbbaike.com/show.asp?id=101002]新手请教几个简单问题[/url]

[url=http://www.vbbaike.com/show.asp?id=101001]webbrowser自动填表进阶疑问：如何选完省再选市[/url]

[url=http://www.vbbaike.com/show.asp?id=101000]急急急高分快速解决[/url]

[url=http://www.vbbaike.com/show.asp?id=100999]VB中对表排序[/url]

[url=http://www.vbbaike.com/show.asp?id=100998]急急急高分快速解决[/url]

[url=http://www.vbbaike.com/show.asp?id=100997]高手请教一个正则表达式的问题[/url]

[url=http://www.vbbaike.com/show.asp?id=100996]用VB的ADO访问DBF文件出问题[/url]

[url=http://www.vbbaike.com/show.asp?id=100995]连接sqlserver服务器,如果服务器关机的话,等待时间太长的问题怎么解决?[/url]

[url=http://www.vbbaike.com/show.asp?id=100994]怎么回事啊!!高手进来看看[/url]

[url=http://www.vbbaike.com/show.asp?id=100993]疑难问题: vb6.exe 中发生未处理的win32异常[/url]

[url=http://www.vbbaike.com/show.asp?id=100992]AT 指令删除短信问题[/url]

[url=http://www.vbbaike.com/show.asp?id=100991]关于记录集复制[/url]

[url=http://www.vbbaike.com/show.asp?id=100990]sql server 如何使用VB6 代码进行数据库文件（mdf,ldf）的 附加和分离？[/url]

[url=http://www.vbbaike.com/show.asp?id=100989]难度10:压缩数据，然后解压数据包，不要文件格式，怎么做？[/url]

[url=http://www.vbbaike.com/show.asp?id=100988]请问VB.NET里的这句话在VB6里怎么实现？[/url]

[url=http://www.vbbaike.com/show.asp?id=100987]菜鸟急题！sendkeys向一个java程序发送中文出现乱码问题[/url]

[url=http://www.vbbaike.com/show.asp?id=100986]--------取货表 到 库存货架表 中取货的问题----- < <高级版 > >---- [/url]

[url=http://www.vbbaike.com/show.asp?id=100985]一条sql语句插入值的问题[/url]

[url=http://www.vbbaike.com/show.asp?id=100984]求助,那位大哥能帮忙解决本人将给予一定报酬[/url]

[url=http://www.vbbaike.com/show.asp?id=100983]求助[/url]

[url=http://www.vbbaike.com/show.asp?id=100982]国庆归来散分[/url]

[url=http://www.vbbaike.com/show.asp?id=100981]新手提问：关于如何使窗体自动适应图片大小的问题[/url]

[url=http://www.vbbaike.com/show.asp?id=100980]开发状态下，怎么关闭所有的窗口，每次都要一个一个按[/url]

[url=http://www.vbbaike.com/show.asp?id=100979]用vb生成word文档，页眉页脚怎么生成呢?[/url]

[url=http://www.vbbaike.com/show.asp?id=100978]想做觸摸屏瀏覽器上的軟鍵盤，可是關於WebBrowser中文本框焦點問題怎麼獲取呀？[/url]

[url=http://www.vbbaike.com/show.asp?id=100977]关于获取QQ游戏密码的问题。只是研究。不是破坏！[/url]

[url=http://www.vbbaike.com/show.asp?id=100976]有没有办法独占方式访问一个分区[/url]

[url=http://www.vbbaike.com/show.asp?id=100975]如何使用wmi获得系统信息如CPU内存大小硬盘大小主板型号等[/url]

[url=http://www.vbbaike.com/show.asp?id=100974]如位有fpspr70.ocx控件,发下给我.谢谢啦[/url]

[url=http://www.vbbaike.com/show.asp?id=100973]有没有去掉整数后小数点的函数 是小数点不是0[/url]

[url=http://www.vbbaike.com/show.asp?id=100972]如何实现此文件操作？[/url]

[url=http://www.vbbaike.com/show.asp?id=100971]ActiveReport整数怎样可以不打印出小数点（SQL中money类型怎样显示出小于0的数前的0） [/url]

[url=http://www.vbbaike.com/show.asp?id=100970]大家帮我以下,关于查询的问题 [/url]

[url=http://www.vbbaike.com/show.asp?id=100969]最近用尝试用VB做DLL，有问题请大家指教一下。[/url]

[url=http://www.vbbaike.com/show.asp?id=100968]最近自己尝试做Dll，有问题大家帮忙[/url]

[url=http://www.vbbaike.com/show.asp?id=100967]求一款翻译软件，急[/url]

[url=http://www.vbbaike.com/show.asp?id=100966]文件关联了以后，如何批量传送COMMAND[/url]

[url=http://www.vbbaike.com/show.asp?id=100965]求一个内存读图片的工具。[/url]

[url=http://www.vbbaike.com/show.asp?id=100964]局域网内IP地址为什么会变[/url]

[url=http://www.vbbaike.com/show.asp?id=100963]vb 的winsock控件如何实现一对多的连接[/url]

[url=http://www.vbbaike.com/show.asp?id=100962]请问如何对DTPicker付值？[/url]

[url=http://www.vbbaike.com/show.asp?id=100961]excel报表打印问题[/url]

[url=http://www.vbbaike.com/show.asp?id=100960]整数怎样可以不打印出小数点（SQL中money类型怎样显示出小于0的数前的0）[/url]

[url=http://www.vbbaike.com/show.asp?id=100959]请问如何比较组织数中节点的属性?[/url]

[url=http://www.vbbaike.com/show.asp?id=100958]ActiveReport控件怎样不打印小数点打印[/url]

[url=http://www.vbbaike.com/show.asp?id=100957]整数怎样可以不打印出小数点（SQL中money类型怎样显示出小于0的数前的0）[/url]

[url=http://www.vbbaike.com/show.asp?id=100956]请问如何对一个date形变量付置？[/url]

[url=http://www.vbbaike.com/show.asp?id=100955]求助 Datagrid控件和Adodc控件使用问题[/url]

[url=http://www.vbbaike.com/show.asp?id=100954]进度条控制问题??[/url]

[url=http://www.vbbaike.com/show.asp?id=100953]vb中的控件不能使用[/url]

[url=http://www.vbbaike.com/show.asp?id=100952]救小弟，把查询一列放在listview中，然后希望点击某个格可以直接把它的值赋给text.怎么办呀？[/url]

[url=http://www.vbbaike.com/show.asp?id=100951]满分，跪求！！！access的form控件 窗体的“记录源“（Record Source）属性[/url]

更多vb开发资料，请访问http://www.vbbaike.com/