怎样去掉字符串中的字母

[za1mb2yc3]

怎样去掉字符串中的字母

[Cooly]

去掉字符串中的字母，你要留下什么？

[za1mb2yc3]

只剩下数字

[za1mb2yc3]

比如str="abcd123"
我只要123
但数字长度不定长,不能用right()
有时数字是12

[Cooly]

那可以做一个简单的替换啊

for i=65 to 90
strings=replace(strings,chr(i),vbnullstring)
strings=replace(strings,chr(i+32),vbnullstring)
next

[Cooly]

也可以用字符串操作

dim i as long
dim str1 as string
str="abcd123"

for i=1 to len(str)
if asc(mid(str,i,1))>=48 and asc(mid(str,i,1))<=57 then
str1=str1 & mid(str,i,1)
end if
next
msgbox str1

[za1mb2yc3]

太感谢，这么多人，帮我学vb
眼睛都有点湿润了

[Cooly]

:)

[za1mb2yc3]

语句有点问题，asc不能正确执行
再看看行吗

[of123]

如果数字一定在右边：
If str Like "*[A-Za-z]*" Then
For i = Len(str) To 1 Step -1
tmp = Mid(str, i)
If Not IsNumeric(tmp) Then Exit For
Next i
str = Mid(tmp, 2)
End If

[za1mb2yc3]

不是不能执行，key="a4"
当第二次循时，直接跳过了

[Cooly]

Str是关键字，不要用关键字做变量，我没有写清楚。不好意思.

Dim i As Long
Dim str1 As String
Strs = "abcd123"

For i = 1 To Len(Strs)
If Asc(Mid(Strs, i, 1)) >= 48 And Asc(Mid(Strs, i, 1)) <= 57 Then
str1 = str1 & Mid(Strs, i, 1)
End If
Next
MsgBox str1

[yo_jo]

用val()函数

[gang75]

yes
val()

[of123]

'使用证则表达式的例子：
'引用Microsoft VBScript Regular Expressions library

Dim reg As New RegExp
Dim strTest As String
Dim regPattern As String
Dim Matches As MatchCollection
Dim mtch As Match

'Dim blnFound As Boolean

strTest = "A1234B4567"
regPattern = "\d+$"

With reg
.Pattern = regPattern
If .Test(strTest) Then
Set Matches = .Execute(strTest)

For Each mtch In Matches
strTest = mtch.Value
Next mtch
End If
End With
Set reg = Nothing

顺便说一句，对于字母后面的数字，val()只能返回0.

[za1mb2yc3]

谢了，搞定

[za1mb2yc3]

我用的是
dim i as long
dim str1 as string
str="abcd123"

for i=1 to len(str)
if IsNumeric(Mid(key, i, 1)) then
str1=str1 & mid(str,i,1)
end if
next
msgbox str1

[za1mb2yc3]

val不可以，只能反回字母左边的数字