ActiveDelphi

[leo092004]

Estou com problema, estou importando um arquivo TXT separados por '|', na hora de gravar no banco ele da erro de classe exceção..
LIst index (32) out of bounds.

segue abaixo meu código:

desde já obrigado!

[imex]

Bom dia,

Esse erro deve estar ocorrendo porque pelo menos uma das linhas do arquivo texto não possui 33 campos (como o primeiro índice da TStringList é zero, o índice 32 da mensagem de erro aponta para a lniha 33).
Não sei se é necessário no seu caso mas você pode utilizar a propriedade Count da TStringList para verificar a quantidade de valores que foram extraídos da linha do texto.

Espero que ajude

[leo092004]

Obrigado pela resposta..

Consegui resolver..

Mas agora eu vi um problema que não havia previsto antes..


o arquivo que estou importando é com delimitador, ou seja no espaço de cada delimitador deve ser uma coluna no banco..

o problema é que quando o meu código lê "||" ele elimina essa coluna e acaba trazendo a próxima coluna para onde não deveria.
Ou seja preciso fazer q o codigo entenda que "||" é uma coluna..

segue conteúdo do txt

|C170|1|100015658|COISA|210|UN|314,7|||500|1102|1|314,7|18|56,64||||||||||50|315,51|1,65|0|0|5,21|50|315,51|7,6|0|0|23,98|1130101|0|
|C170|1|100015658|COISA|210|UN|314,7|||500|1102|1|314,7|18|56,64||||||||||50|315,51|1,65|0|0|5,21|50|315,51|7,6|0|0|23,98|1130101|0|
|C170|1|100015658|COISA|210|UN|314,7|||500|1102|1|314,7|18|56,64||||||||||50|315,51|1,65|0|0|5,21|50|315,51|7,6|0|0|23,98|1130101|0|
|C170|1|100015658|COISA|210|UN|314,7|||500|1102|1|314,7|18|56,64||||||||||50|315,51|1,65|0|0|5,21|50|315,51|7,6|0|0|23,98|1130101|0|

e codigo como ele esta..
procedure TForm1.Button1Click(Sender: TObject);

var
DataFile : TextFile;
lineFile : String;
fileStrings : TStringList;

begin
OpenDialog1.Execute;
if FileExists(OpenDialog1.FileName) then


begin
AssignFile(DataFile, OpenDialog1.Filename);
Reset(DataFile);

try
fileStrings := TStringList.Create;

try
while not EOF (DataFile) do
begin
Readln(DataFile, lineFile);

ExtractStrings(['|'],[],PChar(lineFile),fileStrings);



with Query do

Begin

Insert;

QueryREG.AsString :=fileStrings[0];
QueryNUM_ITEM.AsInteger :=StrToInt(fileStrings[1]);
QueryCOD_ITEM.AsString :=fileStrings[2];
QueryDECR_COMPL.AsString :=fileStrings[3];
QueryQTD.AsString :=fileStrings[4];
QueryUNID.AsString :=fileStrings[5];
QueryVL_ITEM.AsString :=fileStrings[6];
QueryVL_DESC.AsString :=fileStrings[7];
QueryIND_MOV.AsString :=fileStrings[8];
QueryCST_ICMS.AsString :=fileStrings[9];
QueryCFOP.AsString :=fileStrings[10];
QueryCOD_NAT.AsString :=fileStrings[11];
QueryVL_BC_ICMS.AsString :=fileStrings[12];
QueryALIQ_ICMS.AsString :=fileStrings[13];
QueryVL_ICMS.AsString :=fileStrings[14];
QueryVL_BC_ICMS_ST.AsString :=fileStrings[15];
QueryALIQ_ST.AsString :=fileStrings[16];
QueryVL_ICMS_ST.AsString :=fileStrings[17];
QueryIND_APUR.AsString :=fileStrings[18];
QueryCST_IPI.AsString :=fileStrings[19];
QueryCOD_ENQ.AsString :=fileStrings[20];
QueryVL_BC_IPI.AsString :=fileStrings[21];
QueryALIQ_IPI.AsString :=fileStrings[22];
QueryVL_IPI.AsString :=fileStrings[23];
QueryCST_PIS.AsString :=fileStrings[24];
QueryVL_BC_PIS.AsString :=fileStrings[25];
QueryALIQ_PIS.AsString :=fileStrings[26];
QueryQUANT_BC_PIS.AsString :=fileStrings[27];
QueryALIQ_PIS2.AsString :=fileStrings[28];
QueryVL_PIS.AsString :=fileStrings[29];
QueryCTS_COFINS.AsString :=fileStrings[30];
QueryVL_BC_COFINS.AsString :=fileStrings[31];
QueryALIQ_COFINS.AsString :=fileStrings[32];
QueryQUANT_BC_COFINS.AsString :=fileStrings[33];
QueryALIQ_COFINS2.AsString :=fileStrings[34];
QueryVL_COFINS.AsString :=fileStrings[35];
QueryCOD_CTA.AsString :=fileStrings[36];

Query.Post;
Query.ApplyUpdates;
end;
fileStrings.Clear;
end;

finally

fileStrings.Free;

end;

finally

CloseFile(DataFile);

end;
end;
ShowMessage('Importado!');
end;

[imex]

Pelo que vi a função ExtractStrings não adiciona strings em branco na lista.
Tente fazer um teste utilizando a TStringList para obter os valores separados sem a função ExtractStrings. Ex:

[leo092004]

Amigo, muito obrigado!!

Ficou perfeito..

Sou novo ainda na programação espero um dia retribuir a mesma ajuda que recebi..

Obrigado!