25.08.2025

XML, DBF, TXT, CSV

XML, DBF, TXT, CSV

ДБФ=СоздатьОбъект("XBase"); ДБФ.ДобавитьПоле("DATE","D",0,0); Дбф.ДобавитьИндекс("INDEX","DTOS(DATE)",0,0,"<"); //Дбф.ДобавитьИндекс("INDEX","DTOS(DATE)",0,0,"Пустая строка"); //DTOS !!! // где DTOC() - "ММ/ДД/ГГ" или DTOS() - "ГГГГММДД" ДБФ.СоздатьФайл("c:\test.dbf","c:\test.cdx");...
Требуется, чтобы запись XML-документа производилась не в файл, а в строку Запись = Новый ЗаписьXML(); Запись.УстановитьСтроку(); Запись.ЗаписатьОбъявлениеXML();...
Чтение = Новый ЧтениеXML; Чтение.ОткрытьФайл(ПутьКФайлу); //ПутьКФайлу - Путь к загружаемому XML-документу указан в переменной //Используется модель последовательного...
Процедура ДействияФормыВыгрузить(Кнопка) Запись=Новый ЗаписьXML; Запись.ОткрытьФайл("c:\document.xml"); Запись.ЗаписатьОбъявлениеXML(); Запись.ЗаписатьНачалоЭлемента("Корневой"); Запись.ЗаписатьАтрибут("Доумент", "ПринятиеКУчтетуОС"); Запись.ЗаписатьКомментарий("Краткая информация о принятых к учету ОС"); //Выборка=Документы.ПринятиеКУчетуОС.Выбрать();...
ФайлОстатков = Новый XBase; ФайлОстатков.Кодировка = КодировкаXBase.OEM; ФайлОстатков.ОткрытьФайл(ПутьКТаблицеОстатков); ФайлОстатков.Первая(); Пока Не ФайлОстатков.ВКонце() Цикл КодКонтрагента = СокрЛП(ФайлОстатков.ПолучитьЗначениеПоля("ZKPO")); Если...
xmldoc = CreateObject("Msxml2.DOMDocument"); xmlDoc.loadXML("<root/>"); nodeRoot = xmlDoc.documentElement; расходы = xmlDoc.createElement("СправочникРасходы"); Спр = Создатьобъект("Справочник.Расходы"); Спр.ВыбратьЭлементы(); Пока Спр.ПолучитьЭлемент()=1 цикл...
Перем ИмяПути,ИмяФайла; Перем xmlParser; //пример чтения xml файла. Функция УстановитьКомпоненту() Если ЗагрузитьВнешнююКомпоненту(КаталогИБ()+"ExtFormsv7plus.dll")=0 Тогда Если ЗагрузитьВнешнююКомпоненту("v7plus.dll")=0 Тогда Сообщить("Не...
Процедура СозданиеИндексногоФайла(ЛокФайл,Кодировка,ЛокМассивИндексов) Экспорт ЛокБаза = Новый XBase(ЛокФайл); ЛокБаза.Первая(); ЛокБаза.Кодировка = Кодировка; // индекс CODE + TRIM(NAME) Для...
ФайлНаДиске = Новый Файл(ИмяФайла); Если НЕ(ФайлНаДиске.Существует()) Тогда Предупреждение("Файл с таким именем не существует " + ИмяФайла); Возврат;...
Процедура ПоказатьДБФ(дбф, имяФайла) далее Процедура Сформировать() перем дбф, флаг, папка; тЗнач.Очистить(); флаг=ФС.ВыбратьФайл(0, имяФайла, папка,"Выберете DBF файл","|*.DBF"); Если...