Форум 1С
Программистам, бухгалтерам, администраторам, пользователям
Задай вопрос - получи решение проблемы
12 дек 2024, 07:50

Выделить подстроку

Автор Konstatine, 11 ноя 2011, 12:46

0 Пользователей и 1 гость просматривают эту тему.

Konstatine

Доброго времени суток.
Подскажите, пожалуйста...есть строка типа "Гашение кредита №111-11 согласно распоряжения №222-22. Заемщик Иванов Иван Иванович". Как вытащить ФИО заемщика отсюда?
Искал в инете и вроде стандартных функций в 1С 8.2 нет. Как быть в ?
Заранее благодарю.

has

Если формат строки только такой, т.е. не изменяется, то так
ФИОЗаемщика = Прав(ИсходнаяСтрока, СтрДлина(ИсходнаяСтрока) - (Найти(ИсходнаяСтрока, "Заемщик") + 7));

Андрей Федотов

   ДлинаСтроки = СтрДлина(Строка);
   НомерСимволаЗаемщика = Найти(Строка, "Заемщик");
   ЧислоСимволовДляВыбора = ДлинаСтроки - НомерСимволаЗаемщика;
   Если НомерСимволаЗаемщика > 0 Тогда
      ИтоговаяСтрока = СокрЛП(Прав(СокрЛП(Строка),ЧислоСимволовДляВыбора-6)); //Для получения фио заемщик вычитаем 6 символов
   Иначе
      Сообщить("В строке нет слова Заемщик");
   КонецЕсли;

Где Строка - Ваша исходная строка, а ИтоговаяСтрока - итоговое ФИО заемщика

Konstatine

Спасибо огромное! Сам бы я долго до этого доходил))

AntonB

Чего Вы все за Прав ухватились? :) Со Сред же все гораздо читабельней:
Сред(ИсходнаяСтрока, Найти(ИсходнаяСтрока, "Заемщик") + 7 )
Предлагаю полный ИТ сервис небольшой организации в Москве (приходящий сисадмин+1С7.7,1С8.x)

Теги:

Похожие темы (5)

Рейтинг@Mail.ru

Поиск