Fonction Habilitation Optimiser(PasDEffetDeBord) TraduireFichier(NomFichier : Caractere, LangueDepart : LanguesSupportees, LangueArrivee : LanguesSupportees, EnvoyerMessage : Nul Ou Procedure(LibelleSection : Caractere, MotCle : Caractere)) Retourner Booleen
Le répertoire d'accès au fichier à traduire doit comporter le sous-répertoire de la langue de départ. A défaut, l'exception SousRepertoireNonReconnu est envoyée. Le répertoire d'accès au fichier traduit comporte alors le sous-répertoire de la langue d'arrivée qui doit exister.
Seuls les fichiers aux extensions cpp, frm, h, hh, idl, ini, java, nls, prm, upi et upl sont reconnues. A défaut, l'exception ExtensionNomFichierInconnue est envoyée.
Les paramètres LangueDepart et LangueArrivee spécifient respectivement la langue de départ et la langue d'arrivée.
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.
Avant de traduire un fichier, il est nécessaire de charger au moins un thésaurus via ChargerThesaurus.
/****************************************************************/
Procedure EnvoyerMessage(LibelleSection : Caractere, MotCle : Caractere)
/* Objet : Envoie le message. */
/****************************************************************/
Debut
Ecran.Ecrire("La traduction '"+MotCle+"' de la section '"+LibelleSection+"' est manquante.");
Fin Procedure
Principal
/*******/
Debut
...
Si Non ChargerFichierThesaurus("demo") Alors
...
Fin Si
...
Si Non TraduireFichier("${UPS_HOME}/demo/upsnls/english/demo.nls", LangueAnglais, LangueChinois, EnvoyerMessage) Alors
...
Fin Si
...
Fin Principal
| - | - | - | - | - | - | - | - | - |