|
3
smaharbA
27.06.07
✎
08:29
|
Для не очень большых файлов, ну до 3 мег хотябы
//*******************************************
Процедура Сформировать()
Перем Имя,Путь,Атрибуты;
Если ФС.ВыбратьФайл(0,Имя,Путь,"","Все файлы (*.*)|*.*","*")=0 Тогда
Возврат;
КонецЕсли;
ФайлПроверки=КаталогВременныхФайлов()+_GetPerformanceCounter()+".txt";
КомандаСистемы(Шаблон("type ""[Путь+Имя]"" 1>nul 2>""[ФайлПроверки]"""));
Текст=СоздатьОбъект("Текст");
Текст.КодоваяСтраница(1);
Текст.Открыть(ФайлПроверки);
Для к=1 По Текст.КоличествоСтрок() Цикл
Сообщить(Текст.ПолучитьСтроку(к));
КонецЦикла;
ФС.УдалитьФайл(ФайлПроверки);
КонецПроцедуры
|
|