UpsTrn.FormaterInverseThesaurus

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

Description

La fonction FormaterInverseThesaurus permet de formater le thésaurus de nom NomThesaurus à partir d'un fichier au format FormatThesaurus.

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.

Exemple

/****************************************************************/
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

Voir aussi

FormaterThesaurus pour formater un thésaurus.

Traduction

---------