Текст = Новый ТекстовыйДокумент; 
Текст.Прочитать("c:\temp\text.txt"); 
Для НомерСтроки = 1 По Текст.КоличествоСтрок() Цикл 
 Стр = Текст.ПолучитьСтроку(НомерСтроки); 
  Позиция = Найти(Стр, Символ(34)); 
  Код = Сред(Стр, 1, Позиция-1); прНаименование = Сред(Стр, Позиция + 1); 
    Наименование = СтрЗаменить(прНаименование, "%квч%", Символ(34)); 
 Сообщить(Код + "-" + Наименование); 
КонецЦикла;