想把一个字符串中的数字抽取出来，该怎么做
有形如“容量，PR450MAH”的数字，我想把中间的450取出来，有没有直接能够实现这个功能的函数？
用RIGHT加INSTR也可以实现，但我想得到更普遍的做法。
问题点数：0、回复次数：7Top
1 楼hdhai9451（☆新人类☆）回复于 2004-11-03 23:04:33 得分 0
沒有﹐這樣的函數要自己寫﹗Top
2 楼viena（维也纳N02）回复于 2004-11-03 23:15:55 得分 0
val()Top
3 楼aohan（aohan）回复于 2004-11-03 23:18:45 得分 0
对字符串中每个字符的ASCII码进行判断，然后取出需要的数据Top
4 楼51365133（渊海）回复于 2004-11-03 23:22:01 得分 0
Dim Nstr As String
Private Sub Command1_Click()
Nstr = "111asdfe@#$#@45123434532asdf"
ChNum Nstr
MsgBox Nstr
End Sub
Public Function ChNum(sStr As String)
Dim mStr As String
For i = 1 To Len(sStr)
If Asc(Mid(sStr, i, 1)) > 47 And Asc(Mid(sStr, i, 1)) < 58 Then mStr = mStr + Mid(sStr, i, 1)
Next i
sStr = mStr
End Function
Top
5 楼51365133（渊海）回复于 2004-11-03 23:22:34 得分 0
结贴吧兄弟Top
6 楼aohan（aohan）回复于 2004-11-03 23:27:14 得分 0
Private Sub Command1_Click()
StringLoginLock "容量，PR450MAH"
End Sub
Public Function StringLoginLock(ByVal strid As String)
Dim charsInFile As Integer
Dim i As Integer
Dim j As Integer
Dim Letter As String
Dim StrLogin As String
'Dim Strstart As String
Dim Stra As String
charsInFile = Len(Trim(strid))
For i% = 1 To charsInFile
Letter$ = Mid(strid, i%, 1)
j = Asc(Letter)
If j >= 48 And j <= 57 Then
StrLogin = StrLogin & CStr(Letter)
End If
Next i%
MsgBox StrLogin
End Function
Top
7 楼YAOHE（吆喝）回复于 2004-11-04 00:59:59 得分 0
自己取吧！Top
