strUtils/test3.mod

MODULE test3;

IMPORT strUtils, InOut;

VAR 
  chaine1 : ARRAY[0..30] OF CHAR;
  chaine2 : ARRAY[0..30] OF CHAR;

BEGIN
  InOut.WriteString("test1 : ");
  chaine1 := "aaa une chaine bbb";
  strUtils.RemoveLeftChars (chaine1, "a");
  InOut.WriteString(chaine1);
  InOut.WriteLn;
  InOut.WriteString("test2 : ");
  strUtils.RemoveRightChars (chaine1, "b");
  InOut.WriteString(chaine1);
  InOut.WriteLn;
END test3.