Télécharger lire_CSV_entete.dgibi

Retour à la liste

Numérotation des lignes :

  1. ************************************************************************
  2. ************************************************************************
  3. * TEST DE LECTURE DE FICHIERS CSV AVEC EN-TETE
  4. *
  5. * ON A MIS EXPRES :
  6. * - 2 LIGNES BIDONS AU DEBUT DU FICHIER POUR VERIFIER L'OPTION 'DEBU'
  7. * - DES VIRGULES A LA PLACE DU POINT A CERTAINS ENDROITS EN TANT QUE
  8. * SEPARATEUR DECIMAL POUR VERIFIER QUE LA SUBSTITUTION SE PASSE
  9. * CORRECTEMENT
  10. ************************************************************************
  11.  
  12. XPREC = VALE 'PREC';
  13.  
  14. * repertoire des fichiers "divers"
  15. DIVERS = VENV 'CASTEM_DIVERS';
  16. * LECTURE EN COLONNES
  17. TAB1 = LIRE 'CSV' ('CHAIN' DIVERS '/lire_csv.csv') 'DEBU' 3;
  18.  
  19. INDICES = INDE TAB1;
  20. SI ((NEG INDICES.(1) 'toto') OU
  21. (NEG INDICES.(2) 'tata') OU
  22. (NEG INDICES.(3) '3-ti+ 4'));
  23. ERRE 'PROBLEME DE LECTURE DES EN-TETES (LECTURE EN COLONNES)';
  24. FINSI;
  25.  
  26. L1 = PROG 120. 8.9;
  27. L2 = PROG 3. 5.;
  28. L3 = PROG 5.6 12.4;
  29. SI (((MAXI 'ABS' (TAB1.'toto' - L1)) >EG XPREC) OU
  30. ((MAXI 'ABS' (TAB1.'tata' - L2)) >EG XPREC) OU
  31. ((MAXI 'ABS' (TAB1.'3-ti+ 4' - L3)) >EG XPREC));
  32. ERRE 'PROBLEME DE LECTURE DES FLOTTANTS (LECTURE EN COLONNES)';
  33. FINSI;
  34.  
  35. * LECTURE EN LIGNES
  36. TAB2 = LIRE 'CSV' ('CHAIN' DIVERS '/lire_csv.csv') 'LIGN' 'DEBU' 3;
  37.  
  38. LMOTS = MOTS 'toto' 'tata' '3-ti+ 4';
  39. L1 = PROG 120. 3. 5.6;
  40. L2 = PROG 8.9 5. 12.4;
  41. SI (NON ((EXIS TAB2.(1) LMOTS 'ET') ET (EXIS LMOTS TAB2.(1) 'ET')));
  42. ERRE 'PROBLEME DE LECTURE DES EN-TETES (LECTURE EN LIGNES)';
  43. FINSI;
  44. SI (((MAXI 'ABS' (TAB2.(2) - L1)) >EG XPREC) OU
  45. ((MAXI 'ABS' (TAB2.(3) - L2)) >EG XPREC));
  46. ERRE 'PROBLEME DE LECTURE DES FLOTTANTS (LECTURE EN LIGNES)';
  47. FINSI;
  48.  
  49. FIN;
  50.  
  51.  
  52.  
  53.  
  54.  
  55.  
  56.  

© Cast3M 2003 - Tous droits réservés.
Mentions légales