Discussion :

[_MiniMoi_]

Bonsoir,

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

Code :

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

read'(a)',L

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

Code :

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

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

[Ladgalen]

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 :

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

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 !

[_MiniMoi_]

Bonsoir,

Merci pour tout, ça marche niquel!