Глава_02

Для этого текстовый файл разумеется должен быть подготовлен соответствующим образом.
Надо ли это будет на практике - не известно. Но сама возможность записи в документ или
справочник данных из текстового файла интересна.

Новая процедура считывания из файла и тоже работает правильно!
Считывает построчно и файл подготовлен соответствующим образом.


        Перем Буфер;

    НовСотр = СоздатьОбъект("Справочник.НовыеСотрудники");

    

    Текст = СоздатьОбъект("Текст");

    Текст.Открыть("ТекстДляВставки02.txt");	

	

    Если Текст.КоличествоСтрок() = 0 Тогда

           Предупреждение("Текст пустой!");

       Возврат;

        КонецЕсли;

	//Считываем построчно из файла

   Для Ном = 1 По Текст.КоличествоСтрок() Цикл 

     	    НовСотр.Новый();

	  	НовСотр.Наименование = Текст.ПолучитьСтроку(Ном);

	  	Ном=Ном+1;

	  	НовСотр.АдресПрописка = Текст.ПолучитьСтроку(Ном); 

	  	Ном=Ном+1;

	  	НовСотр.Документ = Текст.ПолучитьСтроку(Ном); 

	  	Ном=Ном+1;

	  	НовСотр.Должность = Текст.ПолучитьСтроку(Ном); 

	  	Ном=Ном+1;

	  	НовСотр.Оклад = Текст.ПолучитьСтроку(Ном); 

	    НовСотр.Записать();

       КонецЦикла;


    НовСотр = СоздатьОбъект("Справочник.НовыеСотрудники"); 

	ф=1;

	ф=НовСотр.НайтиПоКоду(ф); 

	Пока (ф>0)   Цикл

		НовСотр.НайтиПоКоду(ф); 

		НовСотр.Удалить(0); //пометка на удаление 

		НовСотр.Удалить(1); //непосредственное удаление 

        ф=ф+1; 

		

	КонецЦикла;

Эта функция работает. Удаляет все элементы, но выдает ошибку:
"Не выбран элемент". В чем дело?