Fonction Optimiser(Invariant, NulAbsorbant) Remplacer(Modele : Nul Ou Binaire, Remplacant : Nul Ou Binaire, Position : Nul Ou Entier=Nul) Retourner Nul Ou Binaire;
Si le binaire est Nul, si Modele est Nul ou si Remplacant est Nul, alors le résultat est Nul.
Si Position est négatif, le remplacement commence au premier octet du binaire.
Si Position est supérieur à la taille du binaire, alors aucun remplacement n'est effectué.
Principal
/*******/
Variable
/******/
B1 : Binaire;
B2 : Binaire;
B3 : Binaire;
B4 : Binaire;
Debut
B1={0x41, 0x42, 0x43, 0x44, 0x45, 0x46, 0x41, 0x42, 0x58, 0x59};
/* B1 contient ABCDEFABXY. */
B2={0x41, 0x42};
/* B2 contient AB. */
B3={0x78, 0x79};
/* B1 contient x. */
B2=B1.Remplacer(B2, B3);
/* C2 contient xCDEFxXY. */
Fin Principal
- | - | - | - | - | - | - | - | - |