Вопрос. Как с помощью VBScript извлечь все цифры из строки?

Ответ. Ниже , который выполняет эту функцию и выводит результат работы на экран:

Option Explicit 
 
Dim strOriginal, intLength, intCount, strFinal
' Check all arguments required have been passed If Wscript.Arguments.Count < 1 Then Wscript.Echo "Arguments required. For example:" & vbCrLf _ & "cscript extractnumeric.vbs 214-555-9705" Wscript.Quit(0) End If
strOriginal = Wscript.Arguments(0) intLength = Len(strOriginal) strFinal = ""
for intCount = 0 to (intLength-1) if IsNumeric(Mid(strOriginal,intCount+1,1)) then strFinal = strFinal + Mid(strOriginal,intCount+1,1) end if next
Wscript.Echo strFinal

Пример вызова сценария:

D:	emp>cscript extractnumeric.vbs 1234sd242ds--34..df

Результат работы:

123424234

Джон Сэвил, jsavill@windowsitpro.com