Function GetNumber(mystring As String) As String
Dim i As Integer
Dim str As String
For i = 1 To Len(mystring)
If IsNumeric(Mid(mystring, i, 1)) Then
str = str & Mid(mystring, i, 1)
End If
Next
GetNumber = str
End Function
a="sz87,,01szjy8*r6w"
for i=1 to len(a)
b=mid(a,i,1)
if IsNumeric(b) then
c=c&b
end if
next
Response.Write(c)
例如有一段文本,我想把其中的
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024