tenho este codigo abaixo que uso pra importar dados *.csv > paradox:
Var
ArqLido,
ArqSize : Integer;
Txt: TextFile;
Entrada: String;
Linhas: Integer;
now_temp: TDateTime;//variavel contadora de tempo
begin
Update;
STATUS.CAPTION:='Convertendo Ddaod';
UpDate;
now_temp:=now;//recebe tempo
tempo.caption:= '00:00:00';
TABLE1.Active:=TRUE;
Assignfile(Txt,'C:\XXXREL\CLIENTES.TXT');//caminho do arquivo TXT
Reset(Txt);
ArqLido := 0;
ArqSize := FileSize(txt) *128; // *** FileSize assume blocos de 128 quando não é arquivo "tipado"
gauge1.MaxValue := 104; // *** equivale a 100 +4 valores que você incrementa na mão
Linhas := 0;
While not Eoln(Txt) do
begin
Readln(Txt,Entrada);
ArqLido := ArqLido +Length(Entrada)+2; //*** este 2 = CR+LN (presumido)
Gauge1.Progress := Trunc(ArqLido/ArqSize *100); // *** progress chegará no máximo a 100 (%)
//
Inc(Linhas);
If Linhas > 4 then//aqui verifica e desconcidera AS 4 primeiras linhas do CSV
{MAIS UM IF AQUI}
begin
Table1.Insert;//Abaixo converte pra *.DB..lembrando que antes deve criar o DB no DataBase Desktop.
Table1.FieldByName('C').Value := Copy(Entrada,1, Pos(PathSep, Entrada) - 1);
Delete(Entrada, 1, Pos(PathSep, Entrada));
Table1.FieldByName('cliente').Value := Copy(Entrada,1, Pos(PathSep, Entrada) - 1);
Delete(Entrada, 1, Pos(PathSep, Entrada));
EU Precisaria colocar mais um IF ali onde diz {MAIS UM IF AQUI} este If seria pra filtrar a COLUNA UF=SC
então ele processaria somentos os clientes do estado de SC.
Não sei se fui claro......
como esta hoje não existe filtro por estado ta pegando e convertendo tudo......
Grato
Editado por Micheus Substituída tag QUOTE por CODE. Por favor utilize a tag adequada.
Pergunta
Eder
Ola..
tenho este codigo abaixo que uso pra importar dados *.csv > paradox:
EU Precisaria colocar mais um IF ali onde diz {MAIS UM IF AQUI} este If seria pra filtrar a COLUNA UF=SC
então ele processaria somentos os clientes do estado de SC.
Não sei se fui claro......
como esta hoje não existe filtro por estado ta pegando e convertendo tudo......
Grato
Editado por MicheusSubstituída tag QUOTE por CODE. Por favor utilize a tag adequada.
Link para o comentário
Compartilhar em outros sites
6 respostass a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.