strA="152648937"
WScript.Echo reversestr(strA)
Function reversestr(strT)
Set regEx=New RegExp
regex.Pattern="\d"
regex.Global=True
regex.IgnoreCase=True
For i=0 To Len(strT)-1
singlestr = Mid(strT,i+1,1)
str=str & singlestr & ","
Set exeStr = regex.Execute(singlestr)
If regex.Test(singlestr)=False Then
WScript.Echo "不是数字！"
WScript.Quit
End If
Next
strArr=Split(str,",")
For i=0 To UBound(strArr)
For j=0 To UBound(strArr)
If strArr(i)>strArr(j) Then
t=strArr(i)
strArr(i)=strArr(j)
strArr(j)=t
End If
Next
Next
reversestr=Join(strArr,"")
End Function
