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