Ajout de codes Hexa après extraction d'un fichier binaire

**Philippe_Perfect** · 07/06/2010, 11h17

Bonjour !

Merci pour votre aide, mais comme souvent, on me demande plus : je dois faire des statistiques sur la sortie;

ainsi il me faudrait ajouter $0D$0A à la fin de chaque ligne des 13 signes OMR,
et j'en suis incapable, car je ne comprends pas tout le code

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
procedure TForm1.Button1Click(Sender: TObject);
type
  TReadMode = (rmSearch, rmRead);
 
const
  StartString :array [0..5] of byte = ($2b, $d3, $04, $d2, $01, $c5);
  EndString   :byte = $5A;
 
var
  msIN        :TMemoryStream;
  msOut       :TMemoryStream;
  StringIndex :integer;
  i           :Int64;
  b           :byte;
  Mode        :TReadMode;
 
begin
  msIN  := TMemoryStream.Create;
  msOUT := TMemoryStream.Create;
 
  try
    msIN.LoadFromFile('c:\temp\qtra06.txt');
    msIN.Position := 0;
 
    //Index dans la chaîne de départ
    StringIndex := 0;
 
    //Mode "Recherche"
    Mode := rmSearch;
 
    for i := 0 to msIN.Size -1 do
    begin
      //Lecture byte par byte
      msIN.ReadBuffer(b, 1);
 
      case Mode of
        rmSearch: //Recherche de la chaîne de départ
                  if b = StartString[StringIndex] then
                  begin
                    //Tous les bytes testés -> Mode "Lecture"
                    if StringIndex = High(StartString)
                    then Mode := rmRead
                    else inc(StringIndex);
                  end
                  else StringIndex := 0;
 
        rmRead:   //Repasse en mode "Recherche" si caractère de fin trouvé
                  //Sinon écriture dans le flux de sortie
                  if b <> EndString then
                    msOUT.WriteBuffer(b, 1)
                  else
                  begin
                    Mode := rmSearch;
                    StringIndex := 0;
                  end;
      end;
    end;
 
    msOUT.SaveToFile('c:\temp\qtra06_OUT.txt');
 
  finally
    msIN.Free;
    msOUT.Free;
  end;
end;

Merci de me dépanner et salutations

**ShaiLeTroll** · 07/06/2010, 11h49

Ce Code semble exlcure les caractères entre la chaine StartString et EndString
exemple en mode texte

toto+ÓÞÅtitiZtutu

donnerait, si j'ai bien compris

tototutu

**Philippe_Perfect** · 07/06/2010, 12h12

Je me suis mal exprimé,
mais je veux ajouter un code fin de ligne CR + LF
après chaque ligne des 13 codes en output.

**Cl@udius** · 07/06/2010, 12h16

Salut

C'est le code proposé par Andnotor il me semble dans un précédent thread.

En lisant son code ça donnerait ceci:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
        rmRead:   //Repasse en mode "Recherche" si caractère de fin trouvé
                  //Sinon écriture dans le flux de sortie
                  if b <> EndString then
                  begin
                    msOUT.WriteBuffer(b, 1);
                    msOUT.WriterBuffer($0D, 1);
                    msOUT.WriterBuffer($0A, 1);
                  end
                  else
                  begin
                    Mode := rmSearch;
                    StringIndex := 0;
                  end;

A tester.

@+ Claudius

**Andnotor** · 07/06/2010, 13h11

Plus exactement:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
const
  CRLFString  :array [0..1] of byte = ($13, $10);
 
...
        rmRead:   //Repasse en mode "Recherche" si caractère de fin trouvé
                  //Sinon écriture dans le flux de sortie
                  if b <> EndString then
                    msOUT.WriteBuffer(b, 1)
                  else
                  begin
                    msOUT.WriteBuffer(CRLFString, 2);
                    Mode := rmSearch;
                    StringIndex := 0;
                  end;