VB中怎么分离字符串中的数字.
来源:百度知道 编辑:UC知道 时间:2024/09/23 03:21:36
在text中输入字符串"e345s454 g56s",分离出其中的数字,列在listbox中,怎么写代码?
比如输入"ss234t56 37u49 s34",listbox结果是234,56,37,49,34
比如输入"ss234t56 37u49 s34",listbox结果是234,56,37,49,34
VB可依据ASCII码来判别字符是数字字符的。
ASCII(American Standard Code for Information Interchange,美国标准信息交换代码)是基于拉丁字母的一套电脑编码系统,主要用于显示现代英语和其他西欧语言。它是现今最通用的单字节编码系统,并等同于国际标准ISO/IEC 646。
其中48~57为0到9十个阿拉伯数字。
以下是一段VB查找一个字符串中的数字部分分别添加到ListBox中的代码,忽略了小数点。
Option Explicit
Private Sub Command1_Click()
Dim str As String, tmpChar As String, tmpItem As String
Dim i As Integer, num As Integer
str = "abd134dfq32f3k230"
tmpItem = ""
num = 0
For i = 1 To Len(str) Step 1
tmpChar = Mid(str, i, 1)
&n