Discussion :

[gillou026]

Salut !
Je voudrais savoir comment on fait pour convertir un fichier texte qui contient des codes de touches clavier :

exemple de ce que le fichier contient :

53414C5554

ce qui correspont à : salut
53 -> s
41 -> a
etc

en un autre fichier texe qui contient les fameux caractères ...

j'ai fait un truc qui ressemble à ça :

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
procedure TForm1.Button1Click(Sender: TObject);
var  F1, F2: TextFile;
  Ch: Byte;
begin
if OpenDialog1.Execute then begin
    AssignFile(F1, OpenDialog1.Filename);
    Reset(F1);
    if SaveDialog1.Execute then begin
      AssignFile(F2, SaveDialog1.Filename);
      Rewrite(F2);
      while not Eof(F1) do
      begin
        Read(F1, Ch);
        Write(F2, Ch);
      end;
      CloseFile(F2);
    end;
    CloseFile(F1);
  end;
end;

seulement ( et je comprends pourquoi) ça me copie la même chose
Pourriez vous me dire ce qu'il faut modifier pour faire ce que je veux ...

Merci de votre aide ...

Gilles

[Archibald29]

Salut,

Tu peux sans doute utiliser la fonction Chr :

Chr renvoie le caractère correspondant à une valeur ASCII.

Code :

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

1
2
 
function Chr(X: Byte): Char;

Description
La fonction Chr renvoie le caractère dont l'ordre (sa valeur ASCII) est égal à l'expression X de type octet.
Exemple

Code :

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

1
2
3
4
 
begin
  Canvas.TextOut(10, 10, Chr(65));  { la lettre 'A'}
end;

Il te faudra transmettre à la fonction 2 Character à chaque appel pour que la conversion s'effectue correctement, donc :

-> Lire deux caractéres de suite dans F1
-> Les regrouper dans une chaine par exemple
-> transmettre cette chaine à Chr pour conversion
-> Ecrire le caractère obtenu dans F2

La fonction qui fait le travail inverse est 'Ord' qui renvoie par exemple '65' lorsqu'on lui transmet 'A'.


[Balises CODE rajoutées par Pedro. Merci d'y penser à l'avenir]

[gillou026]

Salut !

j'ai modifié en ceci :

Code :

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

1
2
3
4
5
6
7
8
      while not Eof(F1) do
      begin
        Read(F1, Ch1);
        Read ( F1, Ch2);
        s := Ch1 + Ch2;   // Ch1 et Ch2 : Char;
        x := chr(strtoint(s));      // x et s : string;
        Write(F2, x);
      end;

mais ça ne marche toujours pas ...

ça met pas les bons caractères ...

le 41 qui devrait être converti en : a est converti en )
le 42 en * au lieu de b

etc ...
je suis pas loin ... je pense mais je trouve po ... !!!

[Modération]
Merci d'utiliser les balises code ou quote,Laurent Dardenne
[/Modération]

[Graffito]

Bonjour,

C'est parce que 41 est codé en hexa : 4 x16 +1 =65.

ceci devrait convenir :

Code :

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

x:=chr(ord(HexToBin(@Text,@s[1],2)) ;

[TicTacToe]

C'est normal

41 est le code ascii de 'A' mais en héxadécimal

or, lorsque tu fais StrToInt( '41' ), cela te renvoie, le nombre 41... qui est bien le code Ascii de '('.

Autrement dit, tu dois convertir ta chaine qui représente un héxa en entier

Aide toi de la fonction

HexToBin(...)

A++

[Graffito]

Oups,

mon codage est erroné, il faut faire :

Code :

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

i:=HexToBin(@x,@s[1],2) ; if i<>2 then showmessage('erreur) ;

[gillou026]

salut ...

Désolé, je débute un peu en Delphi ... (on va dire )
et je ne comprend pas trop ce qu'il faut faire ....

quelqu'un peut m'écrire les 3 ou 4 lignes qu'il doit y avoir entre

Code :

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

1
2
3
4
5
6
7
8
 
while not Eof(F1) do
      begin
 
 
 
      end;
      CloseFile(F2);

avec les variable utilisées et en quoi elles doivent être déclarée ...
merci de votre aide ...
[Balises CODE rajoutées par Pedro. Merci d'y penser à l'avenir]