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... :-(