Dim Predlojenie as String
Dim N 'размер массива чисел
Dim Chisla() 'динамический массив, содержащий все найденные числа
N=0
For i=0 to Len(Predlojenie)-1
If 0< Left(Right(Predlojenie),Len(Predlojenie)-i),1) <9 Then 'честно говоря не помню, работает ли так условие
N = N +1 'плюсуем 1 к размерности массива
ReDim Preserve Chisla(N) 'переобъявляем массив с сохранением данных
Chisla(i) = Left(Right(Predlojenie),Len(Predlojenie)-i),1) 'записываем найденное число в массив
End if
Next i
Если Вы уже зарегистрированы на Портале - войдите в систему, если Вы еще не регистрировались - пройдите простую процедуру регистрации.