<data> VarName=$Filter edtDesc= cbxDesc=0 cbxFilter=0 edtDistance= cbxDistance=0 edtDistance2= edtPlacedBy= cbxDifficulty=0 cbxTerrain=0 cbxDif=8 cbxTer=8 cbxPlacedBy=0 cbxDif2=8 cbxTer2=8 edtUserData= cbxUserData=0 chkReverse=False edtTbugName= cbxTbugName=0 chkFound=False chkNotFound=True chkExclude=True chkAvailable=True chkArchivedOnly=True chkTempUnavailable=True chkUserFlag1=True chkUserFlag2=True chkBugNo=True cbxBugs=True chkNoteNo=True chkNoteYes=True edtFull= chkFullHighlight=True chkRegEx=False chkFullNotes=False chkFullLogs=False chkFullDes=False RbtFullAll=True rbtFullSelect=False <enddata> <data> VarName=$MoveCopy [TfmMove] cbxDestination.Text=test rbtAdd.Checked=True rbtAddFlag.Checked=False rbtAddIgnore.Checked=False rbtCopy.Checked=True rbtExistIgnore.Checked=False rbtFlagOnly.Checked=False rbtMove.Checked=False rbtReplace.Checked=True rbtReplaceFlag.Checked=False chkDisplay.Checked=True <enddata> |
# Save the name of the current database we are working in $CurrentData = $_CurrentDatabase # make sure the Unfound by me databases is empty IF DatabaseExists("Unfound by me") DATABASE Name="Unfound by me" Action=delete ENDIF # now create a new empty database DATABASE Name="Unfound by me" Action=create # select the starting database again DATABASE Name=$CurrentData # now set up the filter <macro> and run it MacroSet Dialog=Filter VarName=$filter Filter Name=<macro> # now set up the move copy settings of <macro> and do the movecopy MacroSet Dialog=MoveCopy VarName=$MoveCopy MoveCopy Settings=<macro> |
$BasePath="C:\Users\me\DataFiles\GeoCaching\" $FileName = "fnmTo.Text=" + $BasePath + "Waypoints\" + $PQ_Name + ".gpx" $GPXDynamic=Replace("UniqueString1",$filename,$GPXStatic) MACROSET Dialog=GPX VarName=$GPXDynamic name=<macro> EXPORT Type=GPX Settings=<macro> <data> VarName=$GPXStatic [TfmExportGpx] cbxLimit.Text=No Limit cbxUserNotes.Checked=True chkActual.Checked=False chkDefault.Checked=True chkExtra.Checked=True chkMyLogs.Checked=False chkSymbol.Checked=False edtFormat.Text=%Name by %By (%Dif/%Ter) edtMax.Text= edtMaxGps.Text=15 edtWaypoint.Text=%code rbtGpx.Checked=True rbtLoc.Checked=False edtProblem.Text= edtExtra.Text= chkChild.Checked=True chkOnlyChild.Checked=False rbtAllChildren.Checked=True rbtOnlyFlagged.Checked=False rbtOnlyUnFlagged.Checked=False chkApplyName.Checked=False chkForce.Checked=True cbxVersion.Text=Ver 1.1 chkLogAlternate.Checked=False UniqueString1 [TfmExportGpx.cbxRecent.Items] Count=0 <enddata> |