Discussion :

[PhilLU]

Hello,
Je tente de remplacer dans un string les CR par CRLF à l'aide de:

Code :

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

1
2
3
CRLF := chr(13) + chr(10);
CR := chr(13);
T  := stringreplace(S, CR, CRLF,[rfReplaceAll, rfIgnoreCase]);

ou via

Code :

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

T  := stringreplace(S, #13, #13#10,[rfReplaceAll, rfIgnoreCase]);

Mais sans résultat

J'ai bien vérifié que ma chaine initiale contient bien des CR (Notepad++)


Merci pour vos idées...

[anapurna]

salut

essai ceci est dis moi si cela fonctionne

Code :

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

1
2
3
 
  S  := stringreplace(S, #13, #0,[rfReplaceAll, rfIgnoreCase]); 
  T  := stringreplace(S, #0, #13#10,[rfReplaceAll, rfIgnoreCase]);

[PhilLU]

Salut Anapurna et merci pour ta réponse ;-)
J'ai testé dans ce bout de code

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
      AssignFile(F,Opendialog1.FileName);
      Reset(F);
       Readln(F,S);
       if pos(#13#10,S)=0 then
       begin
       S  := stringreplace(S, #13, #0,[rfReplaceAll, rfIgnoreCase]);
       T  := stringreplace(S, #0, #13#10,[rfReplaceAll, rfIgnoreCase]);
       rewrite(F);
       Writeln(F,T);
       Closefile(F);

Le résultat me renvoie le fichier supprimé de tous ces CR et terminé par CR/LF

Idem quand je fais

Code :

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

1
2
S  := stringreplace(S, #13, '??',[rfReplaceAll, rfIgnoreCase]);
T  := stringreplace(S, '??', #13#10,[rfReplaceAll, rfIgnoreCase]);

Le fichier initial contient 1 ligne contenant des CR
Je souhaite les remplacer par des CR/LF

Merci pour ton aide...
;-)

[gbegreg]

Bonsoir,

Il me semble qu'en passant par un TStringList, ça remplace par défaut les #13 en #13#10.

Exemple :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
var
  t : TStringlist;
  s : string;
begin
  s := 'ma chaine'+#13+'suite';
  t := TStringList.Create;
  t.Text := s;
  s := t.text;
  t.Free;
end;

Si tu veux lire un fichier, lancer la conversion et écrire le résultat dans le fichier, tu peux aussi passer par le TStringList : il suffit d'appeler sa méthode LoadFromFile pour charger le fichier puis tout de suite après sa méthode SaveToFile pour enregistrer...

[anapurna]

salut

tu ecrit :

AssignFile(F,Opendialog1.FileName);
Reset(F);
Readln(F,S);
if pos(#13#10,S)=0 then
begin
S := stringreplace(S, #13, #0,[rfReplaceAll, rfIgnoreCase]);
T := stringreplace(S, #0, #13#10,[rfReplaceAll, rfIgnoreCase]);
rewrite(F);
Writeln(F,T);
Closefile(F);

eu le test sert a quoi ?
imaginons que tu veuille remplacer tout les CR selon le system ou tu te trouve
je ferais comme ceci

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
 
const
    sLineBreak = {$IFDEF LINUX} AnsiChar(#10) {$ENDIF} 
                        {$IFDEF MSWINDOWS} AnsiString(#13#10) {$ENDIF};
 
  // sous Windows
    CRLF =  #13#10;
    CR    =  #13 ;// (carriage return)
    LF     = #10  ;//(line feed)
 
 Begin
    AssignFile(F,Opendialog1.FileName);
    Reset(F);
    Readln(F,S);
    S  := stringreplace(S, CRLF, LF,[rfReplaceAll, rfIgnoreCase]);
    S  := stringreplace(S, CR , LF,[rfReplaceAll, rfIgnoreCase]);
    T  := stringreplace(S, LF, sLineBreak,[rfReplaceAll, rfIgnoreCase]);
    rewrite(F);
    Writeln(F,T);
    Closefile(F);
end;

[ShaiLeTroll]

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
var
  S, S2: string;
  T, T2: string;
  I: Integer;
begin
  S := 'ABC'#13'DEF'#13#10'GHI'#13'JKL'#13#10'MNO';
  T := StringReplace(S, #13, #13#10, [rfReplaceAll, rfIgnoreCase]);
  for I := 1 to Length(T) do
    if Ord(T[I]) >= 32  then
      T2 := T2 + T[I]
    else
      T2 := T2 + '#' + IntToStr(Ord(T[I]));
  for I := 1 to Length(S) do
    if Ord(S[I]) >= 32  then
      S2 := S2 + S[I]
    else
      S2 := S2 + '#' + IntToStr(Ord(S[I]));
  ShowMessage(S2 + ' -> ' + T2);
end;

Cela fonctionne parfaitement pourtant

Code :

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

1
2
ABC#13DEF#13#10GHI#13JKL#13#10MNO -> ABC#13#10DEF#13#10#10GHI#13#10JKL#13#10#10MNO

Sinon c'est pour cela que dans ma classe TSLTTextFileReader de lecture de fichier j'ai prévu la lecture en CR ou en LF (implicitement CRLF)

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
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
 
//------------------------------------------------------------------------------
function TSLTTextStreamReaderAnsi.ReadLineRaw(AIndexFile: TFileStream; AUseCROnly: Boolean; const Index, OffSet: Int64): string;
const
  BUF_SIZE = 1024;
  LF: Byte = 10;
  CR: Byte = 13;
var
  TextBuf: array[0..BUF_SIZE-1] of Byte;
  IndexRec: TSLTTextFileReaderIndex;
  iBuf, Readed: Integer;
  AByte: Byte;
  LastIsCR: Boolean;
  LineReaded: Int64;
  EndOfLine: Byte;
begin
  // Positionnement au début du Fichier ou sur le Curseur de lecture linéaire
  FTextStream.Seek(OffSet, soBeginning);
 
  // Compteur/Index/Drapeau à Zéro
  IndexRec.OffSet := OffSet;
  IndexRec.Length := 0;
  LastIsCR := False;
  if AUseCROnly then
    EndOfLine := CR // Compatible MacOS avec CR isolé
  else
    EndOfLine := LF; // Compatible Windows couple CR LF et Linux LF
  LineReaded := 0;
  // Boucle jusqu'à la fin
  while (FTextStream.Position < FTextSize) do
  begin
    Readed := FTextStream.Read(TextBuf, BUF_SIZE);
    for iBuf := 0 to Readed - 1 do
    begin
      AByte := TextBuf[iBuf];
      if (AByte = EndOfLine) then
      begin
        FLinearPosition := FTextStream.Position - Readed + iBuf;
        IndexRec.Length := FLinearPosition - IndexRec.OffSet;
        Inc(FLinearPosition); // car on n'inclu pas la fin de ligne dans la prochaine ligne
        if not AUseCROnly and LastIsCR then
          Dec(IndexRec.Length); // -1 car on inclu pas le CR dans un couple CR LF
 
        // Si l'on trouve la fin de ligne, on récupère directement les données
        if (LineReaded = Index) then
        begin
          Result := ReadLineFromIndexRec(IndexRec);
          Exit;
        end;
        // la prochaine ligne commencera après ce dernier séparateur de ligne
        IndexRec.OffSet := FLinearPosition;
        Inc(LineReaded);
      end;
      if not AUseCROnly then
        LastIsCR := (AByte = CR);
    end;
  end;
  // On a pas trouvé de fin de ligne, il est fort possible que ce soit la dernière sans fin de ligne
  // On récupère l'ensemble de la fin du fichier, on lit (Fin - Offset) Byte à partir de Offset
  if IndexRec.OffSet < FTextSize then
  begin
    IndexRec.Length := FTextStream.Position - IndexRec.OffSet;
    FLinearPosition := FTextStream.Position + 1; // + 1 ainsi on sera définitivment en dehors !
    if (LineReaded = Index) then
    begin
      Result := ReadLineFromIndexRec(IndexRec);
      Exit;
    end;
  end;
  Result := '';
end;

[Charly910]

Bonjour,

D'accord avec ShaiLeTroll, bêtement avec la fonction Pos, j'ai testé :

Code :

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

s := StringReplace(s, #13, #13#10,[rfReplaceAll]);

StringReplace remplace bien #13 par #13#10 et aussi #13#10 par #13#10#10

A+
Charly

[PhilLU]

Bonjour Gbegreg,
J'ai testé ceci et différentes variantes...

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
var CR2CRLF : TStringlist;
      T:='';
      AssignFile(F,Opendialog1.FileName);
      Reset(F);
       Readln(F,S);
       if pos(#13#10,S)=0 then
       begin
         CR2CRLF := TStringList.Create;
         CR2CRLF.LineBreak := #13;
         CR2CRLF.Text := S;
         CR2CRLF.LineBreak := #13#10;
         Closefile(F);
         CR2CRLF.SaveToFile(Opendialog1.FileName); 
         CR2CRLF.free;
       end;

mais pas mieux... :-(

[PhilLU]

Salut Charly910,
malheureusement non...
et si je fais

Code :

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

1
2
3
4
5
6
7
8
AssignFile(F,Opendialog1.FileName);
Reset(F);
Readln(F,S);
s := StringReplace(s, #13, 'blabla',[rfReplaceAll]);
t := StringReplace(s, 'blabla', #13#10,[rfReplaceAll]);
rewrite(F);
Writeln(F,t);
Closefile(F);

pas ok non plus ???
le fichier final contient une ligne sans CR ni CRLF :-(

[SergioMaster]

Bonjour,

le premier truc qui me gêne c'est l'utilisation de Notepad++ pour vérifier le résultat
j'ai fait un test rapide

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
procedure TForm8.Button1Click(Sender: TObject);
var L : TStringList;
begin
 L:=TStringList.Create;
 try
   L.Add(#13);
   L.Add('Essai');
   L.Add(#13#10);
   L.SaveToFile('F:\Test.txt',TEncoding.ASCII); // à tester les différents encodage ANSI/UTF8
 finally
   L.Free;
 end;
end;

avec notepad++ effectivement peu concluant, toutefois, si je change l'extension en XML c'est plus lisible
ou alors en utilisant un editeur hexa (i.e. HexEdit)
Toutefois il y a des CR+LF de rajouté pour chaque lignes de la StringList

[Andnotor]

ReadLn, comme son nom l'indique, lit une ligne, pas la totalité du fichier... Tu n'auras jamais de #13 puisque ça marque justement la fin de ligne.

[Hermite]

Tu dois pouvoir faire ça en chargeant ton fichier dans une TStringList et en affectant #13#10 à la propriété LineBreak puis en enregistrant.

C'est d'ailleurs la méthode proposée par gbegreg, mais lorsque tu as essayé, au lieu de charger le fichier, tu as utilisé la TStringList pour traiter une seule ligne à la fois récupérée par ReadLn.
Et comme l'a dit AndNotor, ReadLn ne retourne pas les #13 ni les #13#10.

Tu n'as besoin que des quelques lignes indiquées ci-dessous. Pas d'AssignFile, ReadLn, WriteLn. Juste la TStringList.

Code :

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

1
2
3
4
5
6
 
myFile := TStringList.Create;
myFile.LoadFromFile(AFileName);
myFile.LineBreak := #13#10;
myFile.SaveToFile(AFileName);
myFile.Free;

[Charly910]

@PhilLu

comme dit AndNotOr, ton test ne prouve rien, car readln lit les caractères avant le Chr(13) et Writeln en rajoute un à la fin de la chaine

essaye de vérifier la position des éventuels caractères chr(13) et chr(10) dans ta chaine après lecture.

A+
Charly

Sinon lit et affiche le contenu de ton fichier caractère par caractère comme dans l'aide de Fileseek :

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
procedure TForm1.Button1Click(Sender: TObject);
 
var
  iFileHandle: Integer;
  iFileLength: Integer;
  iBytesRead: Integer;
  Buffer: PChar;
  i: Integer
begin
  if OpenDialog1.Execute then
  begin
    try
      iFileHandle := FileOpen(OpenDialog1.FileName, fmOpenRead);
      iFileLength := FileSeek(iFileHandle,0,2);
      FileSeek(iFileHandle,0,0);
      Buffer := PChar(AllocMem(iFileLength + 1));
      iBytesRead := FileRead(iFileHandle, Buffer^, iFileLength);
 
      FileClose(iFileHandle);
      for i := 0 to iBytesRead-1 do
      begin
        StringGrid1.RowCount := StringGrid1.RowCount + 1;
        StringGrid1.Cells[1,i+1] := Buffer[i];
        StringGrid1.Cells[2,i+1] := IntToStr(Integer(Buffer[i]));
      end;
    finally
      FreeMem(Buffer);
    end;
  end;
end;

[gbegreg]

J'ai testé ceci et différentes variantes...

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
var CR2CRLF : TStringlist;
      T:='';
      AssignFile(F,Opendialog1.FileName);
      Reset(F);
       Readln(F,S);
       if pos(#13#10,S)=0 then
       begin
         CR2CRLF := TStringList.Create;
         CR2CRLF.LineBreak := #13;
         CR2CRLF.Text := S;
         CR2CRLF.LineBreak := #13#10;
         Closefile(F);
         CR2CRLF.SaveToFile(Opendialog1.FileName); 
         CR2CRLF.free;
       end;

mais pas mieux... :-(

En reprenant ton exemple :

Code :

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

1
2
3
4
5
6
7
var CR2CRLF : TStringlist;
begin
         CR2CRLF := TStringList.Create;
         CR2CRLF.LoadFromFile(Opendialog1.FileName);
         CR2CRLF.SaveToFile(Opendialog1.FileName); 
         CR2CRLF.free;
end;

Hermite avait déjà répondu. Pas la peine de positionner le LineBreak à #13#10 sous Windows car c'est la valeur par défaut, si le fichier Opendialog1.FileName contient des #13, le charger dans un TStringlist (sous Windows) va automatiquement le convertir avec des #13#10.

[Charly910]

Bonjour,

d'après mes tests, le Readln(F,S) élimine les #13 isolés dans la ligne lue.

Il faut donc que tu passes par une autre solution pour lire ton fichier (certainement loadfromfile ...)

A+
Charly

[Charly910]

Bonjour,
chez moi en D7, le stringReplace fonctionne bien même après lecture d'un fichier et réécriture, même sans passer par des TStringLists. Essaye mon exemple :

Test CRCRLF.zip

A+
Charly

[PhilLU]

Merci Charly910,
En effet, je charge via memo.lines.loadfromfile, les sauts de lignes sont respectés :-)
Ensuite je lis les lignes une par une...
donc OK


Charly910