Количество слов в строке

[artm81]

Здравствуйте! Подскажите, пожалуйста, как посчитать количество слов в произвольной строке. Например, " В этой строке 5 слов". Спасибо!

[дфтын]

я бы создал процедуру оценивающую пробелы как разделитель

[artm81]

 Нужно использовать встроенные функции для работы со значениями типа Строка и перебор символов в цикле. Но у меня не получается!  :dfbsdfbsdf:как будет выглядеть код данной процедуры, можете написать?

[дфтын]

ну например так:
Проц РазборПолетов(строчечка)
Для сч =1 по Длинастроки(Строчечка) Цикл
символьчик = сред(Строчечка,сч,1);
Если символьчик = Симв(32) или Симв (160) Тоды // собственно тут и есть разбор полетов
КонцТоды

КонецОного
КПроц

[sergejK74]

дфтын, на эту строку компилятор ругается
Если символьчик = Симв(32) или Симв (160) Тоды

Ты уж давай отлаженный проверенный код, а не КонцТоды

[дфтын]

Отлаженный проверенный? это к Нуралиеву.
ну или можно ИзСтрокиСРазделителями.
я написал основной алгоритм. дальше или сами или - обращайтесь

[дфтын]

Если символьчик = Симв(32) или Симв (160) Тоды
оно както так должно быть :
Если символьчик = Симв(32) или символьчик  = Симв (160) Тогда

[sergejK74]

Алгоритма то здесь не наблюдается.
Все сюда пришли вероятно чтобы слушать подсказки про какую-то ИзСтрокиСРазделителями. Что это за хрень?

[sergejK74]

Нуралиев лет 20 назад последнюю строчку написал.
Если символьчик = Симв(32) или символьчик  = Симв (160) Тогда
А дальше то что, подсказывай. Если два пробела подряд? А если между словами в строке нет пробелов, а запятые или точки.
Развей мысль. Порадуй подсказкой

[дфтын]

Я слушать я Это написал, чего мне слушать. А что Вы ожидали то!?!?
Я вам написал процедуру. любой программист поймет. или чего? я должен телпатически узнать вашу конфигурацию потратитьвремя и написать вам то что Вам надо? хех