Discussion :

[po.lombard]

Bonjour à tous,
plusieurs jours de recherche donc je me permets de poster...

Mon problème :
j'ai un fichier texte qui ce présente comme ça :

S T1 09:10:54 ID0350 0001 12345 1 25/11/2005
M T1 09:10:57 ID0350 0001 12345 1 25/11/2005
...

(8 colonnes séparées par des espaces).

Je ne peux pas modifier ce fichier et je dois l'importer dans access.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Var St:TStringList;
i : integer;
begin
  St:=TStringList.Create;
  St.LoadFromFile('D:\IN\test.txt');
  st.Delimiter := ' ';
  For i := 0 to st.Count-1 do
  begin
      st.DelimitedText := st[i];
      ADOQuery1.SQL.Add('INSERT INTO Importation ([NoId]) VALUES ("'+st[i]+'")');
  end;
end;

Mais je ne récupère que le premier caractère et Delphi affiche : indice de liste hors limites (1).

Des idées ?
Merci d'avance.

[Frank]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
for j:=2 to iNbreLignes -1 do
          begin
           _slMvt.ValueFromIndex[j];
           S:=_slMvt.Strings[j];
           with TbStock do begin
               active:=true;
               insert;
               FieldByName('nDateFichier').Value:=lDateFichier;
               FieldByName('nDateMVT').Value:=strtoint(copy(S,6,8));
               FieldByName('sCdeMag').Value:=copy(S,16,2);
               FieldByName('sCdeMvt').Value:=copy(S,53,2);
               FieldByName('sSigne').Value:= copy(S,55,1);
               FieldByName('sCdePdt').Value:=copy(S,18,12);
               FieldByName('sNumLot').Value:=copy(S,30,15);
               FieldByName('nDatePer').Value:=strtoint(copy(S,45,8));
               FieldByName('iQte').Value:=strtoint(copy(S,63,5));
               post;
           end;

_slMvt est mon TStringList.
iNbreLignes représente le nombre de lignes présentes dans le TStringList.
S est une variable de type String qui récupère toute la ligne en fonction de la valeur de j.
La seule différence avec toi c'est que je découpe chaque ligne en fonction des longueurs de chaque champ que je veux intégrer.

[po.lombard]

Merci Frank pour ta réponse rapide.
Super idée, ça fonctionne !!!

Par contre je veux récupérer toutes les lignes de mon fichier,
donc normalement :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
j := 0 to iNbreLignes -1 do

seulement j'ai toujours le message 'Indice de liste hors limites'.
Par contre les enregistrements sont bien dans ma table.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
Var St:TStringList;
j, inbrelignes : integer;
s : string;
begin
for j:=0 to iNbreLignes -1 do
    begin
         St:=TStringList.Create;
         St.LoadFromFile('D:\IN\test.txt');
         st.ValueFromIndex[j];
         S:=st.Strings[j];
         ADOQuery1.SQL.Clear;
         ADOquery1.SQL.Add('INSERT INTO Importacion ([NoIdentificador]) VALUES ("'+copy(S,3,5)+'");');
         ADOQuery1.ExecSQL;
    end;
end;

Là, ça dépasse mes capacités de débutant !

[Frank]

L'indice doit commencer à 1 et pas à 0.

Le mein commence à 2 parce que la première ligne correspond à l'entête du fichier.

[po.lombard]

Rien à faire...
Si je mets l'indice à 1, il me manque la première ligne (mon fichier n'a pas d'en-tête).
Dans tous les cas, la dernière ligne n'est jamais prise en compte.

Si je prend le code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

For j := 0 to inbrelignes -1 Do

J'ai bien ma première ligne mais toujours pas la dernière ?!?

[Harvester]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Var St:TStringList;
i : integer;
begin
  St:=TStringList.Create;
  St.LoadFromFile('D:\IN\test.txt');
  st.Delimiter := ' ';
  For i := 0 to st.Count-1 do
  begin
      st.DelimitedText := st[i];
      ADOQuery1.SQL.Add('INSERT INTO Importation ([NoId]) VALUES ("'+st[i]+'")');
  end;
