请问截取数字的问题！

徐阿鹏

楼上的，不行阿，提示：您要查询的文件没有找到 ，请上传文件

sea.er

不能注册吗

徐阿鹏

不能，能否将帖子的内容copy 过来？

sea.er

以下是引用我同意在accfans.net2004-03-08 13:06:28 的发言：
输入字串处理的问题

通过用户输入来作为查询条件，假设输入某品号，如果允许用户输入多个品号，用逗号分隔。如何从这串输入中取出这些品号，即从“aaaaa,bbb,ccc”串中取出"aaaaa"，"bbb"和"ccc"。这些品号长度不等。
谢！

以下是引用我同意在accfans.net2004-03-08 16:41:28 的发言：

想来想去还是自己做了一个。可以提取这些串了，例子里只是把提取的串连接起来，真正做查询条件代码仍要改一下。

以下是引用李寻欢在accfans.net2004-03-08 22:29:18 的发言：
这里有个例子解决类似你的问题

去除带有分隔符的字符串中的字母

Public Function spMyString(MyString As String, Sep_symbol As String) As String
'*********************************************************************
'* 函 数 名: spMyString
'* 功能描述: 去除带有分隔符的字符串中的字母
'* 函数说明:参数1（MyString）用来接受传入的待处理字符串
'*          参数2（Sep_symbol）用来接受传入的分隔符
'* 调用函数: Split、UBound、Val
'* 全局变量:无
'* 输 入: 字符串及分隔符
'* 返 回:字符串
'* 设 计 者：李寻欢 日期：2004-2-24
'* 修 改 者：李寻欢 日期：2004-2-26
'* 使用示例：?spMyString("1237df-12yt-12ew45","-")
'*            1237-12-1245
'***********************************************************************

Dim myArray() As String
Dim i As Integer
myArray = Split(MyString, Sep_symbol)
For i = 0 To UBound(myArray)
    If i <> 0 Then
        spMyString = spMyString & Sep_symbol & Val(myArray(i))
    Else
        spMyString = spMyString & Val(myArray(i))
    End If
Next
End Function


使用Split函数可轻易将有分隔符的字符串分开，它自动将分割出来的字符存放在数组中。

不是高手

以下是引用徐阿鹏在2004-3-9 16:25:46的发言：
楼上的，谢谢
再楼上的，但是前面还有数字阿！那些数字是不要的

先找到nmbr=,再开始抽数字咯!