MyString = "1D2U3C4E"MyNum = 0For I = 1 to Len(MyString) MyTemp = Mid(MyString,i,1) If IsNumeric(MyTemp) Then myNum = MyNum + 1 End ifNextResponse.Write myNum
用mid函数来进行判断
len(string)
