#******************************************* # MacVersion = 1.1 # MacDescription = Maine Alphanumeric Challenge # MacAuthor = brdad # MacFileName = MaineAlphanumericChallenge.gsk # MacUrl = #******************************************* $Alphanumeric = "" $Output = "" $i = 1 $Alphanumerics = "0|1|2|3|4|5|6|7|8|9|A|B|C|D|E|F|G|H|I|J|K|L|M|N|O|P|Q|R|S|T|U|V|W|X|Y|Z|" While $i <= 36 $Alphanumeric = Extract($Alphanumerics, "|", $i) SHOWSTATUS Msg=$i of 36 - $Alphanumeric $regexexp = "^" + $Alphanumeric # set a filter on all caches that are in Maine and found and match the current alphanumeric. MFILTER Where=g_RegEx($regexexp,Name) and found and (State ='Maine' OR State = 'ME') $Output = $Output + $Alphanumeric + " - " If $_FilterCount >0 #Output format: 0 - Cache Name - GC_____ - Date Found $Output = $Output + $d_Name + " - " + $d_Code + " - " + DateFormat($d_FoundByMeDate) + "
" + $_NewLine Else $Output = $Output + "No caches match this criteria.
" + $_NewLine EndIf $i = $i + 1 EndWhile # Create the base file $HTMLFile=$_Install + "\Macros\AlphanumericChallenge.html" # HTML Header $HTMLOut = "" + $_NewLine $HTMLOut = $HTMLOut + "" + $_NewLine $HTMLOut = $HTMLOut + "" + $_NewLine $HTMLOut = $HTMLOut + "" + $_NewLine $HTMLOut = $HTMLOut + "" + $_NewLine $HTMLOut = $HTMLOut + $Output SHOWSTATUS MSG=Saving HTML ... # Write the data to the file $Error = PutFile($HTMLFile,$HTMLOut) IF Left($Error,7) = "*Error*" PAUSE Msg="$Error" CANCEL ENDIF CancelFilter FILEOPEN File="$HTMLFile" wait=yes