Exemple d'utilisation de la commande IniLit

Exemples évolués

Chaque exemple montre une utilisation pratique de la fonction du WLangage.

Quand plusieurs syntaxes sont possibles, chacune est illustrée indépendamment.

Revenir à la page des exemples évolués

L'exemple suivant permet lire dans un fichier "MONAPPLI.INI" la langue dans laquelle l'application doit être exécutée.

Res = IniLit ("EXEC", "LANGUE", "", "MONAPPLI.INI")
SI Res = "" ALORS Erreur("Erreur dans le fichier MONAPPLI.INI")
SELON Res
CAS "FRANCAIS" : // Français
     Nation(Français)
CAS "ANGLAIS" : // Anglais
     Nation(Anglais)
     SI ChargeErreur("ANGLAIS.WDM")>0 ALORS
        Erreur("Fichier des messages non trouvé.",…
             "Les messages seront affichés en français.")
     FIN
CAS "ESPAGNOL" : // Espagnol
     Nation(Espagnol)
     SI ChargeErreur("ESPAGNOL.WDM")>0 ALORS
        Erreur("Fichier des messages non trouvé.",…
             "Les messages seront affichés en français.")
     FIN
FIN