[MAPAS] Mapas Portugal

Bem... Lol, estive a ver umas coisas sobre aqueles comandos... Digamos que fica à responsabilidade de cada um

O form tem uma nova opção hehehehe "Cromisse ON/OFF"

Feito o update podem sacar para ver, basicamente é assim os comandos PRAGMA podem em caso de Crash corromper a DB, estou farto de testar e ainda não me aconteceu, mas.... Os catedráticos diz que pode acontecer, logo, o código vai com a opção ON/OFF diferença entre 22s (macro badges) ou 180s...

Já agora essa parte está feita:
CANCELFILTER
GOTO Position=Top

$wkfolder = $_AppData + "\temp\"
$wkzip = $wkfolder + "geoptcaches.zip"

$apagar=" /c rmdir /S /Q " + quote($wkfolder)
RUNPGM pgm="cmd" parms=$apagar Wait=Yes Hide=Yes
$create=" /c mkdir " + quote($wkfolder)
RUNPGM pgm="cmd" parms=$create Hide=Yes

$data1 = GetUrl("http://geopt.dyndnds.org/Geopt_Statistics/caches_CSV_badges.aspx","Getting geopt.org data...")

$Data = PutFile($wkzip,$data1)
IF Left($Data,7) = "*Error*"
Pause Msg="$Data"
Cancel
ENDIF

$Status = ZipFile("unzip",$wkzip,$wkfolder)
If left($Status,7) = "*Error*"
Cancel Msg=$Status
EndIf

$FileName=DIR($wkfolder + "*.csv","F")
$FileName=Replace($_CrLF,"",$FileName)
$FileName=$wkfolder + $FileName

$_sql="PRAGMA table_info(Custom)"
$Status=Sqlite("sql",$_sql)
IF At("Badges",$Status)=0
$Create = CustomConfig("Add","Badges,String,Global")
ENDIF
#$result=sqlite("sql","PRAGMA journal_mode = MEMORY;")
#$result=sqlite("sql","PRAGMA synchronous = OFF;")
#$result=sqlite("sql","PRAGMA temp_store = MEMORY;")
######################################################Preenche Badges#############
$result = sqlite("sql","update custom set Badges = 0")
MFILTER Where= country = 'Portugal'
IF $_FilterCount > 0
cancelfilter
$CodeList=""
$status = sqlite("sql",$_SqlGrid, "sqlget=yes")
$Codelist=""
while not($_sqleol)
$Codelist= $Codelist+sqlget("code")
sqlnext
Endwhile
$Data = GetFile("$FileName")
$RevTempString3=PutFile("C:\Users\Lap\Desktop\testebgde.txt", $Data)
$Text = Extract($Data, "$_Newline", 2)
$count=2
Timer Status=On Msg=Yes
SHOWSTATUS Msg="Status message" Display=On
transaction action=begin
While $Text<>""
$lCode=Extract($text,";",1)
IF RegEx($lCode,$CodeList)
$ContadorVirgulas=RegExCount(",", $Text)+1
$lBadgestmp=Extract($text,";",2)
$lBadgestmp="$ContadorVirgulas"+";"+"$lBadgestmp"
$result = sqlite("sql","update custom set Badges = " + sqlquote($lBadgestmp) + "where ccode = " + sqlquote($lCode))
EndIF
$count=$count+1
$Text = Extract($Data, "$_Newline", $count)
EndWhile
transaction action=End
Timer Status=Off Msg=Yes
CANCELFILTER
GOTO Position=Top
ENDIF
GOTO Position=Top
$apagar=" /c rmdir /S /Q " + quote($wkfolder)
RUNPGM pgm="cmd" parms=$apagar Hide=Yes

Este post não deveria ser "transferido" para o post do Paulo Domingues?

$RevTempString3=PutFile("C:\Users\Lap\Desktop\testebgde.txt", $Data)

Caminhos absolutos?
fiquei com a sensação que este ficheiro era só para testes...e que assumia um formato diferente do conteúdo...

hehehe past errado

:) hehehe past errado

&%$#"$%#&%$, pá!
Já tinha alterado tudo, &%$%&$# a DB e o camandro... ? &%$#""

Idilio testa por favor.
https://dl.dropbox.com/u/14040081/Update_Badges_fromGeoPT-V2.gsk

Testei, mexeu alguma coisa, não deu erro e supostamente não aconteceu nada. É assim?

Sim, criou uma coluna badges, e estão actualizados mediante o geopt

Essa é a update_badge do Idilio que eu alterei, vai estar disponível na macro na parte dos updates.

Idilio testa por favor.
https://dl.dropbox.com/u/14040081/Update_Badges_fromGeoPT-V2.gsk

Assim sim!
À partida pareceu-me que correu sem qualquer problema.