Question

asp中怎样用replace函数将文本替换只保留数字

Answer 1

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

Answer 2

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)

Answer 3

例如有一段文本,我想把其中的

追问

例如有一段文本：今天很美好-1，我想把其中的“今天很美好-”省去只保留“1”