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