Chapitre1
Programmation en texte structuré
Si vous voulez ceci
Déplacer des caractères ASCII depuis un tableau SINT vers un
point de chaîne. (Dans un tableau SINT, chaque élément
contient un caractère). Arrêtez quand vous atteignez le retour
chariot.
1. Initialisez numéro_élément à 0.
2. Comptez le nombre d'éléments dans tableau_SINT (le
tableau qui contient les caractères ASCII) et stockez le
résultat dans taille_tableau_SINT (point DINT).
3. Si le caractère dans tableau_SINT[numéro_élément] = 13
(valeur décimale du retour chariot), alors arrêtez.
4. Réglez Point_chaîne[numéro_élément] = le caractère
contenu dans tableau_SINT[numéro_élément].
5. Ajoutez 1 à numéro_élément. Ceci permet à l'automate
contrôler le caractère suivant dans le tableau_SINT.
6. Réglez le membre longueur du point_chaîne =
numéro_élément. (Ceci enregistre le nombre de caractères
dans point_chaîne jusqu'à présent).
7. Si numéro_élément = taille_tableau_SINT, alors arrêtez.
(Vous êtes à la fin du tableau et il ne contient pas de retour
chariot).
8. Allez à 3.
Publication 1756-PM007B-FR-P – Juillet 2008
Exemple 2 :
Saisissez ce texte structuré
numéro_élément := 0;
SIZE(tableau_SINT, 0, taille_tableau_SINT);
WHILE tableau_SINT[numéro_élément] <> 13 DO
Point_chaîne.DATA[numéro_élément] :=
tableau_SINT[numéro_élément];
numéro_élément := numéro_élément + 1;
Point_chaîne.LEN := numéro_élément;
Si numéro_élément = taille_tableau_SINT, alors
EXIT;
END_IF;
END_WHILE;
31