Discussion :

[louay02]

Bonjour ,

Je veux forcer une chaine de caractère de coller tous les enregistrements dans une ligne jusqu'à la fin du dernière colonne

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
 
    List := TStringList.Create; 
       try     ZQuery1.First;
        while not ZQuery1.Eof do
           begin
            S := '';
          for I := 0 to ZQuery1.FieldCount - 1 do
          begin
              if S > '' then
                   S := S + '^';
               S := S + ZQuery1.Fields[I].AsString; 
             end;
            List.Add(S);
            ZQuery1.Next;
            end;
            finally
            List.SaveToFile('C:\fichierFinal.csv');
            List.Free;
            end;

puisque j’ai sur certains enregistrements un retour à la ligne et ça me donne des fausse informations

[tourlourou]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
          begin
              if S > '' then
                   S := S + '^';
               S := S + ZQuery1.Fields[I].AsString; 
             end;
// il faut utiliser la fonction suivante pour remplacer les sauts de ligne par un espace (par exemple)
// function StringReplace(const S, OldPattern, NewPattern: string;  Flags: TReplaceFlags): string;
 
  S := StringReplace(S, sLineBreak, ' ', [rfReplaceAll]);
 
            List.Add(S);

[ShaiLeTroll]

Même méthode que tourlourou, mais au lieu d'espace, je remplaçais par '¶' ou par '\r' pour retrouver cette information lors de la lecture du fichier

Tout dépend qui devra relire ton fichier !

A savoir que dans un CSV, si un retour charriot est situé dans un texte entre " ", il ne devrait pas être interprété comme une fin de ligne mais bien comme un élement de la colonne en cours
Excel ou MySQL implémente cela parfaitement mais je n'ai jamais eu le courage de coder cela !

Sinon ^ c'est plutôt dans du HPRIM que du CSV

ADO permet aussi de manipuler des Fichiers CSV
BDE et son TTable permet de générer du CSV mais le format américain avec virgule ',' et non point-virgule ';' typique en france !

[louay02]

Merci pour vos réponses ,mais j’ai le même souci c’est un problème que je ne le pas compris, tous les enregistrements sont dans les mêmes lignes sauf certains comme ci-dessous:

Code :

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

1
2
3
4
5
20120609 09:53:57^18^Call Transferred^19993157^58721191^INTERCALL_ID: 20059564
DNIS:^AGT:N/A, TYPE: OTHER^HANDLING_TIME: 41
CLID:^AGT: 58721191, TYPE: NETWORK IN^09:53:57^10001^OTAORAN^0^10^20120609 09:50:47
20120609 09:53:57^18^Call Transferred^19993157^58721191^INTERCALL_ID: 20059564
 DEST:^AGT:N/A, TYPE: OTHER^EVT LOG TYPE: CONTINUATION^AGT: 58721191, TYPE: NETWORK IN^09:53:57^10001^OTAORAN^0^11^20120609 09:50:47

Et j’arrive pas de les redresser dans les mêmes lignes comme ci-dessous :

20120609 09:53:57^18^Call Transferred ……………………… ^OTAORAN^0^10^20120609 09:50:47
20120609 09:53:57^18^Call Transferred………………………..^OTAORAN^0^11^20120609 09:50:47

Avec sLineBreak ne détecte pas le End de mes lignes je pense que sont des String et n'ont pas des lignes

[Andnotor]

Remplace sLineBreak par #13 ou #10.

[louay02]

Remplace sLineBreak par #13 ou #10.

Merci Andnotor ça marche avec #10.