« COBOL/Opérations sur les chaînes » : différence entre les versions

Contenu supprimé Contenu ajouté
Guillpetiot (discussion | contributions)
mAucun résumé des modifications
Guillpetiot (discussion | contributions)
mAucun résumé des modifications
Ligne 20 :
==Conversion de caractères==
 
Il est possible de remplacer des caractères dans une chaîne, utilisons pour cela l'instruction <code>INSPECT</code> définie comme suit :
 
{{exemple|contenu=<source lang="cobol">INSPECT chaine CONVERTING s1 TO s2</source>}}
 
<source lang="cobol">INSPECT chaine CONVERTING s1 TO s2</source>
 
où chaine, s1 et s2 sont des chaînes de caractères. Les caractères de chaine vont être remplacés en respectant cette règle : des correspondances vont être établies position par position entre les caractères de s1 et s2, pour chaque position, le caractère de s1 sera remplacé (dans chaine) par le caractère de s2 se trouvant à cette même position.
Ligne 28 ⟶ 29 :
Voici par exemple une instruction qui remplace dans la chaîne s toutes les voyelles minuscules par leur équivalent majuscule :
 
{{exemple|contenu=<source lang="cobol">INSPECT s CONVERTING "aeiouy" TO "AEIOUY"</source>}}
 
 
===Exemple : Jeu du pendu===
Ligne 34 ⟶ 36 :
Et voici un programme complet illustrant cette instruction : le jeu du pendu dans lequel vous devez deviner les lettres d'un mot (ici, "mammouth").
 
{{exemple|contenu=<source lang="cobol">
IDENTIFICATION DIVISION.
PROGRAM-ID. pendu.
Ligne 59 ⟶ 61 :
END-PERFORM.
STOP RUN.
END PROGRAM pendu.</source>}}
 
 
==Concaténation de chaînes de caractères==
 
Nous pouvons concaténer plusieurs chaînes de caractères, c'est-à-dire les mettre "bout-à-bout" à l'aide de l'instruction <code>STRING</code> qui a cette forme :
 
{{exemple|contenu=<source lang="cobol">STRING {s [DELIMITED c]} ...
INTO z [POINTER k]</source>}}
 
Entre les mots-clés STRING et INTO figure une liste de chaînes de caractères, ce sont ces chaînes qui seront concaténées. Pour chacune d'elles, vous pouvez préciser la clause DELIMITED dans laquelle vous indiquez la chaîne que vous utiliserez pour délimiter cette chaîne (ici c).
 
Entre les mots-clés <code>STRING</code> et <code>INTO</code> figure une liste de chaînes de caractères, ce sont ces chaînes qui seront concaténées. Pour chacune d'elles, vous pouvez préciser la clause <code>DELIMITED</code> dans laquelle vous indiquez la chaîne que vous utiliserez pour délimiter cette chaîne (ici c).
Après INTO figure l'identificateur de la chaîne dans laquelle sera stocké le résultat de la concaténation (ici z). La clause POINTER, optionnelle, permet de stocker dans un compteur (ici k) le nombre de caractères concaténés (la concaténation débute à la position de ce pointeur).
 
Après <code>INTO</code> figure l'identificateur de la chaîne dans laquelle sera stocké le résultat de la concaténation (ici z). La clause <code>POINTER</code>, optionnelle, permet de stocker dans un compteur (ici k) le nombre de caractères concaténés (la concaténation débute à la position de ce pointeur).
 
Voici un programme d'exemple dans lequel 3 chaînes (correspondant à un jour, un mois et une année) vont être concaténées pour n'en former qu'une seule (une date) :
 
{{exemple|contenu=<source lang="cobol">
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID. concat.
Ligne 90 ⟶ 94 :
000014 DISPLAY d.
000015 STOP RUN.
000016 END PROGRAM concat.</source>}}
 
 
==Extraction de chaînes de caractères==
 
Il est également possible d'effectuer l'opération inverse : extraire plusieurs sous-chaînes à partir d'une seule chaîne. Pour cela, nous utilisons l'instruction <code>UNSTRING</code> dont le format est le suivant :
 
{{exemple|contenu=<source lang="cobol">UNSTRING s [DELIMITED c]
INTO z ... [POINTER k]</source>}}
 
 
La "chaîne-souche" est celle qui suit UNSTRING (ici s), les sous-chaînes suivent <code>INTO</code>. La clause optionnelle <code>DELIMITED</code> permet de préciser quel sera le séparateur utilisé pour délimiter les sous-chaînes. La clause POINTER, optionnelle, permet de stocker dans un compteur (ici k) le nombre de caractères traités (l'extraction débute à la position de ce pointeur).
 
Pour bien comprendre, voici un autre programme d'exemple, il permet de décomposer une date au format 99/99/9999 en un jour, un mois et une année :
 
{{exemple|contenu=<source lang="cobol">
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID. extraction.
Ligne 119 ⟶ 125 :
000014 DISPLAY j SPACE m SPACE a.
000015 STOP RUN.
000016 END PROGRAM extraction.</source>}}
 
 
La clause <code>DELIMITED</code> précise que la chaîne sera découpée selon le séparateur "'''/"'''.
 
[[Catégorie:COBOL]]