Файл = Новый ТекстовыйДокумент();
	Файл.Прочитать(ЭтотОбъект.ИмяФайла2);
	ВсегоСтрок = Файл.КоличествоСтрок();

	Сч = 2;

	Пока Сч < 2 ВсегоСтрок Цикл

		Строка = Файл.КоличествоСтрок(Сч);
		Массив = Новый Массив;
		ПозицияРазделителя = СтрДлина(Строка);

		Пока ПозицияРазделителя <> 0 Цикл
			Значение = Лев(Строка, ПозицияРазделителя - 1);
			Строка = Прав(Строка, СтрДлина(СТрока) - ПозицияРазделителя);
			Массив.Добавить(Значение);
			ПозицияРазделителя = СтрДлина(строка);

		КОнецЦикла;

		Массив.Добавить(Строка);

		НовыйЭлемент = Справочники.НашСправочник.СоздатьЭлемент();
		НовыйЭлемент.Телефон = Массив [0];
		НовыйЭлемент.Записать();

		Сч = Сч +1;