Путь = "c:\temp\text.txt"; 
Текст = Новый ЗаписьТекста(Путь, КодировкаТекста.UTF8); 
Выборка = Справочники.Номенклатура.Выбрать(); 
Пока Выборка.Следующий() Цикл 
       Текст.ЗаписатьСтроку(Выборка.Наименование); 
КонецЦикла; 
Текст.Закрыть(); 
Путь = "c:\temp\text.txt"; 
Текст = Новый ЧтениеТекста(Путь, КодировкаТекста.UTF8); 
Стр = Текст.ПрочитатьСтроку(); 
Пока Стр <> Неопределено Цикл 
        Стр = Текст.ПрочитатьСтроку(); 
    Сообщить(Стр); 
КонецЦикла;