VB中怎么分离字符串中的数字.

来源：百度知道 编辑：UC知道 时间：2024/06/21 05:16:45
在text中输入字符串"e345s454 g56s",分离出其中的数字,列在listbox中,怎么写代码?
比如输入"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