Fonction Habilitation Optimiser(PasDEffetDeBord) FormaterInverseThesaurus(NomThesaurus : Caractere, Format : FormatThesaurus, LangueDepart : LanguesSupportees, LangueArrivee : LanguesSupportees, EnvoyerMessage :
Nul Ou Procedure(MessageEnvoye : Caractere), EnvoyerMessage2 : Nul Ou Procedure(LibelleSection:Caractere, MotCle : Caractere)) Retourner Booleen
Le thésaurus sélectionné est celui défini par la langue d'arrivée LangueArrivee, qui n'est pas forcément la langue courante. Les traductions des mots techniques isolés entre caractères apostrophe ' sont identifiés d'après la langue de départ LangueDepart, qui n'est pas forcément la langue courante.
Pour chaque fichier chargé, un message est envoyé via le paramètre EnvoyerMessage. Le paramètre MessageEnvoyer contient alors le nom d'un des fichiers.
S'il manque une traduction, un message est envoyé via le paramètre EnvoyerMessage. Les paramètres LibelleSection et MotCle contiennent alors respectivement la section et le mot-clé correspondant.
Le résultat est Vrai en cas de succès.
/****************************************************************/
Procedure EnvoyerMessage(MessageEnvoye)
/* Objet : Envoie un message. */
/****************************************************************/
Debut
Ecran.Ecrire("Formatage de '"+MessageEnvoye+"'.");
Fin Procedure
/****************************************************************/
Procedure EnvoyerMessage2(LibelleSection : Caractere, MotCle : Caractere)
/* Objet : Envoie un message. */
/****************************************************************/
Debut
Ecran.Ecrire("La traduction '"+MotCle+"' de la section '"+LibelleSection+"' est manquante.");
Fin Procedure
Principal
/*******/
Debut
...
Si Non FormaterInverseThesaurus("demo2", FormatThesaurusTexte, LangueAnglais, LangueChinois, EnvoyerMessage, EnvoyerMessage2) Alors
...
Fin Si
...
Fin Principal
- | - | - | - | - | - | - | - | - |