27. Работа в 1с с файлами ms Excel, dbf, текстовыми файлами.

Файл = создатьОбъект("XBASE"); //создаем ссылку на файл DBF Файл.ОткрытьФайл("catalog.dbf"); //открываем файл на диске Файл.КодоваяСтраница(1); //задаем кодировку: 0 - windows, 1 - DOS

Если Файл.Открыта()=0 Тогда //проверяем, удалось ли открыть файл ........Сообщить("Не удалось открыть файл!"); КонецЕсли;

Файл.Первая(); //позиционируемся на первой записи Пока Файл.ВКонце()=0 Цикл //пока не дошли до конца, крутим цикл .......НомерЗаписи = Файл.НомерЗаписи(); //получаем номер текущей записи .......НазвТовара = Файл.NAME; //получаем значение поля .......Цена = Файл.ПолучитьЗначениеПоля("PRICE"); //так тоже можно, но чуть медленнее .......Файл.Следующая(); //переходим на следующую запись КонецЦикла;

Файл.ЗакрытьФайл(); //не забывайте пожалуйста

Запись в файл dbf

Файл = создатьОбъект("XBASE"); //создаем ссылку на файл DBF

//определяем структуру файла //Синтаксис: ДобавитьПоле(<Название>,<Тип>,<Длина>,<Точность>)

Файл.ДобавитьПоле("NAME","S",50,0); Файл.ДобавитьПоле("PRICE","N",10,2);

Файл.СоздатьФайл("catalog.dbf"); //создаем файл физически

СпрТовары.ВыбратьЭлементы(); Пока СпрТовары.ПолучитьЭлемент()=1 Цикл .......Файл.Добавить(); .......Файл.NAME = СпрТовары.Наименование; .......Файл.УстановитьЗначениеПоля("PRICE",СпрТовары.Цена) //так тоже можно; .......Файл.Записать(); КонецЦикла; Файл.ЗакрытьФайл(); //не забывайте пожалуйста

Для работы с текстами в системе используется специальный агрегатный тип данных — «Текст». Этот объект предназначен для формирования отчетов в текстовом виде, а также для обмена информацией с другими программами посредством текстовых файлов. Средства языка имеют возможность не только вывода строк в текстовые файлы, но и считывания имеющихся файлов с последующим разбором его по строкам.

Методы

Метод	Описание
Открыть(<ИмяФайла>)	Открыть текстовый файл с указанным именем.
КоличествоСтрок()	Возвращает число строк в тексте.
ПолучитьСтроку(<НомерСтроки>)	Возвращает строку текста с заданным номером.
ДобавитьСтроку(<Строка>)	Добавить строку в конец текста.
УдалитьСтроку(<НомерСтроки>)	Удалить строку с указанным номером.
ВставитьСтроку(<НомСтроки>,<Строка>)	Вставить строку с указанным номером.
ЗаменитьСтроку(<НомерСтроки>,<Строка>)	Заменить строку с указанным номером.
Шаблон(<Флаг>)	Включить/Отключить режим добавления строк по шаблону. Шаблон означает, что в квадратных скобках указаны имена переменных или выражения на встроенном языке. При формировании такой строки 1С вычислит все выражения в квадратных скобках и подставит их в строку. Пример, "Сотрудник с табельным номером [Сотрудник.Код] обработан." При формировании такой строки в режиме шаблона результирующая строка будет иметь вид: "Сотрудник с табельным номером 123 обработан."
ФиксШаблон(<Флаг>)	В отличие от метода Шаблон, ограниченные квадратными скобками поля замещаются значениями выражений с сохранением своей длины в символах, то есть обрезаются, если поле короче результата вычисления выражения и дополняются пробелами если длиннее. Если результат числовой, то в границах поля строка прижимается к правой границе.
Показать(<Заголовок>,<ИмяФайла>)	Открыть окно редактирования текста.
ТолькоПросмотр(<Режим>)	Разрешить / запретить возможность редактирования текста в окне просмотра. Вызывается до метода Показать.
Очистить()	Очищает содержимое текстового документа. Его использование позволяет заново заполнить содержимое текстового документа.
КодоваяСтраница(<Режим>)	Установить режим кодировки текста. 0 - windows-кодировка, 1 - DOS-кодировка. Возвращает текущее числовое значение режима кодировки (на момент до исполнения метода).
Записать(<ИмяФайл>)	Записать текст в файл с указанным именем.

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

ТекстДок.Открыть("catalog.txt");

ТекстДок.ЗаменитьСтроку(52, "Установка оборудования......" + Стоимость);

ТекстДок.ВставитьСтроку(53, "Замена оборудования... ");

ТекстДок.УдалитьСтроку(10);

ТекстДок.ДобавитьСтроку("Конец файла");

Попытка

Эксель = СоздатьОбъект("Excel.Application");

Исключение

Сообщить(ОписаниеОшибки() + " Программа Exсel не установлена на данном компьютере!");

Возврат;

КонецПопытки;

Открытие книги (файла)

Без подсветки

Книга = Эксель.WorkBooks.Open(ПутьКФайлу);

ПутьКФайлу - полный путь к файлу книги Excel.

Выбор листа книги для работы с ним:

Лист = Книга.WorkSheets(НомерЛиста);

Получение значения ячейки листа:

Значение = Лист.Cells(НомерСтроки, НомерКолонки).Value;