Перебираю спр. номенклатуры. Нужно перебрать наименование, где 20 символов а где 100 и т.д.
Можно ли перебрать в цикле строку по каждому символу?
Например; Имя = "Кофе Нескафе 350гр/упак./растворимый"
Для каждого символа по Имя.Количество() Цикл
КонецЦикла


Только Имя.Количество() не будет работать в данном случае
Как можно сделать?

СтрДлину отменили или где?

(0) Про нужные для этого операторы можно почитать в СП в той же ветке, где и СокрЛП() :)

ну и Сред(стр, н, 1) тоже, видимо

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

Всем спасибо!
Для тех у кого будет аналогичный интерес  вот решение вопроса:
       
// обрабатываемая строка => НужныйСпр.Наименование

Для  Яч=1 По СтрДлина(НужныйСпр.Наименование) Цикл
  Сообщить(Сред(НужныйСпр.Наименование,Яч,1));    
КонецЦикла;

в книгу знаний!

(0) >Перебираю спр. номенклатуры. Нужно перебрать наименование
А какая цель этого перебора?

(7) привести в соответствие справочник

(8) Что-то уточнение не уточнило задачу :)

(9) //получаем новое имя и перезаписываем наименование справочника        
НовоеИмя="";
       Для  Яч=1 По СтрДлина(НужныйСпр.Наименование) Цикл
           Если НЕ (Сред(НужныйСпр.Наименование,Яч,1)) = " " и Яч=1 Тогда
                НовоеИмя=НовоеИмя+(Сред(НужныйСпр.Наименование,Яч,1));
КонецЕсли;
       КонецЦикла;
       Сообщить("-------------НОВОЕ ИМЯ------------");
       НужныйСпр.Наименование =  НовоеИмя;
       НужныйСпр.Записать();
       Сообщить(НужныйСпр.Наименование);

+(10) в цикле убрал пробелы в наименовании спр. номенклатура

(11) СтрЗаменить идёт лесом, я так понимаю

нет, ну каков красавец, а?

(12) СокрЛ, пардон

(10) Поправьте меня, если я не прав, но это:


НовоеИмя="";
Для  Яч=1 По СтрДлина(НужныйСпр.Наименование) Цикл
   Если НЕ (Сред(НужныйСпр.Наименование,Яч,1)) = " " и Яч=1 Тогда
       НовоеИмя=НовоеИмя+(Сред(НужныйСпр.Наименование,Яч,1));
   КонецЕсли;
КонецЦикла;


Эквивалентно этому:


Если Лев(НужныйСпр.Наименование, 1) <> " " и СтрДлина(НужныйСпр.Наименование) >= 1 Тогда
   НовоеИмя = Лев(НужныйСпр.Наименование, 1);
Иначе
   НовоеИмя = "";
КонецЕсли;


(15)походу ТС ща накуролесит в базе...)

(15) да он фигню какую-то хочет, не знаю о существовании функций работы со строками. не буду поправлять, не хочу думать ;)

(17) *не зная

(14) Это не СокрЛ. Он только первый пробел убирает

(10)
запишется только последний элемент  с  непонятным  именем

пипец.

(20)...не..я тож  туплю))

предлагаю всем перестать вникать в г-код автора

Один совет автору. Сделать резервную копию БД...

(23)
помоему..:
если 1 символ не пробел не пробел - тогда первый символ  название; иначе без изменений

(24) Неправильный совет. потому как восстановить с копии он тоже не сможет. Правильный совет - "вон из профессии!"©

(25) Точно, точно. Ну может ему такое извращение и надо.

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

(28) Есть СТРЗаменить()

(29) знаю, но мне нужно еще и наименование по заданному шаблону переписать, так что не совсем то

(28) кому надо писать тривиальное? впрочем, да - в книгу знаний!

(30) да скажи уже всем спасибо и перестань быть объектом насмешек

Тоже вопрос продолжение данной темы, но написал в другой теме т.к. немножко не по теме)))  v8: Как проверить на ковычки строку?

(32) смотри в (5)

+34 предпочитаю быть объектом насмешек, но разобраться полностью

феерический идиот....

(28) Правильно, грамотно "кавычки"

жесть...
с каждым месяцем 1Сники все тупее и тупее...

(24) если делать копию базы, то он никогда не научится программировать. Когда откроет базу а там в наименованиях фигня, хотя бы мозг запустится. А если бекап будет, то он вернет на место всё, и мозг так и не заработает.

что-то народ совсем думать отказывается, ппц.

да он просто прикалывается

хорошо если так, хотя судя по его веткам....

(38)Все правильно, адинэска все хуже и хуже, вот под нее и подстраиваются.

(5) писец - да ты Гений 1С!!
нобелевку!

(10) запросом - не ?

(26) поддержу... дверь со стороны 1С

(38) с одной стороны хорошо, а с другой не очень если они в профессии :(

Стр="// Вставить содержимое " " обработчика.";
рег=Новый COMОбъект("VBScript.RegExp");
рег.Pattern=".";
рег.Global=ИСТИНА;
Для Каждого Х из рег.Execute(Стр) Цикл
   Сообщить(Х.Value);
КонецЦикла;

Функция УбратьЛишниеПробелы(ИсходнаяСтрока)
// задаём строку символов, после которых пробелы убрать
ШаблПробелов=".,:;";
// убираем пробелы в начале и в конце, чтобы не мешали
ВремСтрока=СокрЛП(ИсходнаяСтрока);
// получаем количество символов в строке
КолСим=ДлСтроки(ВремСтрока);
// результирующая строка всегда пустая
РезСтр="";
// предполагаем, что пробел уже есть
ФлагПробел=1;
Для ТекСим=1 По КолСим Цикл
 // получаем символ из строки
 Сим=Сред(ВремСтрока,ТекСим,1);
 Если Сим=" " Тогда
  // если это пробел, то нужно проверить,
  // что у нас пробела до этого не было
  Если ФлагПробел=0 Тогда
   РезСтр=РезСтр+" ";
   ФлагПробел=1;
  КонецЕсли;
 Иначе
  // если не пробел, то выводим символ
  РезСтр=РезСтр+Сим;
  // также проверяем необходимость пробела
  Если Найти(ШаблонПробелов,Сим)>0 Тогда
   // если мы нашли символ, после которого пробел убираем
   ФлагПробел=1;
  Иначе
   ФлагПробел=0;
  КонецЕсли;
 КонецЕсли;
КонецЦикла;
Возврат РезСтр;
КонецФункции

(49) что за шербет? (с)

кто то реально пишет стока (49) коментов?? О_О

кто то реально пишет копрокод

наверное ему платят за строки кода
поэтому каждое слово расшифровано