Discussion :

[cantador]

Bonsoir,

une exportation d'un logiciel me donne une dizaine de fichiers au format .txt.
ces derniers sont énormes (certains ont 1 million de lignes) et ne peuvent pas être complètement ouverts par EXCEL
la partie qui est digérée par celui-ci me permet de voir qu'en délimitant par tabulation uniquement
j'arrive à constituer un fichier correct pouvant ensuite être converti au format csv.
je souhaiterais pouvoir faire cette conversion en une seule fois avec Delphi7
ou en utilisant un composant.

merci

[Andnotor]

Je n'ai pas bien compris ta question. Tu veux représenter un certains nombre de lignes en colonnes afin de limiter le nombre de lignes ?

[SergioMaster]

Bonjour,

Comme Andnotor je n'ai pas bien compris

la partie qui est digérée par celui-ci me permet de voir qu'en délimitant par tabulation uniquement
j'arrive à constituer un fichier correct pouvant ensuite être converti au format csv.

Par là tu veux dire : remplacer les tabs par des virgules ?
Attention à ne pas oublier les données avec espaces à mettre entre " "

En tout cas avec 1000000 de lignes je ne sais pas si TStringList aura la capacité , je ne pense pas .
a mon avis il faut traiter le fichier en plusieurs parties un peu comme ça :

tant que pas fin de fichier de départ
lire 1000 lignes dans un TStringList
convertir dans le TStringList (voir la propriété commatext)
sauver les lignes dans fichier résultat

Une FAQ pour la piste
une petite video (Neo-Zelandaise donc english) pour le commatext
devrait mettre le pied à l'étrier

[cantador]

Bonjour,

je reprends contact d'ici peu...

@+

[cantador]

merci pour votre attention

je précise qu'il s'agit vraisemblablement d'une exportation de tables, car les entêtes de colonne (donc les champs..)
figurent dans le fichier.. il y en a beaucoup, tous de taille différente et comportant des caractères accentués.
j'ai bien sûr cherché de mon côté..
j'ai trouvé un petit composant qui parse les fichiers texte, mais il faut renommer les champs et leurs tailles
ce qui ne m'arrange pas du tout, car rien n'est à la même longueur et ne veux pas changer le nom des champs.

les données elles sont toutes soient numériques, soit en texte majuscule.

mais il faudrait dans un premier temps, comme vous l'indiquez pouvoir mettre des " " pour les données contenant des espaces..
comment fait EXCEL pour traiter directement les tabulations sans s'occuper des blancs dans les données ?

Par là tu veux dire : remplacer les tabs par des virgules ?
Oui, c'est exactement ce que je voudrais faire, mais avec des points virgules.
remplacer #9 par #3B

et je voudrais aussi éviter les TextFile..

merci

[cantador]

c'est toujours au moment où l'on pose la question que souvent on trouve une partie de la réponse...
je viens en effet de trouver un composant : Le TJvCsvDataSet qui fait tout le boulot !
enfin presque, il reste à introduire ensuite le ";".

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
 
procedure TForm1.Button1Click(Sender: TObject);
var
  SL: TStringList;
begin
  SL := TStringList.Create;
 
  try
    JvCsvDataSet1.Close;
    JvCsvDataSet1.Separator := #9;
    JvCsvDataSet1.Open;
    JvCsvDataSet1.First;
 
    while not JvCsvDataSet1.Eof do
    begin
      SL.Add(JvCsvDataSet1.FieldByName('MonChamp1').Text + ';'); // + champ2 + '; '+ champ3 + ';' + champ4 etc..
      JvCsvDataSet1.Next;
    end;
 
    SL.SaveToFile('testR.csv');
 
  finally
    SL.Free;
    showmessage('terminé !');
  end;
end;

On devrait même pouvoir concaténer le tout en faisant appel des champs dans le composant par leur index..

Si vous une meilleure solution ou même sans utiliser ce composant, je suis preneur.

merci par avance pour votre aide précieuse

[cantador]

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
 
procedure TForm1.Button1Click(Sender: TObject);
var
  SL: TStringList;
  i: integer;
  conca: string;
begin
  SL := TStringList.Create;
  try
    JvCsvDataSet1.Separator := #9;
    JvCsvDataSet1.Open;
    while not JvCsvDataSet1.Eof do
    begin
      conca := '';   
      for i := 0 to JvCsvDataSet1.FieldCount - 1 do
        conca := conca + JvCsvDataSet1.Fields[i].Text + ';';
      SL.Add(conca);
      JvCsvDataSet1.Next;
    end;
    SL.SaveToFile('testR.csv');
  finally
    SL.Free;
    showmessage('terminé !');
  end;
end;

un petit os cependant, je perds les entêtes des colonnes
j'attends vos commentaires..