transcoder des codes ascii en caractères

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:

---

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

Salut,

Tu peux sans doute utiliser la fonction Chr :

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

Code:

---

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:

---

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'.

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

Salut !

j'ai modifié en ceci :

Code:

---

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 ... !!! :cry:

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

Bonjour,

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

ceci devrait convenir :

Code:

---

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

---

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++

Oups,

mon codage est erroné, il faut faire :

Code:

---

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

---

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:

---

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]