А можно ли посчитать кол-во слов в строке ??

(0) я не возражаю

нафига?

Цена должна ставиться за количество слов...

(3) 1С:Издательство ??

(3) Предлоги тарифицируются ?

(0) убери двойные/тройные пробелы, посчитай пробелы +1

(6) Что делать с четверными/пятерными проблами?

(7) Тоже убрать

Пока

Что считаем словом?
"Петров-Водкин" одно слово или два?
"100пудов" одно слово или два?
"2*2=4" одно слово или несколько? Или совсем не слово?

Стр = "Фигня    фсякая"
Пока Найти(Стр, "  ") > 0 Цикл
    Стр = СтрЗаменить(Стр, "  ", " ");
КонецЦикла;

(7) пока найти(Текст, "  ") >0 цикл
Стрзамен

(10) опередил

если не заморачиваться с двойными пробелами см (10)
то просто
Текст = СтрЗаменить(Строка1, " ", разделительстрок)
Количествослов = стрколичествостро(текст)

(13) есть прекрасная функция СтрЧислоВхождений(Стр," ")

для издательства что-ли? ))) оплата за слова.

а если после запятой пробела нет?

ТекстСтроки = СтрЗаменить(ТекстСтроки,""""," ");
ТекстСтроки = СтрЗаменить(ТекстСтроки,","," ");
ТекстСтроки = СтрЗаменить(ТекстСтроки,"."," ");
ТекстСтроки = СтрЗаменить(ТекстСтроки,":"," ");
ТекстСтроки = СтрЗаменить(ТекстСтроки,"-"," ");
ТекстСтроки = СтрЗаменить(ТекстСтроки,"/"," ");
... еще куча каких надо ...
Пока Найти(ТекстСтроки, "  ") > 0 Цикл
  ТекстСтроки = СтрЗаменить(ТекстСтроки, "  ", " ");
КонецЦикла;
Сообщить(СтрЧислоВхождений(ТекстСтроки," "));

Да, кста предлоги не учитываются....

(18) ты специально ждал 18 постов чтоб это сказать??

(19) супер. задача стала интереснее :)

(18) см (17)
ТекстСтроки = СтрЗаменить(ТекстСтроки," из "," ");
ТекстСтроки = СтрЗаменить(ТекстСтроки," под "," ");
ТекстСтроки = СтрЗаменить(ТекстСтроки," на "," ");
...

(18)
Тогда добавить
ТекстСтроки = " "+НРег(ТекстСтроки)+" ";
ТекстСтроки = СтрЗаменить(ТекстСтроки," в "," ");
ТекстСтроки = СтрЗаменить(ТекстСтроки," без "," ");
ТекстСтроки = СтрЗаменить(ТекстСтроки," до "," ");
ТекстСтроки = СтрЗаменить(ТекстСтроки," из "," ");
ТекстСтроки = СтрЗаменить(ТекстСтроки," к "," ");
ТекстСтроки = СтрЗаменить(ТекстСтроки," на "," ");

и еще сотня-другая подобных строк :) :) :)

как учитывать весь этот зоопарк?
http://ru.wiktionary.org/wiki/Категория:Русские_предлоги

или не учитывать только В и НА ?

(21) забыл перевести к нижнему регистру и добавить пробелы в конце и начале. А то фраза "Без пробела посчитает неправильно" неправильно посчитается.

спс, извиняюсь, что поздно отписал про предлоги, пришлось отойти от компа...

Если текст большой или его много и часто, быстрее будет резать строку на слова и проверять из на исключения. Чем бесконечные СтрЗаменить()

нужно больше конкретики, иначе тут придётся ИИ писать.
союзы считать за слова? междометия?

(21)(22) лучше словарь исключений, туда пихать всё, что не оплачивается, в т.ч. предлоги

проще всего регэкспом заменить все небуквы на пробел и принять, что слова короче 4-х букв не оплачиваются.

(27) Самое главное, не считать неопределенный артикль "*ля".
А то у некоторых писателей гонорар сразу в два раза вырастет.

(25) вот, думаю тебе хватит:
Сч = 0;
Стр = СтрЗаменить(Стр , " ", Символы.ПС);
Для а = 1 по СтрЧислоСтрок(Стр) Цикл
   Если СтрДлина(СтрПолучитьСтроку(Стр,а)) > 2 Тогда
       Сч = Сч + 1;
   КонецЕсли;
КонецЦикла;

(29)
>> слова короче 4-х букв не оплачиваются
С предлогами не всё так просто:
-------------------------------------
Простые (состоят из одного слова): в, с, к, у, над, на, перед, при и другие
сложные (состоят из двух простых, соединённых дефисом): из-под, из-за, по-над и другие
составные (состоят из нескольких слов): несмотря на, в отличие от, в связи с и другие
-------------------------------------

(32) я в (23) это и имел в виду

короче грузим все в ворд и смотрим там статистику ))

беглый поиск по онлайн сервисам подсчёта слов показал, что предлоги учитываются преимущественно простые, и те, что через дефис. так что можно просто забить в код.

(18) ну или создать СписокЗначений со всем что надо не учитывать.В цикле сделать СтрЗаменить()