Lire un fichier csv décimale "." ou ","

bonjour à tous et à toutes.

j'ai un fichier type csv créé par une macro EXCEL. Mon souhait serait de pouvoir stocker les valeurs dans un tableau avec fortran.
Le problème c'est que je n'arrive pas à donner une condition sur le séparateur de décimales.

le code ci-dessous fonctionne si je règle mes paramètres régionaux en "." pour le séparateur.

Code:

---

1 2 3 4 5 6 7 8 9 10 11

!LIRE LE FICHIER OPEN(UNIT=30,FILE='donnees.csv',STATUS='OLD') READ(30,*) TITRE   DO i=1 ,nbre Read(30,*)(MON_TABL(i,j) , j=1,50,1 ) END DO   CLOSE(30)

---

Dans le cas où le séparateur des décimales est "," cela ne fonctionne pas.

Pourriez vous s'il vous plaît m'éclairer ?

Je n'ai cherché, mais il me semble que tu peux forcer le séparateur décimal en Fortran 2003 (?).

Mais personnellement, j'utilise toujours la solution suivante :

• Lire une ligne dans une variable caractère
• Changer les séparateurs par une petite boucle
• "Lire" la variable caractère avec les variables voulues (read(chaine,*) liste de variable)
• Passer à la ligne suivante

Merci pour votre réponse.

J'arrive à lire une seule ligne mais je ne sais pas passer à la suivante :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

!LIRE LE FICHIER OPEN(UNIT=10,FILE='donnees.csv',STATUS='OLD') DO READ(10,'(a)',iostat=k) Ligne IF (k /= 0) exit   ! Changement du delimiteur de decimales DO Pos = index(Ligne,',') if (Pos == 0) exit Ligne(Pos:Pos) = '.' END DO   ! Changement du delimiteur de champs DO Pos = index(Ligne,';') if (Pos == 0) exit Ligne(Pos:Pos) = ',' END DO   END DO

---

AUTRE ASTUCE (----> Méthode sauvage)
Je vais créer une macro dans le fichier excel qui remplace les "," par des "."
Ensuite, j'enregistre le fichier au format *.txt, qui sera lisible par le fortran.


Merci pour votre aide, je vais continuer.

Bonjour,

Je trouve que c'est encore ce qu'il y a de moins "sauvage" ;)
Le fortran n'est pas très bien adapté pour manipuler des chaines de caractères, c'est un language de calcul comme son nom l'indique.

Du coup formater un fichier s'avère parfois très chiant. Si tu peux le faire avec un autre outil plus facilement, c'est encore le mieux

bonjour
plus simple que ca mon ami,tu meurs.
-formate tes colonnes en standard
-donne leur une largeur (mettons identique par exemple 8 caracteres ou varie)
-insere une colonne vide mettons 2 caracteres entre chaque colonne
enregistre ton fichier en .PRN (c'est ca l'astuce).
Ce sera du SDF (FixedFormat delimite avec espace) respectant les largeurs de colonnes donnes avec 2 espaces entre chaque champ.
pour le lire le code :

Code:

---

1 2 3

READ (10000, err=200,end=200) col1,col2,col3 ,etc... 10000 FORMAT(a8,2x,a8,2x,a8,2x ,etc.....,/)

---

pour automatiser le bataclan dans Excel ,tu fais une macro qui balaye tes colonnes de A à F et qui fait Cells.Width=8, Cells.Column.Insert(i,j) (colonne intercalaire vide).
un fortraner eprouve ....
bon code....

rebonjour
ah j'ai oublie .Notation decimale anglaise avec point en fortran et les virgules francaises dans excel.
Avec d'enregistrer en .prn et click sur le panneau configuration et change le en english et excel bascule en notation decimale anglaise instantanement.
Et save workbook et ok ...ok...sans crainte .
Les nombres dans le .prn seront Notation decimale English.
voila apres enregistre pour le mettre dans ton album le classeur en xls et panneau francais.
bon code....