Люди помогите пожалуйста.
Нужно:
1)Посчитать количество букв "а" во введенном слове без использования функции СтрЧислоВхождений( )

Синтаксис:
Процедура ПриНачалеРаботыСистемы()
    Перем R;
    
    ВвестиСтроку(R, "Строка: ", 40, Истина);
    Сообщить(КолБукв(R));
    
КонецПроцедуры
    
Функция КолБукв(Строка)
    КлБ = 0;
    I = СтрДлина(Строка);
    Сообщить("I = " + I);
    Для Счетчик = 1 По I Цикл
        Если Строка(Найти(Строка, "а" ) Тогда
            КлБ =  + 1;    
        КонецЕсли;
        Сред(
    КонецЦикла;  
    Возврат КлБ;
КонецФункции

PS. Я понимаю что функция "найти" мне здесь не поможет ни как.(это просто то на чем я остановился и попал в ступор не знаю как написать). Хотя бы посмотреть как выглядит функция СтрЧислоВхождений( ) изнутри что бы понять как написать.

юзай

Сред(Строка, Индекс. 1)


Преподам уже пора делать оговорку, что решение в помощью Мисты в зачет не идет.

(2) смотря как принимать.
Если чел может обосновать код, то вполне.
Stack Overflow Driven Development

(0) КоличествоСтрок(СтрЗаменить(Строка, "а", Символы.ПС)) - 1

А (0) я бы на работу не взял, если он даже не может в тупую в цикле по одному символу проверить на равенство "а" и увеличению счетчика, если равен

(4) Херня. Но направление правильное.
// тест4() © trdm 2019-01-17 18:45
Процедура тест4()
    вТекст = "Ваша текста";
    вДлинаСтарт = СтрДлина(вТекст);
    вТекст = СтрЗаменить(вТекст,"а","");
    вКолво = вДлинаСтарт - СтрДлина(вТекст);
    Сообщить(вКолво);
КонецПроцедуры // тест4()

(4) а если в строке уже есть перенос строк?

(7) Вот и я о том подумал.

(6) Иди паси гусей

(7) Тогда надо посчитать количество строк сначала, запомнить, после замены скорректировать на запомненное количество
Ну или перед всем этим заменить переносы строк на ""
Но тут вроде не я тестовое задание решаю, а ТС

(9) Завтра пойду чаек на речке терроризировать.

(0)В функции КолБукв общий смысл верный, только вместо Найти внутри, получай текущий символ Сред(Строка,I,1) и сравнивай его с "а".

(0) > Процедура ПриНачалеРаботыСистемы()

Просто создай обработку и редактируй её и переоткрывай в 1С-е.

(0)
RegExp = Новый COMОбъект("VBScript.RegExp");
RegExp.global = Истина;
RegExp.pattern = "а";
Сообщить(RegExp.execute(СтрокаПроверки).count);

Спасибо всем!) Аж 3 варианта как можно сделать задачку узнал! Только 2 день изучаю 1С. Если бы не вы долго бы думал как сделать всем спасибо!)

(0)
Сообщить(СтрДлина(СтрСоединить(СтрРазделить(СтрокаПроверки,СтрСоединить(СтрРазделить(СтрокаПроверки,"а"))))))

Сообщить(СтрДлина(строка) - СтрДлина(СтрЗаменить(строка, "а", "")));

СтрРазделить(СтрокаПроверки,"а").Количество()
может быть -+1 потребуется. Тестировать нужно.

СтрРазделить("Посчитать и узнать количество букв ""а""", "а").Количество() - 1

Нормальный такой скрытый тролинг, давать новичку для семерки восьмерошный код.

Типа пусть потрахается.

Новичок на 7? Остановите планету

момент, напутал. это восьмерка.

Самое правильное и простое в (14)

Функция КолБукв(Строка)
  
Строка = "." + Строка + "."; // если первый или последний символ = а - будет неверный результат
Строка = СтрЗаменить(Строка,"а","<HERE>");
Возврат СтрРазделить(Строка,"<HERE>").Количество();
КонецФункции
Без Com и Циклов!!!!

Правда не тестировал, возможно при 0 вхождений будет неверный результат, но это легко лечится:
Функция КолБукв(Строка)
  
Строка = "." + Строка + ".";// если первый или последний символ = а - будет неверный результат

Строка = СтрЗаменить(Строка,"а","<HERE>");
Возврат ?(СтрНайти(Строка,"<HERE>") = 0, 0, СтрРазделить(Строка,"<HERE>").Количество());
КонецФункции
Без Com и Циклов!!!!

(24) А почему не в (6)?

А чем не нравится


Колво = СтрЧислоСтрок(СтрЗаменить(Стр,"а",Символы.ПС));


?

(28)+ Хотя да -1 надо и случаи когда "а" в начале или конце строки

Колво = СтрЧислоСтрок(СтрЗаменить("_"+Стр+"_","а",Символы.ПС))-1;

(30)+ Перенос строк внутри исходной строки еще убрать

Колво = СтрЧислоСтрок(СтрЗаменить(СтрЗаменить("_"+Стр+"_", Символы.ПС, ""), "а", Символы.ПС))-1;

(31) смотри (4), и (17) все таки проще

(32) пардон.. ты как раз (4) исправил в (31), но (17) все равно проще