[Débutant] Extraire le code ASCII d'une chaîne de caractères

Bonsoir,

J'ai vu qu'on pouvait extraire le code ASCII en utilisant ces instructions:

Code:

---

read'(a)',L

---

on extrait le code ASCII du caractère contenu dans L avec:

Code:

---

ichar(L)

---

Comment peut-on extraire le code ASCII de plusieurs caractères pour que je puisse l'affecter à plusieurs variables s'il vous plait?
Par exemple je rentre la chaine '234FH' et je souhaite prendre les codes ASCII et les affecter aux variables I,J,K,L,M.

Merci

Une solution est de parcourir ta chaine de caractères lettre par lettre et d'affecter le code ascii de chaque lettre à une variable :

Par exemple comme ça

Code:

---

1 2 3 4 5 6 7 8

integer::i character(len=5)::mot integer,dimension(5)::code   Do i=1,5 code(i) = ichar( mot(i:i) ) Enddo

---

mot(i:i) étant un sous chaine de caractère de mot qui commence au ieme caractère et finit au ieme caratère ... en clair c'est la ieme lettre !

Bonsoir,

Merci pour tout, ça marche niquel!