Пример записи табличных данных слоя в текстовый файл (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
Последнее обновление — 27.12.2018 16:31:13