Ответ
 
Опции темы
Старый 08.11.2012, 11:11    | »»» |  #1
lostfriend88
Начинающий
 
Аватар для lostfriend88
 
Барнаул, Алтайский край
Регистрация: 22.10.2012
Сообщений: 25
lostfriend88 is on a distinguished road
Post Проблема с выгрузкой треков в .kml?

Передо мной стоит задача выгрузки каждого трека в kml-файл.

Делаю следующее:

Код:
Set AG = CreateObject("AutoGRAPH.AutoGRAPHAutomation")
AG.WaitForInitializing
Dim num
num = 0
GroupsNum = AG.GroupsNum
For i = 1 To GroupsNum
    AG.GroupIndex = i
    CarsNum = AG.GroupCarsNum
    For j = 1 To CarsNum
        AG.CarIndex = j
        Dim date1
        Dim date2
 date1 = #11/01/2012 00:00:00#
 date2 = Now() 
        AG.ComputingTimeout = 100
   AG.WaitForComputing AG.GroupFileName, AG.CarDevice, date1, date2, "GSM", 1
        TripsNum = AG.TripsNum           
        For k = 1 To TripsNum
            AG.TripIndex = k
     Dim name
     name = num & ".kml"
            AG.ExportTrackToFile name, 1, "", "", 1, 0, -1, 0, 1, 1
     num = num + 1
        Next  
    Next 
Next
Однако ничего не происходит.
Быть может, не те параметры в ExportTrackToFile?
lostfriend88 вне форума   Ответить с цитированием
Старый 08.11.2012, 11:31    | »»» |  #2
storm
Опытный пользователь
 
Аватар для storm
 
Регистрация: 22.12.2010
Сообщений: 2,121
storm is on a distinguished road
Отправить сообщение для storm с помощью Skype™
По умолчанию

Сообщение от lostfriend88 Посмотреть сообщение
Однако ничего не происходит.
для начала посмотрите - при вызове функции WaitForComputing программа АвтоГРАФ должна перелючаться на выбранное транспортное средство и период должен выставиться с 11 января по текущую дату и рассчитаться рейсы
происходит ли расчет рейсов у вас?

г. Челябинск
Ахмедьянов Алексей Адлерович
storm вне форума   Ответить с цитированием
Старый 08.11.2012, 11:33    | »»» |  #3
storm
Опытный пользователь
 
Аватар для storm
 
Регистрация: 22.12.2010
Сообщений: 2,121
storm is on a distinguished road
Отправить сообщение для storm с помощью Skype™
По умолчанию

посмотрел у себя, вобщем АвтоГРАФ принимает дату и время в формате
dd.mm.yyyy hh:nn:ss и по-моему только в таком виде, так что задайте такой формат и проверьте еще раз

г. Челябинск
Ахмедьянов Алексей Адлерович
storm вне форума   Ответить с цитированием
Старый 08.11.2012, 11:42    | »»» |  #4
lostfriend88
Начинающий
 
Аватар для lostfriend88
 
Барнаул, Алтайский край
Регистрация: 22.10.2012
Сообщений: 25
lostfriend88 is on a distinguished road
По умолчанию

поменяла даты на такие:
Код:
date1 = "01.11.2012 00:00:00"
 date2 = "08.11.2012 00:00:00"
файлы не создаются. ведь я правильно понимаю, они должны создаваться в корневой папке автографа?

между ТС переключается все, на рейсы тоже бьется. всю нужную информацию удается вытянуть точно таким же макаром. а вот kml не создаются.

подозреваю, дело в чем-то другом.
lostfriend88 вне форума   Ответить с цитированием
Старый 08.11.2012, 11:55    | »»» |  #5
storm
Опытный пользователь
 
Аватар для storm
 
Регистрация: 22.12.2010
Сообщений: 2,121
storm is on a distinguished road
Отправить сообщение для storm с помощью Skype™
По умолчанию

попробуйте задать полный путь к файлу, типа того
name = "C:\" & num & ".kml"

г. Челябинск
Ахмедьянов Алексей Адлерович
storm вне форума   Ответить с цитированием
Старый 08.11.2012, 11:56    | »»» |  #6
programmer
ТехноКом
 
Аватар для programmer
 
Регистрация: 17.12.2010
Сообщений: 2,865
programmer is on a distinguished road
По умолчанию

Пример из "Пример для MS Excel.xls":

Private Sub ExportTrackButton_Click()
Set AG = CreateObject("AutoGRAPH.AutoGRAPHAutomation")

AG.TripIndex = Cells(7, 2)
AG.ExportTrackToFile AG.WorkDirectory + "\" + Cells(32, 2), 1, "", "", 0, 0, -1, 0, 0, 0

End Sub

ООО «ТехноКом», г. Челябинск
Макаров Константин Евгеньевич - Главный Программист ООО «ТехноКом» (диспетчерское ПО «АвтоГРАФ»)
programmer вне форума   Ответить с цитированием
Старый 09.11.2012, 03:04    | »»» |  #7
lostfriend88
Начинающий
 
Аватар для lostfriend88
 
Барнаул, Алтайский край
Регистрация: 22.10.2012
Сообщений: 25
lostfriend88 is on a distinguished road
По умолчанию

storm, спасибо большое, Ваш вариант сработал. указала полный путь до папки, файлы создались. вчера полдня промучилась - не знала, что дело в такой ерунде.


programmer, когда воспользовалась Вашим вариантом с AG.WorkDirectory - комп самовольно ушел в перезагрузку.
lostfriend88 вне форума   Ответить с цитированием
Старый 09.11.2012, 14:39    | »»» |  #8
SK
Администратор
 
Аватар для SK
 
Регистрация: 27.05.2010
Сообщений: 29,956
SK has much to be proud ofSK has much to be proud ofSK has much to be proud ofSK has much to be proud ofSK has much to be proud ofSK has much to be proud ofSK has much to be proud ofSK has much to be proud of
Отправить сообщение для SK с помощью Skype™
По умолчанию

Сообщение от lostfriend88 Посмотреть сообщение
programmer, когда воспользовалась Вашим вариантом с AG.WorkDirectory - комп самовольно ушел в перезагрузку.
WorkDirectory была за пределами матрицы...

ООО «ТехноКом», г. Челябинск
Самцов Константин Юрьевич - зам. директора по коммерческой деятельности
SK вне форума   Ответить с цитированием
Ответ


Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
 

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход


Текущее время: 11:22. Часовой пояс GMT.


Powered by vBulletin® Version 3.8.5
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd. Перевод: zCarot