Fractionner le texte en ajoutant un séparateur

Parfois, il arrive qu'une chaîne contenant plusieurs informations soit transmise. Par exemple : "123|328|984". Dans ce cas, vous pouvez déterminer la chaîne partielle en « fractionnant » le texte au niveau du séparateur. À cette fin, il existe une routine qui vous permet de spécifier laquelle de ces « parties » vous souhaitez avoir.

C     Fractionner le texte en ajoutant un séparateur

C     

C     Appel :

C     CALL PST154 (TEXTVAR,'|',1,CFELD,IERR)

C     

C     Le séparateur doit être spécifié comme deuxième paramètre.

C     Le troisième paramètre précise quelle chaîne partielle doit être

C     déterminée. Dans l'exemple ci-dessus, il s'agit de la première chaîne partielle.

C     

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

C     

C     TEXTVAR : Texte à partir duquel la chaîne partielle doit être déterminée

C     CFELD   : Chaîne partielle qui est retournée

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

C     

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

C              programme !

C     CHARACTER *80 TEXTVAR, CFELD

C     

C     Exemple :

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

C     Fractionner le texte

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

      TEXTVAR = "Chien|Chat|Souris"

C     

      CALL PST154 (TEXTVAR,'|',1,CFELD,IERR)

C     

C     La sortie avec l'instruction :

      WRITE(6,*)CFELD

C     

C     donne : Chien

C