VB如何只读取字符串中的数字部分?? vbvba算法vb.net
程序员文章站
2022-07-05 21:31:57
...
逐个字符判断，是否为 "+-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", "")
如何限制软件的使用期限?
VC编写的控件在VB下使用的问题
帮忙看看这句
msde的安装方法
请问在vba中如何加载当前路径dll
VB菜鸟求救：Stuff_MIS 查询错误：标准表达式中数据类型不匹配
API中的GetComputerName如何调用?
autocad的文件怎么样能导入vb中
怎么做字符串链表
高分求:将access数据库中某个表中指定字段导出成字段宽度、类型有限制的viual foxpro表
关于考试试卷自动生成系统
如何限制软件的使用期限?
如何限制软件的使用期限?
使用excel数据源，不能正确显示货币类型的小数……
LSet问题
急需ＶＢ或ＶＣ编程人员
vb中 数字后面有个#是什么意思
求助：文件读取问题
RowIsVisible 怎么样显示网格中被隐藏的行!我快干血了...
如何用CreatProgress函数成功启动command.com程序
乘法溢出的问题
初次做VB的DLL，请大家帮忙！
权限被拒绝
Excel导入Sql server2000中openrowset的使用时奇怪问题!
什么品牌电脑好？
VB+ado+Access如何数据修改
VB怎样只读取字符串中的数字部分??
VC菜鸟关于生成exe文件无法运行的问题，在线等
老问题，如何将函数作为参数进行传递？
如何在WEB控件里点击某文字连接??
100分悬赏rc2加密算法
关于按狃问题
一个逻辑上的问题
如何引用ACCESS 中窗体的文本框的值?
CSDN 快速搜索
关于LDAP连接的问题
最近用尝试用VB做DLL，有问题请大家指教一下。
excel 后台打印报表的问题？？？
如何使用web控件执行网页操作??
inet.openurl的问题
关于 RasGetProjectionInfo 求 IP 地址的问题
DataGrid的用法：如何在datagrid中插入一列数据？
msflexgrid 用鼠标
连接一个dbf表 open 出错
怎么把RS数据绑定Data Report 的文本框控件上?
最好的视频教程网站
在台式机的800×600下编写的VB程序，放到笔记本上字体太难看粗糙，但在1024×768下显示时，字体虽然好看，但程序运行后的窗口只占液晶显示器的一部分，有没有适应屏幕分辨率的控件，自己编代码实现太麻烦，因界面上控件太多。
请问一个ADO的问题
新手请教几个简单问题
webbrowser自动填表进阶疑问：如何选完省再选市
急急急高分快速解决
VB中对表排序
急急急高分快速解决
高手请教一个正则表达式的问题
用VB的ADO访问DBF文件出问题
连接sqlserver服务器,如果服务器关机的话,等待时间太长的问题怎么解决?
怎么回事啊!!高手进来看看
疑难问题: vb6.exe 中发生未处理的win32异常
AT 指令删除短信问题
关于记录集复制
sql server 如何使用VB6 代码进行数据库文件（mdf,ldf）的 附加和分离？
难度10:压缩数据，然后解压数据包，不要文件格式，怎么做？
请问VB.NET里的这句话在VB6里怎么实现？
菜鸟急题！sendkeys向一个java程序发送中文出现乱码问题
--------取货表 到 库存货架表 中取货的问题----- < <高级版 > >----
一条sql语句插入值的问题
求助,那位大哥能帮忙解决本人将给予一定报酬
求助
国庆归来散分
新手提问：关于如何使窗体自动适应图片大小的问题
开发状态下，怎么关闭所有的窗口，每次都要一个一个按
用vb生成word文档，页眉页脚怎么生成呢?
想做觸摸屏瀏覽器上的軟鍵盤，可是關於WebBrowser中文本框焦點問題怎麼獲取呀？
关于获取QQ游戏密码的问题。只是研究。不是破坏！
有没有办法独占方式访问一个分区
如何使用wmi获得系统信息如CPU内存大小硬盘大小主板型号等
如位有fpspr70.ocx控件,发下给我.谢谢啦
有没有去掉整数后小数点的函数 是小数点不是0
如何实现此文件操作？
ActiveReport整数怎样可以不打印出小数点（SQL中money类型怎样显示出小于0的数前的0）
大家帮我以下,关于查询的问题
最近用尝试用VB做DLL，有问题请大家指教一下。
最近自己尝试做Dll，有问题大家帮忙
求一款翻译软件，急
文件关联了以后，如何批量传送COMMAND
求一个内存读图片的工具。
局域网内IP地址为什么会变
vb 的winsock控件如何实现一对多的连接
请问如何对DTPicker付值？
excel报表打印问题
整数怎样可以不打印出小数点（SQL中money类型怎样显示出小于0的数前的0）
请问如何比较组织数中节点的属性?
ActiveReport控件怎样不打印小数点打印
整数怎样可以不打印出小数点（SQL中money类型怎样显示出小于0的数前的0）
请问如何对一个date形变量付置？
求助 Datagrid控件和Adodc控件使用问题
进度条控制问题??
vb中的控件不能使用
救小弟，把查询一列放在listview中，然后希望点击某个格可以直接把它的值赋给text.怎么办呀？
满分，跪求！！！access的form控件 窗体的“记录源“（Record Source）属性
更多vb开发资料，请访问http://www.vbbaike.com/
比如：
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", "")
如何限制软件的使用期限?
VC编写的控件在VB下使用的问题
帮忙看看这句
msde的安装方法
请问在vba中如何加载当前路径dll
VB菜鸟求救：Stuff_MIS 查询错误：标准表达式中数据类型不匹配
API中的GetComputerName如何调用?
autocad的文件怎么样能导入vb中
怎么做字符串链表
高分求:将access数据库中某个表中指定字段导出成字段宽度、类型有限制的viual foxpro表
关于考试试卷自动生成系统
如何限制软件的使用期限?
如何限制软件的使用期限?
使用excel数据源，不能正确显示货币类型的小数……
LSet问题
急需ＶＢ或ＶＣ编程人员
vb中 数字后面有个#是什么意思
求助：文件读取问题
RowIsVisible 怎么样显示网格中被隐藏的行!我快干血了...
如何用CreatProgress函数成功启动command.com程序
乘法溢出的问题
初次做VB的DLL，请大家帮忙！
权限被拒绝
Excel导入Sql server2000中openrowset的使用时奇怪问题!
什么品牌电脑好？
VB+ado+Access如何数据修改
VB怎样只读取字符串中的数字部分??
VC菜鸟关于生成exe文件无法运行的问题，在线等
老问题，如何将函数作为参数进行传递？
如何在WEB控件里点击某文字连接??
100分悬赏rc2加密算法
关于按狃问题
一个逻辑上的问题
如何引用ACCESS 中窗体的文本框的值?
CSDN 快速搜索
关于LDAP连接的问题
最近用尝试用VB做DLL，有问题请大家指教一下。
excel 后台打印报表的问题？？？
如何使用web控件执行网页操作??
inet.openurl的问题
关于 RasGetProjectionInfo 求 IP 地址的问题
DataGrid的用法：如何在datagrid中插入一列数据？
msflexgrid 用鼠标
连接一个dbf表 open 出错
怎么把RS数据绑定Data Report 的文本框控件上?
最好的视频教程网站
在台式机的800×600下编写的VB程序，放到笔记本上字体太难看粗糙，但在1024×768下显示时，字体虽然好看，但程序运行后的窗口只占液晶显示器的一部分，有没有适应屏幕分辨率的控件，自己编代码实现太麻烦，因界面上控件太多。
请问一个ADO的问题
新手请教几个简单问题
webbrowser自动填表进阶疑问：如何选完省再选市
急急急高分快速解决
VB中对表排序
急急急高分快速解决
高手请教一个正则表达式的问题
用VB的ADO访问DBF文件出问题
连接sqlserver服务器,如果服务器关机的话,等待时间太长的问题怎么解决?
怎么回事啊!!高手进来看看
疑难问题: vb6.exe 中发生未处理的win32异常
AT 指令删除短信问题
关于记录集复制
sql server 如何使用VB6 代码进行数据库文件（mdf,ldf）的 附加和分离？
难度10:压缩数据，然后解压数据包，不要文件格式，怎么做？
请问VB.NET里的这句话在VB6里怎么实现？
菜鸟急题！sendkeys向一个java程序发送中文出现乱码问题
--------取货表 到 库存货架表 中取货的问题----- < <高级版 > >----
一条sql语句插入值的问题
求助,那位大哥能帮忙解决本人将给予一定报酬
求助
国庆归来散分
新手提问：关于如何使窗体自动适应图片大小的问题
开发状态下，怎么关闭所有的窗口，每次都要一个一个按
用vb生成word文档，页眉页脚怎么生成呢?
想做觸摸屏瀏覽器上的軟鍵盤，可是關於WebBrowser中文本框焦點問題怎麼獲取呀？
关于获取QQ游戏密码的问题。只是研究。不是破坏！
有没有办法独占方式访问一个分区
如何使用wmi获得系统信息如CPU内存大小硬盘大小主板型号等
如位有fpspr70.ocx控件,发下给我.谢谢啦
有没有去掉整数后小数点的函数 是小数点不是0
如何实现此文件操作？
ActiveReport整数怎样可以不打印出小数点（SQL中money类型怎样显示出小于0的数前的0）
大家帮我以下,关于查询的问题
最近用尝试用VB做DLL，有问题请大家指教一下。
最近自己尝试做Dll，有问题大家帮忙
求一款翻译软件，急
文件关联了以后，如何批量传送COMMAND
求一个内存读图片的工具。
局域网内IP地址为什么会变
vb 的winsock控件如何实现一对多的连接
请问如何对DTPicker付值？
excel报表打印问题
整数怎样可以不打印出小数点（SQL中money类型怎样显示出小于0的数前的0）
请问如何比较组织数中节点的属性?
ActiveReport控件怎样不打印小数点打印
整数怎样可以不打印出小数点（SQL中money类型怎样显示出小于0的数前的0）
请问如何对一个date形变量付置？
求助 Datagrid控件和Adodc控件使用问题
进度条控制问题??
vb中的控件不能使用
救小弟，把查询一列放在listview中，然后希望点击某个格可以直接把它的值赋给text.怎么办呀？
满分，跪求！！！access的form控件 窗体的“记录源“（Record Source）属性
更多vb开发资料，请访问http://www.vbbaike.com/