end;

Mais je ne récupère que le premier caractère et Delphi affiche : indice de liste hors limites (1).

Des idées ?
Merci d'avance.

Tu as oublié d'indiquer quel était le texte à délimiter.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Var St:TStringList;
i : integer;
begin
  St:=TStringList.Create;
  St.LoadFromFile('D:\IN\test.txt');
  st.Delimiter := ' ';
  st.DelimitedText(st.text);
  For i := 0 to st.Count-1 do
  begin
      st.DelimitedText := st[i];
      ADOQuery1.SQL.Add('INSERT INTO Importation ([NoId]) VALUES ("'+st[i]+'")');
  end;
end;

[/code]

[po.lombard]

Tu as oublié d'indiquer quel était le texte à délimiter.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Var St:TStringList;
i : integer;
begin
  St:=TStringList.Create;
  St.LoadFromFile('D:\IN\test.txt');
  st.Delimiter := ' ';
  st.DelimitedText(st.text);
  For i := 0 to st.Count-1 do
  begin
      st.DelimitedText := st[i];
      ADOQuery1.SQL.Add('INSERT INTO Importation ([NoId]) VALUES ("'+st[i]+'")');
  end;
end;

ce code ne semble pas fonctionner non plus,
st.DelimitedText(st.text) ne semble pas fonctionner.

[Harvester]

C'est normal, je n'a ipas corrigé jusqu'au bout désolé

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Var St:TStringList;
i : integer;
begin
  St:=TStringList.Create;
  St.LoadFromFile('D:\IN\test.txt');
  st.Delimiter := ' ';
  st.DelimitedText(st.text);
  For i := 0 to st.Count-1 do
  begin
      ADOQuery1.SQL.Add('INSERT INTO Importation ([NoId]) VALUES ("'+st[i]+'")');
  end;
end;

[po.lombard]

Désolé, mais ça ne marche toujours pas.
Lors de la compil, il m'indique qu'il manque un point virgule ou un opérateur à ligne "st.delimitedtext(st.text)".

[Harvester]

Hm ? Plus qu'étrange, vérifie bien si ton copier coller était bon, étonnant

[po.lombard]

Harvester,
je te confirme que ce code ne fonctionne pas :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
procedure TTransfert.FormShow(Sender: TObject);
Var St:TStringList;
i : integer;
s : string;
begin
  St:=TStringList.Create;
  St.LoadFromFile('D:\IN\test.txt');
  st.Delimiter := ' ';
  s := st.DelimitedText(st.text);
  For i := 0 to st.Count-1 do
  begin
      st.DelimitedText := st[i];
      showmessage('INSERT INTO Importation ([NoId]) VALUES ("'+st[i]+'")');
  end;
end;

[Erreur] apli_transfert.pas(79): E2066 Opérateur ou point-virgule manquant.

Pour des raisons de formatage de mon fichier texte, j'utilise la méthode de Frank, ce qui donne :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
begin
         St:=TStringList.Create;
         St.LoadFromFile('D:\IN\02132.txt');
         showmessage(inttostr(st.Count+1));
for j:=0 to iNbreLignes do
    begin
         st.ValueFromIndex[j];
         S:=st.Strings[j];
 
         NoIdentificador := Copy(S,3,5);
         Hora := Copy(S,10,8);
         NoLote := Copy(S,19,6);
         Posicion := Copy(S,26,4);
         Referencia := Copy(S,31,13);
         Cantidad := Copy(S,59,1);
         Fecha := Copy(S,61,10);
         ModoRegistro := Copy(S,1,1);
 
         ADOQuery1.SQL.Clear;
         ADOquery1.SQL.Add('INSERT INTO Importacion ([NoIdentificador], [Hora], [NoLote], [Posicion], [Referencia], [Cantidad], [Fecha], [ModoRegistro]) VALUES ("'+NoIdentificador+'", "'+Hora+'", "'+NoLote+'", "'+Posicion+'", "'+Referencia+'", "'+Cantidad+'", "'+Fecha+'", "'+ModoRegistro+'");');
         ADOQuery1.ExecSQL;
    end;
