Имя: Пароль:
1C
1С v8
Стандартный метод преобразования строки
0 2083
 
28.11.11
10:22
Нужно из строки вида "ИмяПеременной" получить строку "Имя переменной".
Если не ошибаюсь, есть стандартная функция, но найти не могу. Как она называется подскажете?
1 Stepa86
 
28.11.11
10:25
// Возвращает строку по правилам "ЭтоПримерСтроки" -> "Это пример строки"
//
Функция ПолучитьНаименованиеПоИмени( Знач пИмя ) Экспорт
   
   //v8: Функция преобразования строки
   
   СтрокаВозврата = Сред(пИмя, 1, 1);
   
   Для Сч = 2 По СтрДлина(пИмя) Цикл
       ПредыдущийСимвол = Сред(пИмя, Сч - 1, 1);
       ТекущийСимвол = Сред(пИмя, Сч, 1);
       СледующийСимвол = Сред(пИмя, Сч + 1, 1);
       ПослеследующийСимвол = Сред(пИмя, Сч + 2, 1);
       Если ТекущийСимвол = "_" Тогда
           СтрокаВозврата = СтрокаВозврата + " ";
           Продолжить;
       ИначеЕсли ВРЕГ(ТекущийСимвол) = ТекущийСимвол Тогда
           Если Ложь
               ИЛИ ВРЕГ(ПредыдущийСимвол) <> ПредыдущийСимвол
               ИЛИ (Истина
               И ПредыдущийСимвол <> "_"
               И ВРЕГ(ПредыдущийСимвол) = ПредыдущийСимвол
               И ВРЕГ(СледующийСимвол) <> СледующийСимвол)
               Тогда
               СтрокаВозврата = СтрокаВозврата + " ";
               Если Ложь
                   ИЛИ ВРЕГ(СледующийСимвол) <> СледующийСимвол
                   ИЛИ ВРЕГ(ПослеследующийСимвол) <> ПослеследующийСимвол
                   Тогда
                   ТекущийСимвол = НРЕГ(ТекущийСимвол);
               КонецЕсли;
           КонецЕсли;
       КонецЕсли;
       СтрокаВозврата = СтрокаВозврата + ТекущийСимвол;
   КонецЦикла;
   
   Возврат СтрокаВозврата;
   
КонецФункции // ПолучитьНаименованиеПоИмени()
2 2083
 
28.11.11
10:27
огромное спасибо :)
Компьютер — устройство, разработанное для ускорения и автоматизации человеческих ошибок.