Télécharger lire_CSV_espaces.dgibi

Retour à la liste

Numérotation des lignes :

  1. ************************************************************************
  2. ************************************************************************
  3. * TEST DE LECTURE DE FICHIERS CSV AVEC COMME SEPARATEUR ' '
  4. *
  5. * ON A MIS EXPRES DES ' ' SUPPLEMENTAIRES EN DEBUT ET FIN DE CERTAINES
  6. * LIGNES AINSI QU'ENTRE CERTAINES VALEURS POUR VERIFIER QU'ILS SONT
  7. * IGNORES
  8. ************************************************************************
  9.  
  10. XPREC = VALE 'PREC';
  11.  
  12. * repertoire des fichiers "divers"
  13. DIVERS = VENV 'CASTEM_DIVERS';
  14. * LECTURE EN COLONNES
  15. TAB1 = LIRE 'CSV' ('CHAIN' DIVERS '/lire_csv_espaces.csv') 'SEPA' ' ';
  16.  
  17. L1 = PROG 0. 3. 6.;
  18. L2 = PROG 1. 4. 7.;
  19. L3 = PROG 2. 5. 8.;
  20. SI (((MAXI 'ABS' (TAB1.(1) - L1)) >EG XPREC) OU
  21. ((MAXI 'ABS' (TAB1.(2) - L2)) >EG XPREC) OU
  22. ((MAXI 'ABS' (TAB1.(3) - L3)) >EG XPREC));
  23. ERRE 'PROBLEME DE LECTURE (LECTURE EN COLONNES)';
  24. FINSI;
  25.  
  26. * LECTURE EN LIGNES
  27. TAB2 = LIRE 'CSV' ('CHAIN' DIVERS '/lire_csv_espaces.csv') 'SEPA' ' ' 'LIGN';;
  28.  
  29. L1 = PROG 0. 1. 2.;
  30. L2 = PROG 3. 4. 5.;
  31. L3 = PROG 6. 7. 8.;
  32. SI (((MAXI 'ABS' (TAB2.(1) - L1)) >EG XPREC) OU
  33. ((MAXI 'ABS' (TAB2.(2) - L2)) >EG XPREC) OU
  34. ((MAXI 'ABS' (TAB2.(3) - L3)) >EG XPREC));
  35. ERRE 'PROBLEME DE LECTURE (LECTURE EN LIGNES)';
  36. FINSI;
  37.  
  38. FIN;
  39.  
  40.  
  41.  
  42.  
  43.  

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