Télécharger netcha.eso

Retour à la liste

Numérotation des lignes :

  1. C NETCHA SOURCE JC220346 12/06/18 21:15:10 7403
  2. ************************************************************************
  3. * NOM : netcha.eso
  4. * DESCRIPTION : nettoie les caractères "exotiques" dans une chaîne
  5. ************************************************************************
  6. * HISTORIQUE : 7/06/2012 : JCARDO : création de la subroutine
  7. * HISTORIQUE :
  8. * HISTORIQUE :
  9. ************************************************************************
  10. * Prière de PRENDRE LE TEMPS DE COMPLÉTER LES COMMENTAIRES
  11. * en cas de modification de ce sous-programme afin de faciliter
  12. * la maintenance !
  13. ************************************************************************
  14. * ENTRÉE :: CH=chaîne avec caractères invalides
  15. * SORTIE :: CH=chaîne sans caractères invalides
  16. ************************************************************************
  17. SUBROUTINE NETCHA(CH)
  18. IMPLICIT INTEGER(I-N)
  19.  
  20. CHARACTER*64 CHAROK
  21. PARAMETER(CHAROK='abcdefghijklmnopqrstuvwxyz'//
  22. . 'ABCDEFGHIJKLMNOPQRSTUVWXYZ'//
  23. . '0123456789-_.')
  24. * #%&£$µ
  25. CHARACTER*(*) CH
  26.  
  27. DO I=1,LEN(CH)
  28. IF (INDEX(CHAROK,CH(I:I)).EQ.0) CH(I:I)=' '
  29. ENDDO
  30.  
  31. END
  32.  
  33.  

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