Comment ignorer un saut de ligne ?

**ero-sennin** · 14/12/2007, 10h07

Re,

Je ne vois pas ce qui bloque dans mon code et je ne comprends pas pourquoi tu changes de structure comme ça.

Pour te prouver que mon code fonctionne, fait un nouveau projet, mets un SaveDialog, un Memo et un bouton et copie et colle le code de mon Post précédent. Tu verras qu'avec le contenu de ton mémo ça fonctionne.

Pour preuve, voici ce que moi j'ai dans mon fichier texte :

Code :

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

1
2
DateeStat|MoovOrigDur|TgcelOrigDur|TgtelOrigDur|InterOrigDur|OtherOrigDur|MoovOrigCost|TgcelOrigCost|TgtelOrigCost|InterOrigCost|OtherOrigCost|ForwVoiceDur|ForwVoiceCost|MoovSmsCount|TgcelSmsCount|TgtelSmsCount|InterSmsCount|OtherSmsCount|MoovSmsCost
14/12/2007|3293898|3169524|215285|1185310|54067|8146382,00|11887233,00|824826,00|6716994,00|222421,00|140749|18387,00|18612|13633|407|10566|1037|587125,00|643482,00|20200,00|562805,00|54850,00

Si je ne me trompe pas, on doit avoir 22 nombres et une date en début de lignes.

**bigey3** · 14/12/2007, 11h24

salut

meme moi je comprend pas.

voila le resultat que j'ai avec le nouveau projet

Code :

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

1
2
3
DateeStat|MoovOrigDur|TgcelOrigDur|TgtelOrigDur|InterOrigDur|OtherOrigDur|MoovOrigCost|TgcelOrigCost|TgtelOrigCost|InterOrigCost|OtherOrigCost|ForwVoiceDur|ForwVoiceCost|MoovSmsCount|TgcelSmsCount|TgtelSmsCount|InterSmsCount|OtherSmsCount|MoovSmsCost
14/12/2007|54067|222421,00|140749|18387,00|1037|54850,00|

je vois pas ce qui cloche pas.

**edam** · 14/12/2007, 11h42

je me suis permet de changer un peut le code de ero

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
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
 
procedure TForm1.butt_statClick;
var
    i,j:integer;
    Titr,Txt,resu:string;
    Nbr:String;
    F:File of char;
    NomFichier:string;
begin
    if not savedialog1.execute then
      begin
        MessageDlg('L''opération est incorrecte.Vous n''avez pas chargé ce type de fichier',mtWarning,[mbOk],0);
        exit;
      end;
    Titr:='DateeStat|MoovOrigDur|TgcelOrigDur|TgtelOrigDur|InterOrigDur|OtherOrigDur|'+
          'MoovOrigCost|TgcelOrigCost|TgtelOrigCost|InterOrigCost|OtherOrigCost|'+
          'ForwVoiceDur|ForwVoiceCost|MoovSmsCount|TgcelSmsCount|TgtelSmsCount|'+
          'InterSmsCount|OtherSmsCount|MoovSmsCost'#13#10;
    NomFichier:=savedialog1.filename;
    AssignFile(F,NomFichier);
    if (FileExists(NomFichier)) then Reset(F)
    else
      begin
        rewrite(F);
        BlockWrite(F,Titr[1],length(Titr),i);
      end;
    resu:='';
    Txt:=memo1.Lines.Text;
    i:=0;
    while i<length(txt) do
      begin
        while (i<length(txt)) and (not (txt[i+1] in ['0'..'9','.'])) do inc(i);
        if (i>length(txt)) then Break;
        nbr:='';
        while (i<length(txt)) and ((txt[i+1] in ['0'..'9','.'])) do
          begin
            inc(i);
            nbr:=nbr+txt[i];
          end;
        if nbr<>'' then resu:=resu+nbr+';';
      end;
    SetLength(resu,length(resu)-1);
    Memo1.Clear;
    Memo1.Lines.Text:=Titr+resu;
    // bien sûr en peut passer par Memo1.Lines.SaveToFile(NomFichier);
    BlockWrite(F,resu[1],length(resu),i);
    ShowMessage('Le fichier a été formaté avec succès');
    CloseFile(F);

**bigey3** · 14/12/2007, 12h16

super,merci bien.
là c'est bon.juste un détail

j'aimerais avoir un espace entre le titre et le reste du fichier.
ensuite j'aimerais ajouté en début de ligne le contenu d'une variable.

Code :

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

