Chức năng: Xóa các ký tự không phải số trong bảng mã ASCII
Ngôn ngữ: asp - Nhóm: string
CÚ PHÁP
numbers = OnlyNumbers(inputString)
Hàm dò tìm các ký tự dạng số trong chuổi inputString được đưa vào. Trả về chuổi numbers chỉ toàn chứa các ký tự số.
VÍ DỤ
<%
Response.Write(OnlyNumbers("4321 E3ast M 3.457 Soho Str77eet"))
'--- returns: 43213345777
%>
ASP Code
<%
Public Function OnlyNumbers(ByVal sValue)
Dim sAns
Dim sChar
Dim sNewString
Dim lLen
Dim lCtr
sAns = sValue
lLen = Len(sValue)
For lCtr = 1 To lLen
sChar = Mid(sAns, lCtr, 1)
If Asc(sChar) > 47 And Asc(sChar) < 58 Then
sNewString = sNewString & sChar
End If
Next
OnlyNumbers = sNewString
End Function
%>
