RUS  ENG 

Примеры

22 Июня 2017

Пример записи табличных данных слоя в текстовый файл (VBScript)

'Пример записи табличных данных слоя Zulu в текстовый файл Sub WriteDataset 'Создаем объект для работы с файлами Set fso = CreateObject("Scripting.FileSystemObject") 'Имя файла для записи OutputFile = "d:\dataset_out.txt" 'Создаем файл для записи fso.CreateTextFile OutputFile 'Открываем файл Set File = fso.GetFile(OutputFile) 'Открываем файл на запись Set ts = File.OpenAsTextStream(2) 'Текущая карта Set Map = Zulu.ActiveMapDoc 'Активный слой Set L = Map.Layers.Active 'Создали объект база данных Set Db = CreateObject("zb.database") 'Открыли базу данных для типа 6 Db.Open L.ObjectTypes.Item(6).BaseName Set Ds = Db.SelectAll 'Встали на первую запись Ds.MoveFirst Do 'Если дошли до конца, выходим из цикла If Ds.EOF = True Then Exit Do 'По всем полям записи For i = 0 To Ds.FieldCount - 1 S = Ds.FieldValue(i) If i > 0 Then ts.Write "," ts.Write S Next 'Перенос строки ts.Write Chr(13) ts.Write Chr(10) Ds.MoveNext Loop End Sub

Скачать пример (1.45 КБ)


Возврат к списку

Последнее обновление — 27.12.2018 16:31:13