Parcourir le texte

C     Parcourir le texte

C     

C     Appel :

C     CALL P2H038 (TEXTVAR,CSUCH,IPOS,IRET)

C     

C     Les variables suivantes doivent être définies au préalable :

C     

C     TEXTVAR : Texte à parcourir

C     CSUCH   : Texte à rechercher

C     IPOS    : Résultat : 0 = texte non trouvé, 1 = texte trouvé

C     IRET    : n'est pas évalué, mais doit être spécifié

C     

C     NOTE : Les variables de texte TEXTVAR et CSUCH doivent être déclarées dans l'en-tête du

C              programme !

C     CHARACTER *80 TEXTVAR, CSUCH

C     

C     Exemple :

C     ----------------

C     Parcourir le texte

C     ----------------

      TEXTVAR = "HundKatzeMaus"

      CSUCH = "Chien"

C     

      CALL P2H038 (TEXTVAR,CSUCH,IPOS,IRET)

C     

C     La sortie avec l'instruction :

      WRITE(6,*)IPOS

C     

C     donne : 1

C     

C     NOTE : Les majuscules et minuscules ne sont pas pertinentes ici.

C              "Chien", "CHIEN" ou "ChiEn" sont tous trouvés.

C