Discussion :

[JoseF]

bonjour,

je recherche comment convertir un code ASCII dans une chaine en entier...

exemple

Code :

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

1
2
3
4
5
6
7
8
9
10
program testval;
var     a,c         :string;
        i,r,code  :integer;
begin
        a:='Bonjour';
        c:=copy(a,1,1);
        val(c,r,code);
        Writeln('a= ',a,' c= ',c,' r= ', r,' cr= ',code);
        readln;
end.

je pensais que val allait me le faire mais ça et que j'allais récuperer 66 dans R mais je n'ai que zero et 1 en cr

merci si vous avez une autre solution

[M.Dlb]

Euhhhhhhhhhhhh...


Il faut utiliser chr() et ord(). Merci de consulter l'aide de ton compilateur

Val et str permet de convertir une chaine en entier et inversement.

[JoseF]

désolé,

oui c'est bien ce que je voulais faire convertir une chaine en un entier avec la fonction val mais comme mon compilo freepascal est un peu en anglais et les exemples pas trop explicites.. (pour moi..)


bon je vais me débrouiller

tant que j'y suis mon aide de freepascal plante assez svt et j'ai plein de couleur alors je suis opbligé de quitter le compilo et de le relancer .. qq1 connait ce pb ?

[M.Dlb]

Non ce n'est pas ce que tu veux faire... Toi tu voudrais récupérer le code ASCII d'un caractère dans une chaine. Et pour celà, c'est ord().

Val permet de convertir une chaine en entier : la chaine s '124' devient l'entier 124. C'est pas du tout la même chose.

[JoseF]

Bonjour,

oui effectivement VAL permet de transformer du numerique d'un chaine dans un integer. (autant pour moi...)

mon pb perso était le suivant au départ
dans un chaine j'avais par exemple '10 etc''
j'ai fait un ptit pb qui a transformé cette chaine en '*etc' (une sorte de compression..)

Code :

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

1
2
3
4
5
6
7
z:=copy(a,1,2);
val(z,k,code);
k:=ord(k);
k:=k+32;
c:=chr(k);
insert(c,a,1);
delete(a,2,3);

maintenant je cherche à retouver mon '10' en retrouvant le 42 du code ascii * auquel j'enleve mes 32 pour avoir 10 de départ (décompression..)

alors je cherche la fonction... (en Qbasic il y avait un fonction ASC)

Code :

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

PRINT ASC("Q")    'Sortie:  81

[M.Dlb]

Il faut utiliser ord et str :

Code :

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

1
2
3
4
5
6
 
var ch: Integer;
var s: String;
 
ch := ord(s[1]); { ch = 42 }
str(ch - 32, s); { s = '10' }

[Eric Sigoillot]

alors je cherche la fonction... (en Qbasic il y avait un fonction ASC)

Code :

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

PRINT ASC("Q")    'Sortie:  81

L'équivalent de ce code est :

Code :

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

Write(Ord('Q'));

@++

[JoseF]

merci !!

je crois avoir trouvé mon erreur... ça ne marche pas avec une extraction de chaine..

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 testval;
var     a,b:string;
        c,d:char;
        //i:integer;
begin
        a:='Bonjour';
        b:=copy(a,1,1);
        c:='Q';
        d:='R';
 
        Writeln('equivalent Basic de ASC(''Q'') Ord(''Q'') ',Ord('Q'));
 
        Writeln(Ord(c)); //ça marche si Char mais pas string :(
        Writeln('ce qu il y a dans B ',b);
        //Writeln(Ord(b)); //marche pas : Type mismatch
       readln;
end.

donc maintenant la question que je me pose est de savoir comment convertir une chaine de 1 caracter en char ?

comme je viens du basic cette notion de char je ne connais pas trop..

[M.Dlb]

Une chaine est un tableau de caractères... Pour avoir le caractère, il suffit de faire :

Code :

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

1
2
3
4
5
6
7
 
var c: Char;
var s: String;
begin
s := 'salut';
 
ch := s[1]; // ch = 's';

[JoseF]

je crois avoir compris !

Code :

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

 Writeln(Ord(b[1])); // ok !

merci !

[M.Dlb]

Ou plus simplement a[1]... Copy ne sert absolument à rien

[elid]

bonjour j'essai de comprendre comment marche Val ( dans le livre que j'utilise je ne trouve pas) et l'aide du compilateur est pas super clair. il faut ecrire val(S;var u;var Code:integer)

mais je ne comprends pas vrément a quoi correspond S , var u et var code.

[M.Dlb]

S, u et v sont des variables passées en paramètre de la fonction val. Val permet de convertir une chaîne de caractères (string) en entier (integer)

[Eric Sigoillot]

http://pascal.developpez.com/faq/