Geopt Proud Member
Mensagens: 10395
Registado: segunda 29 mar 2010, 17:23
Grandes Plásticos do Século - Local onde poderá encontrar as melhores caches nacionais
Moderadores: hulkman, prodrive
Geopt Proud Member
Mensagens: 10395
Registado: segunda 29 mar 2010, 17:23
Geopt Proud Member
Mensagens: 30152
Registado: domingo 25 abr 2010, 01:07
Localização: Lisboa
hulkman Escreveu:adiciona isto no início: Declare Var=$CsvFile Type=String
Geopt Proud Member
Mensagens: 30152
Registado: domingo 25 abr 2010, 01:07
Localização: Lisboa
Geopt Proud Member
Mensagens: 10395
Registado: segunda 29 mar 2010, 17:23
Geopt Proud Member
Mensagens: 30152
Registado: domingo 25 abr 2010, 01:07
Localização: Lisboa
hulkman Escreveu:estamos a chegar lá... com uma ajuda aqui e ali, a macro fez-seJá começaste a entender melhor o funcionamento?
Declare Var=$CsvFile Type=String
# Cancel any existing filter to ensure that you are reading all entries in the database
CANCELFILTER
GOTO Position=Top
USERFLAG type=clear range=all
# Step through the database and write the code to a delimitered variable.
$CodeList=""
WHILE NOT($_EOL)
$Codelist=$CodeList+"$d_Code;"
GOTO Position=Next
ENDWHILE
# Put the fully qualified Csv file name in the following variable
$CsvFile="c:\gps.csv"
FILEREAD File=$CsvFile
IF $line <> ""
$lCode=Extract($line,",",1)
IF RegEx($lCode,$CodeList)
MFILTER Expression=$d_Code=$lCode
IF $_FilterCount=1
$d_userflag=TRUE
ENDIF
ENDIF
ENDIF
ENDREAD
CANCELFILTER
Geocacher Viciado
Mensagens: 1003
Registado: terça 27 abr 2010, 20:30
Localização: Valongo - Porto
Geocacher Viciado
Mensagens: 1003
Registado: terça 27 abr 2010, 20:30
Localização: Valongo - Porto
Paulo_Domingues Escreveu:De seguida dava erro no nome do ficheiro, pensei que fosse devido ao "ó", mas não, pelo menos não só. Só quando coloquei na raiz do disco é que deu!
Utilizador a ver este Fórum: Nenhum utilizador registado e 1 visitante