Discussion :

[JoseF]

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 :

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

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

je transforme en numérique par

Code :

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

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

[Tuxico]

pourquoi ne pas utiliser les fonctions ord() et char() si j'ai bien compris le problème?

[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

[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é

[M.Dlb]

ce n'est pas la fonction char() mais chr() :

Code :

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

1
2
3
4
 
var s: string;
...
s[1] := chr(ord(s[1]) + 32);

[Tuxico]

oups désolé pour l'erreur

[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 !!

[HRS]

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

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

[M.Dlb]

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

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