maemo.org - Talk - View Single Post - Custom Maps for Maemo Mapper

Nait	2008-06-25 , 05:40
Posts: 5 \| Thanked: 0 times \| Joined on Mar 2008	#9

Originally Posted by slamp

You may have answered my only concern of moving on to v2.x of this great program, as new version did not appear to have a way to import custom map data, now that the maps are stored in the database.

What was missing was a method of putting these custom maps in into the new database structure. Renaming the tiles is a pain. I have some maps from 1895 of my home town that I need to try this with.

Thank you this appears to be the missing part of the puzzle.

I used a program map2gdbm to convert tiles form MM1 format into MM2 (*.db file) and vbs script to convert MCruncher's files to MM1.
http://www.internettablettalk.com/fo...t=14925&page=2

I modified Nuri's (http://n8xx.com/subject-245-3.html) script, he used it for moving cache data from GoogleMV to MM1 format.

Move_Cruncher_Cache.vbs

Code:

Const OverwriteExisting = FALSE
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objBaseFolder = objFSO.GetFolder("C:\misc\GPS\CRUN12_ORIG")
Set colSubfolders = objBaseFolder.Subfolders

Dim strFilename, strLetter, varLength, strNewFileName, strNewFolderName
Dim i, x, y, z, q
'Wscript.Echo  "Start"
q = 0
For Each objSubfolder in colSubfolders
'Wscript.Echo  "Start 1"
 Set colFiles = objSubFolder.files 

 For Each objFile in colFiles

 x = 0
 y = 0
 z = 17
 
 strFilename = objFile.Name

 varLength = Len(strFilename) - 4

'Wscript.Echo "Length " & varLength

 If varLength < 19 Then

 For i = 1 To varLength

  strLetter = Mid(strFilename,i,1)

  'Wscript.Echo "Letter " & strLetter

  Select Case strLetter
    Case "0"
     x = x * 2
     y = y * 2
     z = z - 1
    Case "1"
     x = x * 2 + 1
     y = y * 2 
     z = z - 1
    Case "2"
     x = x * 2 
     y = y * 2 + 1
     z = z - 1
    Case "3"
     x = x * 2 + 1
     y = y * 2 + 1
     z = z - 1
   End Select
    'Wscript.Echo "X for " & strLetter & " = "  & x
    'Wscript.Echo "Y for " & strLetter & " = "  & y
 'Wscript.Echo "Zoom " & z

 Next

 'Wscript.Echo "Zoom end " & z
 'Wscript.Echo "X Dir " & x

 strNewFolderName = "C:\misc\GPS\MM_F_CRUN\" & z 
 If Not objFSO.FolderExists(strNewFolderName) Then
  objFSO.CreateFolder(strNewFolderName)
 End If

 strNewFolderName = "C:\misc\GPS\MM_F_CRUN\" & z & "\" & x
 'Wscript.Echo strNewFolderName
 If Not objFSO.FolderExists(strNewFolderName) Then
  objFSO.CreateFolder(strNewFolderName)
 End If

 strNewFileName = strNewFolderName & "\" & y & ".jpg"

 Set objOldFile = objFSO.GetFile(objSubfolder.Path & "\" & strFileName)

 If Not objFSO.FileExists(strNewFileName) Then
  objOldFile.Copy strNewFileName, OverwriteExisting
  q = q + 1
 End If

 'Wscript.Echo strFilename & " x=" & x & " y=" & y & " z=" & z
 'Wscript.Echo strNewFileName
 'Wscript.Echo objBaseFolder & "\" & strFileName

 End If

 Next
Next
Wscript.Echo q & " Tiles copied"

Last edited by Nait; 2008-06-25 at 09:06.

Quote & Reply |