VB中如何从一段话中提取数字?

VB中如何从一段话中提取数字?例如:text1.text="我爱你1314,你呢?"如何提取出1314呢?第二,一个text控件,两个listbox,分别为list1,l... VB中如何从一段话中提取数字?
例如:text1.text="我爱你1314,你呢?"
如何提取出1314呢?

第二,一个text控件,两个listbox,分别为list1,list2.
list1的数字长度为10,list2的数字长度为6
也就是说如果有段话,里面有16个数字,那么我想前10个放在list1里,后6个放在list2里,假如超过16个,不够32个,那么list1和list2都只显示那一行,其余的不显示。
麻烦帮我解决一下。
展开
 我来答
yfcp
推荐于2017-10-12 · 知道合伙人软件行家
yfcp
知道合伙人软件行家
采纳数:1748 获赞数:5545
有多年网站建设相关工作经验。熟悉ASP、ASP.net、VB、JavaScript、HTML等语言和CSS、Ajax等相关技术。

向TA提问 私信TA
展开全部
VB中如何从一段话的文字中提取数字,需要先对文字中的字进行逐一循环判断,如果是数字,然后返回需要的结果。代码如下:
Private Sub Command1_Click()
Dim a As String
a = "我爱你1314,你呢"
For i = 1 To Len(a)'对文字中每个字循环判断
b = Mid(a, i, 1)
If IsNumeric(b) Then'判断改字是否是数字,用IsNumeric判断是否是数字
s = Val(Mid(a, i))'如果是数字,就提取出来,用到VAL函数
Exit For'提取数字后,退出循环。
End If
Next
MsgBox s 's的值就是1314
End Sub
百度网友135dabb
推荐于2017-09-17 · TA获得超过812个赞
知道小有建树答主
回答量:2296
采纳率:0%
帮助的人:825万
展开全部
看看这两个函数.应该能解决你的问题了.

Val 函数

返回包含于字符串内的数字,字符串中是一个适当类型的数值。

语法

Val(string)

必要的 string 参数可以是任何有效的字符串表达式.

说明

Val 函数,在它不能识别为数字的第一个字符上,停止读入字符串。那些被认为是数值的一部分的符号和字符,例如美圆号与逗号,都不能被识别。但是函数可以识别进位制符号 &O(八进制)和 &H(十六进制)。空白、制表符和换行符都从参数中被去掉。

下面的返回值为 1615198:

Val(" 1615 198th Street N.E.")

在下面的代码中,Val 为所示的十六进制数值返回十进制数值 -1。

Val("&HFFFF")

注意 Val 函数只会将句点(.)当成一个可用的小数点分隔符。当使用不同的小数点分隔符时,如在国际版应用程序中,代之以 CDbl 来把字符串转换为数字。

Mid 函数

返回 Variant (String),其中包含字符串中指定数量的字符。

语法

Mid(string, start[, length])

Mid 函数的语法具有下面的命名参数:

部分 说明
string 必要参数。字符串表达式,从中返回字符。如果 string 包含 Null,将返回 Null。
start 必要参数。为 Long。string 中被取出部分的字符位置。如果 start 超过 string 的字符数,Mid 返回零长度字符串 ("")。
length 可选参数;为 Variant (Long)。要返回的字符数。如果省略或 length 超过文本的字符数(包括 start 处的字符),将返回字符串中从 start 到尾端的所有字符。

说明

欲知 string 的字符数,可用 Len 函数。

注意 MidB 函数作用于字符串中包含的字节数据,如同在双字节字符集(DBCS)语言中一样。因此其参数指定的是字节数,而不是字符数。对于使用 MidB的示例代码,请参阅示例主题中的第二个
本回答被提问者采纳
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式