strUtils/test6.mod

MODULE test6;

IMPORT strUtils, InOut;

VAR
  chaine : ARRAY[0..255] OF CHAR;

BEGIN
  chaine := "  et voici une petite chaine avec des espaces devant et derrière   ";
  InOut.WriteString ("test : compter les mots avec séparateur : ");
  InOut.WriteCard(strUtils.WordCount(chaine, " "),5);
  InOut.WriteLn;
END test6.