Чтение всех данных семантической базы (VBScript)

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

13 ноября 2015

Чтение всех данных семантической базы (VBScript)



Sub ReadAllDatabaseData

    Set Out = OpenOutputChannel("Сообщения")

    Out.Clear

    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

    cnt = Ds.FieldCount

    'Выводим имена полей
    For i = 0 To cnt - 1
         
        If i > 0 Then S = S + ","
        
        S = S + Ds.GetFieldInfo(i).Name
            
     Next
    
     S = S + Chr(10)
     
     Out.Put S
    
    'Выводим значения полей по всем записям
    Do
    
        'Если дошли до конца, выходим из цикла
        If Ds.EOF = True Then Exit Do
        
        S = ""
        
        For i = 0 To cnt - 1
        
            If i > 0 Then S = S + ","
            
            S = S + Ds.FieldValue(i)
        
        Next
        
        S = S + Chr(10)
        
        Out.Put S
        
        Ds.MoveNext
    
    Loop


End Sub

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

Метки: ГИС и инженерные сети ZuluGIS ZuluGIS

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

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