#
# ASC Export aller Caches inkl. Found und MyCaches in eine separate Datei
# Creating a separate asc file for each cache type
#
# Ausfiltern von:
#  	$d_TempDisabled 
#	$d_Archived
#
# V1.00 Original
# V1.01 Spezieller Export für MyCaches eingebaut
# V1.02 Trad_*.asc auf All Caches_*.asc geändert
#       Export for MyCaches added
#	Export for disbabled MyCaches added
#	Export for archived MyCaches added

$Type1 = "TUVEWBLMCGOR"

# cache types in full
$TypeFull = "Traditional~Mystery~Virtual~Event~WebCam~Letterbox~Locationless~Multi~CITO~Benchmark~Other~Earth"       

Set $Folder = "S:\Private\Diverses\Geocaching\01 asc files for PDA"

# Alle Files "All Caches_*.asc" löschen
$EraseFiles = $folder + "\All Caches_*.asc"
If FileExists($EraseFiles)
  FileErase File=$EraseFiles
EndIf  
# Alle Files Special_*.asc löschen
$EraseFiles = $folder + "\Special_*.asc"
If FileExists($EraseFiles)
  FileErase File=$EraseFiles
EndIf  

# clear filter on the database
CANCELFILTER

$ThisRecord = 0
Goto Position=Top
While .not. $_eol

  $ThisRecord = $ThisRecord + 1
  $message = "Now processing: " + "$ThisRecord" + " of " + "$_Count"
  ShowStatus msg="$message"

  $out = $d_longitude + ", " + $d_latitude + "," + quote($d_name + " " + $d_code) + $_NewLine

  If $d_Found
     $FileName = "\Special_All Found" + ".asc"
     $error = AppendFile($Folder + $FileName, $out) 
  else

     # If I am the owner of the cache then save it to "Spezial_MyCaches.asc"
     If $d_OwnerName = "crazi4"
        # Standard file name if not archived or disabled
        $FileName = "\Special_MyCaches" + ".asc"
	If $d_Archived
           $FileName = "\Special_MyCachesArchived" + ".asc"
        EndIf
        If $d_TempDisabled
           $FileName = "\Special_MyCachesDisabled" + ".asc"
        EndIf
        $error = AppendFile($Folder + $FileName, $out) 
     Else
        #Wenn Archiviert oder Disabled dann überspringen
        If .not. $d_Archived and .not. $d_TempDisabled 
           $Ctype = "Unknown"
           $index = at($d_CacheType,$type1) 
           If $index > 0
              $Ctype = Extract($TypeFull,"~",$index)
           EndIf

           $FileName = "\All Caches_" + $Ctype + ".asc"
           $error = AppendFile($Folder + $FileName, $out) 
	EndIf
     Endif
  EndIf

  Goto Position=Next
EndWhile
Goto Position=Top