Перейти к содержанию
GPS навигатор СитиГИД

IgorAS

Пользователи
  • Публикаций

    33
  • Зарегистрирован

  • Посещение

Сообщения, опубликованные IgorAS

  1. А я вношу изменения в копию, перед конвертированием.

    Вот рабочий кусочек скрипта, который добавляет "Floors=1", если у полигона (0x6c, 0x6d, 0x6e, 0x6f, 0x6, 0x13) отсутствует "Floors=". Прицепом комментирует ";HouseNumber=" у полилинии "Type=0x16"

    Скрипт не оптимальный, написан на скорую руку. Замечания принимаются.

    Путь и имя файла изменяем "под себя":

    objFileName = "F:GPSAutoMapsmpTempO-45.mp"

    Set objTS = objFSO.OpenTextFile("F:GPSAutoMaps" & objFSO.GetBaseName(objFileName) & "_tmp.mp", 2, true)

    _Fix.vbs

    
    ' RusNavi.org
    
    ' ======================================
    
    startTime = timer
    
    objFileName = "F:GPSAutoMapsmpTempO-45.mp"
    
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    
    Set objTS = objFSO.OpenTextFile(objFileName, 1)
    
    strContents = objTS.ReadAll
    
    objTS.Close
    
    strContents = Trim(strContents)
    
    strContents = Replace(strContents, "Numbers", ";Numbers")
    
    arrLines = Split(strContents, vbCrLf)
    
    Set objTS = objFSO.OpenTextFile("F:GPSAutoMaps" & objFSO.GetBaseName(objFileName) & "_tmp.mp", 2, true)
    
    i=0
    
    Do While i < UBound(arrLines)
    
    	if arrLines(i) = "[POLYLINE]" then p=1
    
    	if p=1 then
    
    	  if arrLines(i) = "Type=0x16" then t=1
    
    	  arrLines(i) = Replace(arrLines(i), "HouseNumber=", ";HouseNumber=")
    
    	end if
    
    	if arrLines(i) = "[POLYGON]" then p=2
    
    	if p=2 then
    
    	  if arrLines(i) = "Type=0x6c" then t=2
    
    	  if arrLines(i) = "Type=0x6d" then t=2
    
    	  if arrLines(i) = "Type=0x6e" then t=2
    
    	  if arrLines(i) = "Type=0x6f" then t=2
    
    	  if arrLines(i) = "Type=0x6" then t=2
    
    	  if arrLines(i) = "Type=0x13" then t=2
    
    	  if t=2 and Left(arrLines(i), 7) = "Floors=" then f=1
    
    	  if t=2 and f=0 and arrLines(i) = "[END]" then
    
    		arrLines(i) = Replace(arrLines(i), "[END]", "Floors=1" & VbCrLf & "[END]")
    
    		t=0
    
    	  end if
    
    	end if
    
    	if arrLines(i) = "[END]" then
    
    		f=0
    
    		p=0
    
    		t=0
    
    	end if
    
    		objTS.WriteLine arrLines(i)
    
    	i=i+1
    
    Loop
    
    objTS.Close
    
    wscript.echo Now & " RunTime: " & timer-startTime
    
    Set objFSO = Nothing
    
    Wscript.quit
    
    

  2. С каждой новой версии Конструктора все меньше ошибок и небрежностей картографов будет прощаться.

    Не создается полигон покрытия Coverage ? - значит смотрим есть ли полигон 0x4b

    Если полигон 0x4b есть, - то с вероятностью 99% у Вас он в карте не один, а их несколько.

    ...

    В данном случае полигон 0x4b отсутствует. Это для эксперимента.

    На CarPC 5.1 адресный поиск работает, а на City Guide Lite 3.4 не работает.

    В новой версии конвертора убрана совместимость с City Guide 3?

  3. Возвращаюсь к вопросу:

    Пропал адресный поиск.

    ...

    ГеоКонструктор 1.2.317

    В ГеоКонструктор 1.2.308 аналогичная ситуация.

    После конвертирования ГеоКонструктор 1.2.292 - адресный поиск есть.

    Никто не использует поиск по адресу?

  4. Пропал адресный поиск.

    Как локализовать проблему?

    На что уделить внимание?

    Ошибки адресные и раньше были, с ними боремся постоянно, но поиск был.

    *** F:GPSAutoMapsmpTempO-45.dcf: errorcode 1

    * warning: cannot create actual coverage

    * warning: F:GPSAutoMapsmpTempO-45.ist file created, but address file contain bugs

    ГеоКонструктор 1.2.317

  5. А что у конвертора проблемы с символом "|" или у СитиГИД ограничена длина строки Copyright?

    В польском имеем:

    Copyright=http://RusNavi.org|NOT FOR SALE|O-45: 7015 (02.02.2012)

    Смотрим "Информация"

    Copyright © http://RusNavi.org|NOT FOR

×
×
  • Создать...