Покрасивее.

Стр = ИсходнаяСтрока;
Для й=1 по 30 Цикл
 Номер = Найти(Стр,"&");
 Стр = Сред(Стр,Номер+1);
КонецЦикла;
Возврат Номер;

(1) Некрасиво. Знаки равно нужно выравнивать.

(2) учитывая, что я писал прямо в браузере - мне пох

(0) Ищешь первый. Прибавляешь 29.

ответ 30

Стр = СтрЗаменить(Стр,"&",Символы.ПС);
НоваяСтрочка             = СтрПолучитьСтроку(Стр, 30);
как то так примерно

VBScript.Regexp::match

(1) Спасибо.

(4) :-)

(6) И? Где номер позиции?

(8) Пускай программисты делают номер позиции, я лишь идеи даю

в (1) никак номер 30-го символа в исходной строке

(8) Заблы добавить, но я телепат и чую, что тебе не номер позиции нужен, а кусок строки, который ты хочешь зная номер выкусить. Я просто уже дальше пошел

Детский сад

Цикл к по количествосимволов в строке
   Если Сред(Исходная Строка, номер позиции, 1) = нужный символ Тогда
       Счетчик = Счетчик + 1
       Если Счетчик = 30
           Прервать
       Конец если
   Конец если
Конец цикла

(12) я бы тоже такой код написал, но (6) действительно крут!

(13) При условии, что в строке нет разделителей строк. Но об этом в (0) ничего не говориться...

Плохо, что в платформе нет таких встроенных функций.
Иногда нужны, но приходится огород городить.
В т.ч. в запросах...

(11) Не. Ее не нужно выкусывать, а изменить. Как?

(16) К 16 посту выяснили, что на самом деле нужно было...

в (1) тупанул, там суммировать еще надо

(15) на самом деле если нам надо найти 30-й символ &, то наверняка надо найти и с 1-го по 29-й и также их обработать как 30-й, поэтому такая функция поиска вряд ли нужна

СтрЧислоВхождений()
и метод вилки

Самый красивый вариант имхо в (12) чем понятнее тем красивее.

(21)
к сожалению 1с8.(0..2)

очень медленно работает со стороками.

так что посимвольный разбор - сомнительная красота.

Ммм.. если мы гворим об N-вхождении, то желательно убедиться что оно есть. Намекаю на СтрЧислоВхождений()

(23) больше проверок - больше ошибок, сложнее код. зачем это надо, если мы отловим эту ситуацию и без дополнительных проверок.
да, предварительная проверка ускорит выполнение, когда условие не выполнится, и наоборот

(22)
пятница.
плагиат (12)
   Если КодСимвола(Исходная Строка, номер позиции, 1) = нужныйКодсимвола Тогда
       Счетчик = Счетчик + 1
       Если Счетчик = 30
           Прервать
       Конец если
   Конец если
Конец цикла

плагиат (6)
Стр = СтрЗаменить(Стр,"&",Символы.ПС);
НомерПозиции = 30;
Для й=1 по 30 Цикл
НомерПозиции = НомерПозиции + СтрДлина(СтрПолучитьСтроку(Стр, 30));
Возврат Номер;

* НомерПозиции = НомерПозиции + СтрДлина(СтрПолучитьСтроку(Стр, й));

(26) А символы.ПС кто считать будет?

(27)
НомерПозиции = 30;

(28) Классно. Решение в лоб. :-)

Функция НайтиВПодстроке(Стр,Поз1,ИскомыйСимвол)
       поз=Найти(Стр,ИскомыйСимвол);
     Если поз=0 Тогда
         возврат ложь
     КонецЕсли;
     поз1=поз1+поз;
        Стр=Сред(Стр,поз+1);

возврат Истина
КонецФункции

рез=0;
Для сч=1 по 30 Цикл
Если не НайтиВПодстроке(Стр,рез,ИскомыйСимвол) Тогда
прервать;
КонецЕсли;
КонецЦикла;

Не проверял но где то так.

рез=0 нужно установить если Число вхождений меньше

Если не НайтиВПодстроке(Стр,рез,ИскомыйСимвол) Тогда
рез=0;
прервать;
КонецЕсли;