1
2
3
4
DateeStat|MoovOrigDur|TgcelOrigDur|TgtelOrigDur|InterOrigDur|OtherOrigDur|MoovOrigCost|TgcelOrigCost|TgtelOrigCost|InterOrigCost|OtherOrigCost|ForwVoiceDur|ForwVoiceCost|MoovSmsCount|TgcelSmsCount|TgtelSmsCount|InterSmsCount|OtherSmsCount|MoovSmsCost

3293898|3169524|215285|1185310|54067|8146382.00|11887233.00|824826.00|6716994.00|222421.00|140749|18387.00|18612|13633|407|10566|1037|587125.00|643482.00|20200.00|562805.00|54850.00

**ero-sennin** · 14/12/2007, 12h29

Erf, je comprends pas pourquoi vous me dite que mon code ne fonctionne pas

Sinon, pour l'espace :

Code :

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

1
2
3
4
Titr:='DateeStat|MoovOrigDur|TgcelOrigDur|TgtelOrigDur|InterOrigDur|OtherOrigDur|'+
          'MoovOrigCost|TgcelOrigCost|TgtelOrigCost|InterOrigCost|OtherOrigCost|'+
          'ForwVoiceDur|ForwVoiceCost|MoovSmsCount|TgcelSmsCount|TgtelSmsCount|'+
          'InterSmsCount|OtherSmsCount|MoovSmsCost'#13#10#13#10;

J'ai juste rajouté un #13#10 supplémentaire

A+

PS: Sauf erreur de ma part, il y a un léger soucis avec ton code Edam, c'est que dans l'état actuel, le fichier et ouvert mais pas positionné à la fin donc pour ce qui est de l'ajout de données par la suite, ca cafouille un peu

**bigey3** · 14/12/2007, 13h14

salut

une dernière chose,je souhaiterais ajouté le nom du fichier en début de ligne en plus du séparateur.

merci

**edam** · 14/12/2007, 13h19

Envoyé par ero-sennin

PS: Sauf erreur de ma part, il y a un léger soucis avec ton code Edam, c'est que dans l'état actuel, le fichier et ouvert mais pas positionné à la fin donc pour ce qui est de l'ajout de données par la suite, ca cafouille un peu

pas de tout, en peut utlisé seek

Code :

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

1
2
3
4
5
6
7
8
9
10
    if (FileExists(NomFichier)) then
      begin
       Reset(F);
       seek(f,filesize(f));
      end
    else
      begin
        rewrite(F);
        BlockWrite(F,Titr[1],length(Titr),i);
      end;

**edam** · 14/12/2007, 13h23

Envoyé par bigey3

salut

une dernière chose,je souhaiterais ajouté le nom du fichier en début de ligne en plus du séparateur.

merci

début de quel ligne? de données?

Code :

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

1
2
3
 
        BlockWrite(F,NomFichier[1],NomFichier(resu),i);
        BlockWrite(F,resu[1],length(resu),i);

**bigey3** · 14/12/2007, 13h41

au début de la ligne de donnés. texte en rouge

xxxxxxx|3293898|3169524|215285|1185310|54067|8146382.00|11887233.00|824826.00|6716994.00|222421.00|140749|18387.00|18612|13633|407|10566|1037|587125.00|643482.00|20200.00|562805.00|54850.00

merci

**ero-sennin** · 14/12/2007, 14h32

Salut,

Envoyé par edam

Envoyé par Ero-Sennin

PS: Sauf erreur de ma part, il y a un léger soucis avec ton code Edam, c'est que dans l'état actuel, le fichier et ouvert mais pas positionné à la fin donc pour ce qui est de l'ajout de données par la suite, ca cafouille un peu

pas de tout, en peut utlisé seek

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
    if (FileExists(NomFichier)) then
      begin
       Reset(F);
       seek(f,filesize(f));
      end
    else
      begin
        rewrite(F);
        BlockWrite(F,Titr[1],length(Titr),i);
      end;

En effet, autant pour moi

Pour le nom du fichier, il suffit de faire ceci:

Code :

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

1
2
3
4
resu:=ExtractFileName(NomFichier)+'|'+resu;
SetLength(resu,length(resu)-1);
Memo1.Clear;
Memo1.Lines.Text:=Titr+resu;

Si tu veux le chemin complet du fichier, il suffit d'enlever ExtractFileName.

Je crois que là c'est good

**bigey3** · 14/12/2007, 16h12

merci
ça marche...

Comment ignorer un saut de ligne ?

Langage Delphi

Discussions similaires

Partager

Partager