Консультация № 175073
09.12.2009, 18:31
0.00 руб.
0 3 0
решите пожалуйста задачу: 10. В заданном предложении определить все встречающиеся числа.

Обсуждение

давно
Профессор
230118
3054
09.12.2009, 18:39
общий
dance:
Basic или VBA? К примеру, как задается предложение - выделенное в Ворде или вводится с клавиатуры?
Неизвестный
09.12.2009, 19:29
общий
думаю, что задача общая - нужен просто код вида:
Код:
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
давно
Модератор
137394
1850
09.12.2009, 20:05
общий
dance:
Цифры или числа? Что такое число - то есть, какие символы в нём содержатся? 0123456789.,-?
Об авторе:
Понеже не словес красных бог слушает, но дел наших хощет
Форма ответа