end;

L'importation se fait correctement mais je reçois toujours le message "Indice de liste hors limites" et il me manque la dernière ligne de mon fichier,
qu'en pensez-vous?

[Frank]

Combien de lignes contient ton Tstringlist une fois le fichier importé ? (cela doit correspondre à la valeur de iNbreLignes )

A quoi sert le

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

showmessage(inttostr(st.Count+1))

?

[po.lombard]

le code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

showmessage(inttostr(st.Count+1))

ne sert à rien, c'était justement pour voir le nombre de ligne du TstringList.

Si je fais :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
begin
         St:=TStringList.Create;
         St.LoadFromFile('D:\IN\02132.txt');
         showmessage(inttostr(st.Count));
         showmessage(inttostr(iNbreLignes));
for j:=0 to iNbreLignes do
...

st.Count = 186
iNbreLignes = 4637624 ???

[Harvester]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
procedure TTransfert.FormShow(Sender: TObject);
Var St:TStringList;
i : integer;
s : string;
begin
  St:=TStringList.Create;
  St.LoadFromFile('D:\IN\test.txt');
  st.Delimiter := ' ';
  st.DelimitedText(st.text);
  For i := 0 to st.Count-1 do
      showmessage('INSERT INTO Importation ([NoId]) VALUES ("'+st[i]+'")');
end;

Hum hum...

[Frank]

Humm, inbreslignes doit être initialisé à 0 en début de traitement.

Cela doit être ça, ton problème.

[lidouka]

salut !
j'ai exactement le mm prob. dès que le user appuis sur Ok de mon formulaire, les valeurs saisies sont insérées ds une base "interbase" via une procédure stockée. voici le code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
 
procedure TForm1.Button1Click(Sender: TObject);
 
// déclaration des variables
var tPrenom: ShortString;
var tNom: ShortString;
var tAge: ShortString;
 
begin
 
     // affectation des variables
     tPrenom := Edit1.Text;
     tNom := Edit2.Text;
     tAge := Edit3.Text;
 
     // préparation des paramètres
     StoredProc1.Params[1].AsString := Edit1.Text;
     StoredProc1.Params[2].AsString := Edit2.Text;
     StoredProc1.Params[3].AsString := Edit3.Text;
     //StoredProc1.Params[2].AsInteger := StrToInt(Edit3.Text);
 
     // appel de la procédure INSERT_DATA
     StoredProc1.Prepare;
     StoredProc1.ExecProc;
     StoredProc1.UnPrepare;
 
end;
 
end.

dès que je valide le formulaire, j'ai le mesage d'erreur "indice de liste hors limites(1)"
idem si je commence par 0 (StoredProc1.Params[0] ...) j'ai l'erreur "indice de liste hors limites(0)"

merci de votre aide

[po.lombard]

Bonjour à tous,
Pour ce que ça intéresse, j'ai trouvé le bon code.
Merci pour vos réponses qui m'ont mises sur la bonne voix !

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
Var St:TStringList;
i : integer;
s : string;
NoIdentificador : string;
Hora : string;
NoLote : string;
Posicion : string;
Referencia : string;
Cantidad : string;
Fecha : string;
ModoRegistro : string;
begin
         St:=TStringList.Create;
         St.LoadFromFile('D:\IN\02132.txt');
 
for i:=0 to st.Count-1 do
    begin
         st.ValueFromIndex[i];
         S:=st.Strings[i];
 
         NoIdentificador := Copy(S,3,5);
 
         ADOQuery1.SQL.Clear;
         ADOquery1.SQL.Add('INSERT INTO Importacion ([NoIdentificador]) VALUES ("'+NoIdentificador+'");');
         ADOQuery1.ExecSQL;
    end;
end;