[LG] Transformer un code ascii en un autre

Version imprimable

28/12/2005, 22h38
JoseF

[LG] Transformer un code ascii en un autre

Bonsoir,

je voudrais transformer un nombre dans une chaine par un un caractere ascii different

exemple j'ai dans une chaine string en position 1 et 2 le nombre 33

je voudrais ajouter 32 et avoir par consequence le code 65 c est à dire la lettre A

donc j'extraie par

Code:

z:=copy(chaine,1,2);

je transforme en numérique par

Code:

VAL(Z,entier1,coderetour);

ensuite j'ajoute 32 à entier1 et j'essaie de retrouver le A par la fonction STR mais là je bute .. (je ne sais pas trop sur quoi..)

merci et mes excuses pour des questions si basic
28/12/2005, 22h46
Tuxico

pourquoi ne pas utiliser les fonctions ord() et char() si j'ai bien compris le problème?
28/12/2005, 22h53
JoseF

heu je ne connais pas ces fonctions ...

comme je fais avec ce que je connais pour l'instant.

si vous avez un exemple pour quoi pas :)
28/12/2005, 22h56
Tuxico

en fait la fonction ord(); donne le code ascii correspondant à un caractère .
La fonction char() te donne la caractère correspondant au code ascii entré ;)
28/12/2005, 22h59
M.Dlb
ce n'est pas la fonction char() mais chr() :
Code:

1 2 3 4 var s: string; ... s[1] := chr(ord(s[1]) + 32);
28/12/2005, 23h02
Tuxico

oups désolé pour l'erreur :)
28/12/2005, 23h06
JoseF

comme d'habitude c'était simple

mais je ne connaissais pas .. j'ai essayé et ça fonctionne très bien :-)

merci de votre éfficacité dans les temps de réponses !!

c'est d'ailleurs la méthode pour transformer une majuscule en minuscule

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
program titi;
var st : string;
procedure Minuscules (var mot : string);
var i : integer;
begin
     for i:= 1 to length (mot) do
         if mot[i] in ['A'..'Z'] then
            mot[i] := chr(ord(mot[i]) + 32); 
end;       
begin
     st := 'TITI';
     Minuscules (st);
     writeln (st);
     readln;
end.

Et on peut faire la même chose pour les majuscules :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
program titi;
var st: String;
 
procedure Majuscules (var mot : string);
var i: Integer;
begin
     for i := 1 to length(mot) do
         if mot[i] in ['a'..'z'] then
            mot[i] := chr(ord(mot[i]) - 32);
end;       
begin
     st := 'toto';
     Majuscules(st);
     writeln(st);
     readln;
end.