| 123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540 |
- <?xml version="1.0" encoding="UTF-8"?>
- <!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd">
- <script:module xmlns:script="http://openoffice.org/2000/script" script:name="L10N" script:language="StarBasic">
- REM =======================================================================================================================
- REM === The Access2Base library is a part of the LibreOffice project. ===
- REM === Full documentation is available on http://www.access2base.com ===
- REM =======================================================================================================================
- Option Explicit
- REM -----------------------------------------------------------------------------------------------------------------------
- REM --- PRIVATE FUNCTIONS ---
- REM -----------------------------------------------------------------------------------------------------------------------
- Public Function _GetLabel(ByVal psShortlabel As String, Optional ByVal psLocale As String) As String
- ' Return the localized label corresponding with ShortLabel
- If IsMissing(psLocale) Then psLocale = UCase(Left(_A2B_.Locale, 2)) Else psLocale = UCase(psLocale)
- On Local Error Goto Error_Function
- If Not Utils._InList(psLocale, Array( _
- "EN", "FR", "ES", "DE" _
- )) Then psLocale = "DEFAULT" ' If list incomplete a recursive call will be provided anyway
-
- Dim sLocal As String
- sLocal = psShortLabel
- Select Case psLocale
- Case "EN", "DEFAULT"
- Select Case UCase(psShortlabel)
- Case "ERR" & ERRDBNOTCONNECTED : sLocal = "No active connection to a database found"
- Case "ERR" & ERRMISSINGARGUMENTS : sLocal = "Arguments are missing or are not initialized"
- Case "ERR" & ERRWRONGARGUMENT : sLocal = "Argument nr. %0 [Value = '%1'] is invalid"
- Case "ERR" & ERRMAINFORM : sLocal = "Document '%0' does not contain any form"
- Case "ERR" & ERRFORMNOTIDENTIFIED : sLocal = "Form '%0' not identified in database Forms set"
- Case "ERR" & ERRFORMNOTFOUND : sLocal = "Form '%0' not found"
- Case "ERR" & ERRFORMNOTOPEN : sLocal = "Form '%0' is currently not open"
- Case "ERR" & ERRDFUNCTION : sLocal = "DFunction execution failed, SQL=%0"
- Case "ERR" & ERROPENFORM : sLocal = "Form '%0' could not be opened"
- Case "ERR" & ERRPROPERTY : sLocal = "Property '%0' not applicable in this context"
- Case "ERR" & ERRPROPERTYVALUE : sLocal = "Value '%0' is invalid for property '%1'"
- Case "ERR" & ERRINDEXVALUE : sLocal = "Out of array range or incorrect array size for property '%0'"
- Case "ERR" & ERRCOLLECTION : sLocal = "Out of array range"
- Case "ERR" & ERRPROPERTYNOTARRAY : sLocal = "Argument nr.%0 should be an array"
- Case "ERR" & ERRCONTROLNOTFOUND : sLocal = "Control '%0' not found in parent (form, grid or dialog) '%1'"
- Case "ERR" & ERRNOACTIVEFORM : sLocal = "No active form or control found"
- Case "ERR" & ERRDATABASEFORM : sLocal = "Form '%0' has no underlying dataset"
- Case "ERR" & ERRFOCUSINGRID : sLocal = "Control '%0' not found in gridcontrol '%1'"
- Case "ERR" & ERRNOGRIDINFORM : sLocal = "No gridcontrol found in form '%0'"
- Case "ERR" & ERRFINDRECORD : sLocal = "FindNext() must be preceded by a successful FindRecord(...) call"
- Case "ERR" & ERRSQLSTATEMENT : sLocal = "SQL Error, SQL statement = '%0'"
- Case "ERR" & ERROBJECTNOTFOUND : sLocal = "%0 '%1' not found"
- Case "ERR" & ERROPENOBJECT : sLocal = "%0 '%1' could not be opened"
- Case "ERR" & ERRCLOSEOBJECT : sLocal = "%0 '%1' could not be closed"
- Case "ERR" & ERRACTION : sLocal = "Action not applicable in this context"
- Case "ERR" & ERRSENDMAIL : sLocal = "Mail service could not be activated"
- Case "ERR" & ERRFORMYETOPEN : sLocal = "Form %0 is already open"
- Case "ERR" & ERRMETHOD : sLocal = "Method '%0' not applicable in this context"
- Case "ERR" & ERRPROPERTYINIT : sLocal = "Property '%0' applicable but not initialized"
- Case "ERR" & ERRFILENOTCREATED : sLocal = "File '%0' could not be created"
- Case "ERR" & ERRDIALOGNOTFOUND : sLocal = "Dialog '%0' not found in the currently loaded libraries"
- Case "ERR" & ERRDIALOGUNDEFINED : sLocal = "Dialog unknown"
- Case "ERR" & ERRDIALOGSTARTED : sLocal = "Dialog already started"
- Case "ERR" & ERRDIALOGNOTSTARTED : sLocal = "Dialog '%0' not active"
- Case "ERR" & ERRRECORDSETNODATA : sLocal = "Recordset delivered no data. Action on current record rejected"
- Case "ERR" & ERRRECORDSETCLOSED : sLocal = "Recordset has been closed. Recordset action rejected"
- Case "ERR" & ERRRECORDSETRANGE : sLocal = "Current record out of range"
- Case "ERR" & ERRRECORDSETFORWARD : sLocal = "Action rejected in a forward-only or not bookmarkable recordset"
- Case "ERR" & ERRFIELDNULL : sLocal = "Field is null or empty. Action rejected"
- Case "ERR" & ERRFILEACCESS : sLocal = "File access error on file '%0'"
- Case "ERR" & ERROVERFLOW : sLocal = "Field length (%0) exceeds maximum length. Use the '%1' method instead"
- Case "ERR" & ERRNOTACTIONQUERY : sLocal = "Query '%0' is not an action query"
- Case "ERR" & ERRNOTUPDATABLE : sLocal = "Database, recordset or field is read only"
- Case "ERR" & ERRUPDATESEQUENCE : sLocal = "Recordset update sequence error"
- Case "ERR" & ERRNOTNULLABLE : sLocal = "Field '%0' must not contain a NULL value"
- Case "ERR" & ERRROWDELETED : sLocal = "Current row has been deleted by another process or user"
- Case "ERR" & ERRRECORDSETCLONE : sLocal = "Cloning a cloned Recordset is forbidden"
- Case "ERR" & ERRQUERYDEFDELETED : sLocal = "Pre-existing query '%0' has been deleted"
- Case "ERR" & ERRTABLEDEFDELETED : sLocal = "Pre-existing table '%0' has been deleted"
- Case "ERR" & ERRTABLECREATION : sLocal = "Table '%0' could not be created"
- Case "ERR" & ERRFIELDCREATION : sLocal = "Field '%0' could not be created"
- Case "ERR" & ERRSUBFORMNOTFOUND : sLocal = "Subform '%0' not found in parent form '%1'"
- Case "ERR" & ERRWINDOW : sLocal = "Current window is not a document"
- Case "ERR" & ERRCOMPATIBILITY : sLocal = "Field '%0' could not be converted due to incompatibility of field types between the respective database systems"
- Case "ERR" & ERRPRECISION : sLocal = "Field '%0' could not be loaded in record #%1 due to capacity shortage"
- Case "ERR" & ERRMODULENOTFOUND : sLocal = "Module '%0' not found in the currently loaded libraries"
- Case "ERR" & ERRPROCEDURENOTFOUND : sLocal = "Procedure '%0' not found in module '%1'"
- '----------------------------------------------------------------------------------------------------------------------
- Case "OBJECT" : sLocal = "Object"
- Case "TABLE" : sLocal = "Table"
- Case "QUERY" : slocal = "Query"
- Case "FORM" : sLocal = "Form"
- Case "REPORT" : sLocal = "Report"
- Case "RECORDSET" : sLocal = "Recordset"
- Case "FIELD" : sLocal = "Field"
- Case "TEMPVAR" : sLocal = "Temporary variable"
- Case "COMMANDBAR" : sLocal = "Command bar"
- Case "COMMANDBARCONTROL" : sLocal = "Command bar control"
- '----------------------------------------------------------------------------------------------------------------------
- Case "ERR#" : sLocal = "Error #"
- Case "ERROCCUR" : sLocal = "occurred"
- Case "ERRLINE" : sLocal = "at line"
- Case "ERRIN" : sLocal = "in"
- Case "CALLTO" : sLocal = "a call to function"
- Case "SAVECONSOLE" : sLocal = "Save console"
- Case "SAVECONSOLEENTRIES" : sLocal = "The console entries have been saved successfully."
- Case "QUITSHORT" : sLocal = "Quit"
- Case "QUIT" : sLocal = "Do you really want to quit the application ? Changed data will be saved."
- Case "ENTERING" : sLocal = "Entering"
- Case "EXITING" : sLocal = "Exiting"
- '----------------------------------------------------------------------------------------------------------------------
- Case "DLGTRACE_HELP" : sLocal = "Manage the console buffer and its entries"
- Case "DLGTRACE_TITLE" : sLocal = "Console"
- Case "DLGTRACE_LBLENTRIES_HELP" : sLocal = "Clear the list and resize the circular buffer"
- Case "DLGTRACE_LBLENTRIES_LABEL" : sLocal = "Set max number of entries"
- Case "DLGTRACE_TXTTRACELOG_HELP" : sLocal = "Text can be selected, copied, ..."
- Case "DLGTRACE_TXTTRACELOG_TEXT" : sLocal = "--- Log file is empty ---"
- Case "DLGTRACE_CMDCANCEL_HELP" : sLocal = "Cancel and close the dialog"
- Case "DLGTRACE_CMDCANCEL_LABEL" : sLocal = "Cancel"
- Case "DLGTRACE_LBLCLEAR_HELP" : sLocal = "Clear the list"
- Case "DLGTRACE_LBLCLEAR_LABEL" : sLocal = "Clear the list"
- Case "DLGTRACE_LBLMINLEVEL_HELP" : sLocal = "Register only logging requests above given level"
- Case "DLGTRACE_LBLMINLEVEL_LABEL" : sLocal = "Set minimal trace level"
- Case "DLGTRACE_CMDOK_HELP" : sLocal = "Validate"
- Case "DLGTRACE_CMDOK_LABEL" : sLocal = "OK"
- Case "DLGTRACE_CMDDUMP_HELP" : sLocal = "Choose a file and dump the actual list content in it"
- Case "DLGTRACE_CMDDUMP_LABEL" : sLocal = "Dump to file"
- Case "DLGTRACE_LBLNBENTRIES_HELP" : sLocal = "Actual size of list"
- Case "DLGTRACE_LBLNBENTRIES_LABEL" : sLocal = "Actual number of entries:"
- '----------------------------------------------------------------------------------------------------------------------
- Case "DLGFORMAT_HELP" : sLocal = "Export the form"
- Case "DLGFORMAT_TITLE" : sLocal = "OutputTo"
- Case "DLGFORMAT_LBLFORMAT_HELP" : sLocal = "Format in which the form should be exported"
- Case "DLGFORMAT_LBLFORMAT_LABEL" : sLocal = "Select the output format"
- Case "DLGFORMAT_CMDOK_HELP" : sLocal = "Validate your choice"
- Case "DLGFORMAT_CMDOK_LABEL" : sLocal = "OK"
- Case "DLGFORMAT_CMDCANCEL_HELP" : sLocal = "Cancel and close the dialog"
- Case "DLGFORMAT_CMDCANCEL_LABEL" : sLocal = "Cancel"
- '----------------------------------------------------------------------------------------------------------------------
- Case Else : sLocal = ""
- End Select
- Case "FR"
- Select Case UCase(psShortlabel)
- Case "ERR" & ERRDBNOTCONNECTED : sLocal = "Pas de connexion active trouvée à une banque de données"
- Case "ERR" & ERRMISSINGARGUMENTS : sLocal = "Des arguments sont manquants ou non initialisés"
- Case "ERR" & ERRWRONGARGUMENT : sLocal = "L'argument n° %0 [Valeur = '%1'] n'est pas valable"
- Case "ERR" & ERRMAINFORM : sLocal = "Le document '%0' ne contient aucun formulaire"
- Case "ERR" & ERRFORMNOTIDENTIFIED : sLocal = "Le formulaire '%0' n'a pas pu être identifié parmi l'ensemble des formulaires de la Database"
- Case "ERR" & ERRFORMNOTFOUND : sLocal = "Formulaire '%0' non trouvé"
- Case "ERR" & ERRFORMNOTOPEN : sLocal = "Le formulaire '%0' n'est actuellement pas ouvert"
- Case "ERR" & ERRDFUNCTION : sLocal = "L'exécution de la ""fonction database"" a échoué, SQL=%0"
- Case "ERR" & ERROPENFORM : sLocal = "Le formulaire '%0' n'a pas pu être ouvert"
- Case "ERR" & ERRPROPERTY : sLocal = "La propriété '%0' n'est pas applicable dans ce contexte"
- Case "ERR" & ERRPROPERTYVALUE : sLocal = "La valeur '%0' est invalide pour la propriété '%1'"
- Case "ERR" & ERRINDEXVALUE : sLocal = "Indice invalide ou dimension erronée du tableau pour la propriété '%0'"
- Case "ERR" & ERRCOLLECTION : sLocal = "Indice de tableau invalide"
- Case "ERR" & ERRPROPERTYNOTARRAY : sLocal = "L'argument n°%0 doit être un tableau"
- Case "ERR" & ERRCONTROLNOTFOUND : sLocal = "Contrôle '%0' non trouvé dans le parent (formulaire, contrôle de table ou dialogue) '%1'"
- Case "ERR" & ERRNOACTIVEFORM : sLocal = "Pas de formulaire ou de contrôle actif"
- Case "ERR" & ERRDATABASEFORM : sLocal = "Le formulaire '%0' n'a pas de données sous-jacentes"
- Case "ERR" & ERRFOCUSINGRID : sLocal = "Contrôle '%0' non trouvé dans le contrôle de table '%1'"
- Case "ERR" & ERRNOGRIDINFORM : sLocal = "Aucun contrôle de table trouvé dans le formulaire '%0'"
- Case "ERR" & ERRFINDRECORD : sLocal = "FindNext() doit être précédé par un appel réussi à FindRecord(...)"
- Case "ERR" & ERRSQLSTATEMENT : sLocal = "Erreur SQL, instruction SQL = '%0'"
- Case "ERR" & ERROBJECTNOTFOUND : sLocal = "%0 '%1' non trouvé(e)"
- Case "ERR" & ERROPENOBJECT : sLocal = "%0 '%1': ouverture en échec"
- Case "ERR" & ERRCLOSEOBJECT : sLocal = "%0 '%1': fermeture en échec"
- Case "ERR" & ERRACTION : sLocal = "Action non applicable dans ce contexte"
- Case "ERR" & ERRSENDMAIL : sLocal = "Le service de messagerie n'a pas pu être activé"
- Case "ERR" & ERRFORMYETOPEN : sLocal = "Le formulaire %0 est déjà ouvert"
- Case "ERR" & ERRMETHOD : sLocal = "La méthode '%0' n'est pas applicable dans ce contexte"
- Case "ERR" & ERRPROPERTYINIT : sLocal = "Propriété '%0' applicable mais non initialisée"
- Case "ERR" & ERRFILENOTCREATED : sLocal = "Erreur de création du fichier '%0'"
- Case "ERR" & ERRDIALOGNOTFOUND : sLocal = "Dialogue '%0' introuvable dans les librairies chargées actuellement"
- Case "ERR" & ERRDIALOGUNDEFINED : sLocal = "Boîte de dialogue inconnue"
- Case "ERR" & ERRDIALOGSTARTED : sLocal = "Dialogue déjà initialisé précédemment"
- Case "ERR" & ERRDIALOGNOTSTARTED : sLocal = "Dialogue '%0' non initialisé"
- Case "ERR" & ERRRECORDSETNODATA : sLocal = "Recordset n'a pas fourni de données. Toute action sur les enregistrements est rejetée"
- Case "ERR" & ERRRECORDSETCLOSED : sLocal = "Recordset a été clôturé. Action sur l'enregistrement courant est rejetée"
- Case "ERR" & ERRRECORDSETRANGE : sLocal = "L'enregistrement courant est hors cadre"
- Case "ERR" & ERRRECORDSETFORWARD : sLocal = "Action rejetée car recordset lisible seulement vers l'avant ou n'acceptant pas de signets"
- Case "ERR" & ERRFIELDNULL : sLocal = "Champ nul ou vide. Action rejetée"
- Case "ERR" & ERRFILEACCESS : sLocal = "Erreur d'accès au fichier '%0'"
- Case "ERR" & ERROVERFLOW : sLocal = "La longueur du champ (%0) dépasse la taille maximale autorisée. Utiliser de préférence la méthode '%1'"
- Case "ERR" & ERRNOTACTIONQUERY : sLocal = "La requête '%0' n'est pas une requête d'action"
- Case "ERR" & ERRNOTUPDATABLE : sLocal = "La banque de données, le recordset ou le champ sont en lecture seulement"
- Case "ERR" & ERRUPDATESEQUENCE : sLocal = "Erreur de séquence lors de la mise à jour d'un Recordset"
- Case "ERR" & ERRNOTNULLABLE : sLocal = "Le champ '%0' ne peut pas recevoir une valeur NULLe"
- Case "ERR" & ERRROWDELETED : sLocal = "L'enregistrement courant a été effacé par un autre processus ou un autre utilisateur"
- Case "ERR" & ERRRECORDSETCLONE : sLocal = "Le clonage d'un Recordset cloné est interdit"
- Case "ERR" & ERRQUERYDEFDELETED : sLocal = "La requête existante '%0' a été supprimée"
- Case "ERR" & ERRTABLEDEFDELETED : sLocal = "La table existante '%0' a été supprimée"
- Case "ERR" & ERRTABLECREATION : sLocal = "La table '%0' n'a pas pu être créée"
- Case "ERR" & ERRFIELDCREATION : sLocal = "Le champ '%0' n'a pas pu être créé"
- Case "ERR" & ERRSUBFORMNOTFOUND : sLocal = "Sous-formulaire '%0' non trouvé dans le formulaire parent '%1'"
- Case "ERR" & ERRWINDOW : sLocal = "La fenêtre courante n'est pas un document"
- Case "ERR" & ERRCOMPATIBILITY : sLocal = "Le champ '%0' n'a pas pu être converti à cause d'une incompatibilité entre les types de champs supportés par les systèmes de bases de données respectifs"
- Case "ERR" & ERRPRECISION : sLocal = "Le champ '%0' n'a pas pu être chargé dans l'enregistrement #%1 par manque de capacité"
- Case "ERR" & ERRMODULENOTFOUND : sLocal = "Le module '%0' est introuvable dans les librairies chargées actuellement"
- Case "ERR" & ERRPROCEDURENOTFOUND : sLocal = "La procédure '%0' est introuvable dans le module '%1'"
- '----------------------------------------------------------------------------------------------------------------------
- Case "OBJECT" : sLocal = "Objet"
- Case "TABLE" : sLocal = "Table"
- Case "QUERY" : slocal = "Requête"
- Case "FORM" : sLocal = "Formulaire"
- Case "REPORT" : sLocal = "Rapport"
- Case "RECORDSET" : sLocal = "Recordset"
- Case "FIELD" : sLocal = "Champ"
- Case "TEMPVAR" : sLocal = "Variable temporaire"
- Case "COMMANDBAR" : sLocal = "Barre de commande"
- Case "COMMANDBARCONTROL" : sLocal = "Elément de barre de commande"
- '----------------------------------------------------------------------------------------------------------------------
- Case "ERR#" : sLocal = "L'erreur #"
- Case "ERROCCUR" : sLocal = "s'est produite"
- Case "ERRLINE" : sLocal = "à la ligne"
- Case "ERRIN" : sLocal = "dans"
- Case "CALLTO" : sLocal = "un appel à la fonction"
- Case "SAVECONSOLE" : sLocal = "Sauver console"
- Case "SAVECONSOLEENTRIES" : sLocal = "Les entrées de la console ont été sauvées avec succès."
- Case "QUITSHORT" : sLocal = "Quitter"
- Case "QUIT" : sLocal = "Voulez-vous réellement quitter l'application ? Les données modifiées seront sauvées."
- Case "ENTERING" : sLocal = "Entrée dans"
- Case "EXITING" : sLocal = "Sortie de"
- '----------------------------------------------------------------------------------------------------------------------
- Case "DLGTRACE_HELP" : sLocal = "Gestion du tampon de la console et toutes ses entrées"
- Case "DLGTRACE_TITLE" : sLocal = "Console"
- Case "DLGTRACE_LBLENTRIES_HELP" : sLocal = "Effacer la liste et redimensionner le tampon circulaire"
- Case "DLGTRACE_LBLENTRIES_LABEL" : sLocal = "Définir le nombre maximum d'entrées"
- Case "DLGTRACE_TXTTRACELOG_HELP" : sLocal = "Le texte peut être sélectionné, copié, ..."
- Case "DLGTRACE_TXTTRACELOG_TEXT" : sLocal = "--- Le fichier journal est vide ---"
- Case "DLGTRACE_CMDCANCEL_HELP" : sLocal = "Annuler et fermer la boîte de dialogue"
- Case "DLGTRACE_CMDCANCEL_LABEL" : sLocal = "Annuler"
- Case "DLGTRACE_LBLCLEAR_HELP" : sLocal = "Effacer la liste"
- Case "DLGTRACE_LBLCLEAR_LABEL" : sLocal = "Effacer la liste"
- Case "DLGTRACE_LBLMINLEVEL_HELP" : sLocal = "N'enregistrer que les demandes de journalisation à partir du niveau indiqué"
- Case "DLGTRACE_LBLMINLEVEL_LABEL" : sLocal = "Définir le niveau minimal d'enregistrement"
- Case "DLGTRACE_CMDOK_HELP" : sLocal = "Valider"
- Case "DLGTRACE_CMDOK_LABEL" : sLocal = "OK"
- Case "DLGTRACE_CMDDUMP_HELP" : sLocal = "Sélectionner un fichier et y vider le contenu actuel des traces enregistrées"
- Case "DLGTRACE_CMDDUMP_LABEL" : sLocal = "Vider dans fichier"
- Case "DLGTRACE_LBLNBENTRIES_HELP" : sLocal = "Taille actuelle de la liste"
- Case "DLGTRACE_LBLNBENTRIES_LABEL" : sLocal = "Nombre actuel d'entrées:"
- '----------------------------------------------------------------------------------------------------------------------
- Case "DLGFORMAT_HELP" : sLocal = "Exporter le formulaire"
- Case "DLGFORMAT_TITLE" : sLocal = "OutputTo"
- Case "DLGFORMAT_LBLFORMAT_HELP" : sLocal = "Format dans lequel le formulaire sera exporté"
- Case "DLGFORMAT_LBLFORMAT_LABEL" : sLocal = "Selectionner le format de sortie"
- Case "DLGFORMAT_CMDOK_HELP" : sLocal = "Valider votre choix"
- Case "DLGFORMAT_CMDOK_LABEL" : sLocal = "OK"
- Case "DLGFORMAT_CMDCANCEL_HELP" : sLocal = "Annuler et fermer la boîte de dialogue"
- Case "DLGFORMAT_CMDCANCEL_LABEL" : sLocal = "Annuler"
- '----------------------------------------------------------------------------------------------------------------------
- Case Else : sLocal = _Getlabel(psShortLabel, "DEFAULT")
- End Select
- '********************************************************
- 'Translated by Iñigo Zuluaga
- '********************************************************
- Case "ES" '(España)
- Select Case UCase(psShortlabel)
- Case "ERR" & ERRDBNOTCONNECTED : sLocal = "No se ha encontrado una conexión activa a una base de datos"
- Case "ERR" & ERRMISSINGARGUMENTS : sLocal = "Faltan argumentos o no están inicializados"
- Case "ERR" & ERRWRONGARGUMENT : sLocal = "El argumento nr. %0 [Value = '%1'] no es válido"
- Case "ERR" & ERRMAINFORM : sLocal = "El documento '%0' no contiene ningún formulario"
- Case "ERR" & ERRFORMNOTIDENTIFIED : sLocal = "No se ha identificado el formulario '%0' en el conjunto de formularios de la base de datos"
- Case "ERR" & ERRFORMNOTFOUND : sLocal = "No se ha encontrado el formulario '%0'"
- Case "ERR" & ERRFORMNOTOPEN : sLocal = "El formulario '%0' no está abierto"
- Case "ERR" & ERRDFUNCTION : sLocal = "La ejecución de DFunction falló, SQL=%0"
- Case "ERR" & ERROPENFORM : sLocal = "El formulario '%0' no se puede abrir"
- Case "ERR" & ERRPROPERTY : sLocal = "La propiedad '%0' no es aplicable en este contexto"
- Case "ERR" & ERRPROPERTYVALUE : sLocal = "El valor '%0' es inválido para la propiedad '%1'"
- Case "ERR" & ERRINDEXVALUE : sLocal = "Fuera del rango de la matriz o tamaño incorrecto de la matriz para la propiedad '%0'"
- Case "ERR" & ERRCOLLECTION : sLocal = "Fuera del rango de la matriz"
- Case "ERR" & ERRPROPERTYNOTARRAY : sLocal = "El argumento nr.%0 debería ser una matriz"
- Case "ERR" & ERRCONTROLNOTFOUND : sLocal = "El control '%0' not found in parent (formulario, control de tabla or diálogo) '%1'"
- Case "ERR" & ERRNOACTIVEFORM : sLocal = "No se ha encontrado un formulario o control activo"
- Case "ERR" & ERRDATABASEFORM : sLocal = "El formulario '%0' no tiene datos subyacentes"
- Case "ERR" & ERRFOCUSINGRID : sLocal = "No se ha encontrado el control '%0' en el control de tabla '%1'"
- Case "ERR" & ERRNOGRIDINFORM : sLocal = "No se ha encontrado un control de tabla en el formulario '%0'"
- Case "ERR" & ERRFINDRECORD : sLocal = "FindNext() tiene que ser precedido por una llamada exitosa de FindRecord(...)"
- Case "ERR" & ERRSQLSTATEMENT : sLocal = "Error SQL, instrución SQL = '%0'"
- Case "ERR" & ERROBJECTNOTFOUND : sLocal = "%0 '%1' no encontrado"
- Case "ERR" & ERROPENOBJECT : sLocal = "%0 '%1' no se puede abrir"
- Case "ERR" & ERRCLOSEOBJECT : sLocal = "%0 '%1' no se puede abrir"
- Case "ERR" & ERRACTION : sLocal = "Acción no aplicable en este contexto"
- Case "ERR" & ERRSENDMAIL : sLocal = "No se puede activar el servicio de correo"
- Case "ERR" & ERRFORMYETOPEN : sLocal = "El formulario %0 ya está abierto"
- Case "ERR" & ERRMETHOD : sLocal = "El método '%0' no es aplicable en este contexto"
- Case "ERR" & ERRPROPERTYINIT : sLocal = "Propiedad '%0' aplicable pero no inicializada"
- Case "ERR" & ERRFILENOTCREATED : sLocal = "No se ha podido crear el archivo '%0'"
- Case "ERR" & ERRDIALOGNOTFOUND : sLocal = "No se ha encontrado el diálogo '%0' en las bibliotecas cargadas actualmente"
- Case "ERR" & ERRDIALOGUNDEFINED : sLocal = "Diálogo desconocido"
- Case "ERR" & ERRDIALOGSTARTED : sLocal = "El diálogo ya está iniciado"
- Case "ERR" & ERRDIALOGNOTSTARTED : sLocal = "El diálogo '%0' no está activo"
- Case "ERR" & ERRRECORDSETNODATA : sLocal = "El Recordset no suministra datos. La acción en el registro actual rechazada"
- Case "ERR" & ERRRECORDSETCLOSED : sLocal = "El recorset se ha cerrado. Acción con el Recordset rechazada"
- Case "ERR" & ERRRECORDSETRANGE : sLocal = "Registro actual fuera de rango"
- Case "ERR" & ERRRECORDSETFORWARD : sLocal = "Acción rechazada en un recorset legible sólo hacia adelante o que no admita marcadores"
- Case "ERR" & ERRFIELDNULL : sLocal = "El campo es nulo o vacío. Acción rechazada"
- Case "ERR" & ERRFILEACCESS : sLocal = "Error durante el acceso al archivo '%0'"
- Case "ERR" & ERROVERFLOW : sLocal = "La longitud del campo (%0) excede la longitud máxima. Reemplazar por el método '%1'"
- Case "ERR" & ERRNOTACTIONQUERY : sLocal = "La consulta '%0' no es una consulta de acción"
- Case "ERR" & ERRNOTUPDATABLE : sLocal = "La base de datos, el Recordset o el Campo es de sólo lectura"
- Case "ERR" & ERRUPDATESEQUENCE : sLocal = "Error durante la secuencia de actualización del Recordset"
- Case "ERR" & ERRNOTNULLABLE : sLocal = "El campo '%0' no puede contener un valor NULL"
- Case "ERR" & ERRROWDELETED : sLocal = "La fila actual ha sido borrada por otro proceso o usuario"
- Case "ERR" & ERRRECORDSETCLONE : sLocal = "No se puede clonar un Recordset clonado"
- Case "ERR" & ERRQUERYDEFDELETED : sLocal = "Se ha borrado la consulta pre-existente '%0'"
- Case "ERR" & ERRTABLEDEFDELETED : sLocal = "Se ha borrado la tabla pre-existente '%0'"
- Case "ERR" & ERRTABLECREATION : sLocal = "No se ha podido crear la Tabla '%0'"
- Case "ERR" & ERRFIELDCREATION : sLocal = "No se ha podido crear el campo '%0'"
- Case "ERR" & ERRSUBFORMNOTFOUND : sLocal = "No se ha encontrado el Subformulario '%0' en el subformulario padre '%1'"
- Case "ERR" & ERRWINDOW : sLocal = "La ventana actual no es un documento"
- Case "ERR" & ERRCOMPATIBILITY : sLocal = "El campo '%0' no se ha convertido debido a una incompatibilidad de los tipos de campo soportados entre las dos bases de datos"
- Case "ERR" & ERRPRECISION : sLocal = "El campo '%0' no se ha cargado en el registro #%1 por falta de capacidad"
- Case "ERR" & ERRMODULENOTFOUND : sLocal = "Module '%0' not found in the currently loaded libraries"
- Case "ERR" & ERRPROCEDURENOTFOUND : sLocal = "Procedure '%0' not found in module '%1'"
- '----------------------------------------------------------------------------------------------------------------------
- Case "OBJECT" : sLocal = "Objeto"
- Case "TABLE" : sLocal = "Tabla"
- Case "QUERY" : slocal = "Consulta"
- Case "FORM" : sLocal = "Formulario"
- Case "REPORT" : sLocal = "Informe"
- Case "RECORDSET" : sLocal = "Recordset"
- Case "FIELD" : sLocal = "Campo"
- Case "TEMPVAR" : sLocal = "Variable temporal"
- Case "COMMANDBAR" : sLocal = "Barra de comandos"
- Case "COMMANDBARCONTROL" : sLocal = "Control de barra de comandos"
- '----------------------------------------------------------------------------------------------------------------------
- Case "ERR#" : sLocal = "Error #"
- Case "ERROCCUR" : sLocal = "ocurrido"
- Case "ERRLINE" : sLocal = "en línea"
- Case "ERRIN" : sLocal = "en"
- Case "CALLTO" : sLocal = "una llamada a la función"
- Case "SAVECONSOLE" : sLocal = "Guardar consola"
- Case "SAVECONSOLEENTRIES" : sLocal = "Las entradas de la consola han sido guardadas correctamente."
- Case "QUITSHORT" : sLocal = "Cerrar"
- Case "QUIT" : sLocal = "Quieres realmente cerrar la aplicación? los datos cambiados se guardarán."
- Case "ENTERING" : sLocal = "Entrando"
- Case "EXITING" : sLocal = "Saliendo"
- '----------------------------------------------------------------------------------------------------------------------
- Case "DLGTRACE_HELP" : sLocal = "Gestión del buffer de la consola y sus entradas"
- Case "DLGTRACE_TITLE" : sLocal = "Consola"
- Case "DLGTRACE_LBLENTRIES_HELP" : sLocal = "Limpiar la lista y redimensionar el buffer circular"
- Case "DLGTRACE_LBLENTRIES_LABEL" : sLocal = "Definir el número máximo de entradas"
- Case "DLGTRACE_TXTTRACELOG_HELP" : sLocal = "El texto puede ser seleccionado, copiado, ..."
- Case "DLGTRACE_TXTTRACELOG_TEXT" : sLocal = "--- El archivo Histórico está vacío ---"
- Case "DLGTRACE_CMDCANCEL_HELP" : sLocal = "Cancelar y cerrar el diálogo"
- Case "DLGTRACE_CMDCANCEL_LABEL" : sLocal = "Cancelar"
- Case "DLGTRACE_LBLCLEAR_HELP" : sLocal = "Limpiar la lista"
- Case "DLGTRACE_LBLCLEAR_LABEL" : sLocal = "Limpiar la lista"
- Case "DLGTRACE_LBLMINLEVEL_HELP" : sLocal = "No registrar más que las peticiones de registro a partir de un nivel indicado"
- Case "DLGTRACE_LBLMINLEVEL_LABEL" : sLocal = "Definir el nivel mínimo de registro"
- Case "DLGTRACE_CMDOK_HELP" : sLocal = "Validar"
- Case "DLGTRACE_CMDOK_LABEL" : sLocal = "Aceptar"
- Case "DLGTRACE_CMDDUMP_HELP" : sLocal = "Elegir un archivo y guardar en él el contenido de la lista actual"
- Case "DLGTRACE_CMDDUMP_LABEL" : sLocal = "Guardar en a archivo"
- Case "DLGTRACE_LBLNBENTRIES_HELP" : sLocal = "Tamaño actual de la lista"
- Case "DLGTRACE_LBLNBENTRIES_LABEL" : sLocal = "Numero actual de entradas:"
- '----------------------------------------------------------------------------------------------------------------------
- Case "DLGFORMAT_HELP" : sLocal = "Exportar el formulario"
- Case "DLGFORMAT_TITLE" : sLocal = "Exportar como"
- Case "DLGFORMAT_LBLFORMAT_HELP" : sLocal = "Formato en el que será ser exportado el formulario"
- Case "DLGFORMAT_LBLFORMAT_LABEL" : sLocal = "Seleccionar el formato de salida"
- Case "DLGFORMAT_CMDOK_HELP" : sLocal = "Validar su elección"
- Case "DLGFORMAT_CMDOK_LABEL" : sLocal = "Aceptar"
- Case "DLGFORMAT_CMDCANCEL_HELP" : sLocal = "Cancelar y cerrar el diálogo"
- Case "DLGFORMAT_CMDCANCEL_LABEL" : sLocal = "Cancelar"
- '----------------------------------------------------------------------------------------------------------------------
- Case Else : sLocal = _Getlabel(psShortLabel, "DEFAULT")
- End Select
- '********************************************************
- 'Translated by Gisbert Friege
- '********************************************************
- Case "DE"
- Select Case UCase(psShortlabel)
- Case "ERR" & ERRDBNOTCONNECTED : sLocal = "Keine aktive Verbindung zu einer Datenbank gefunden"
- Case "ERR" & ERRMISSINGARGUMENTS : sLocal = "Argumente fehlen oder sind nicht initialisiert"
- Case "ERR" & ERRWRONGARGUMENT : sLocal = "Argument Nr. %0 [Wert = '%1'] ist ungültig"
- Case "ERR" & ERRMAINFORM : sLocal = "Dokument '%0' enthält kein Formular"
- Case "ERR" & ERRFORMNOTIDENTIFIED : sLocal = "Formular '%0' nicht bei den Datenbank-Formularen erkannt"
- Case "ERR" & ERRFORMNOTFOUND : sLocal = "Formular '%0' nicht gefunden"
- Case "ERR" & ERRFORMNOTOPEN : sLocal = "Formular '%0' ist zur Zeit nicht offen"
- Case "ERR" & ERRDFUNCTION : sLocal = "DFunction Ausführung misslungen, SQL=%0"
- Case "ERR" & ERROPENFORM : sLocal = "Formular '%0' konnte nicht geöffnet werden"
- Case "ERR" & ERRPROPERTY : sLocal = "Eigenschaft '%0' in diesem Kontext nicht anwendbar"
- Case "ERR" & ERRPROPERTYVALUE : sLocal = "Wert '%0' ist ungültig für die Eigenschaft '%1'"
- Case "ERR" & ERRINDEXVALUE : sLocal = "Außerhalb des Array-Bereichs oder falsche Array-Größe für Eigenschaft '%0'"
- Case "ERR" & ERRCOLLECTION : sLocal = "Außerhalb des Array-Bereichs"
- Case "ERR" & ERRPROPERTYNOTARRAY : sLocal = "Argument Nr.%0 sollte ein Array sein"
- Case "ERR" & ERRCONTROLNOTFOUND : sLocal = "Steuerelement '%0' nicht gefunden in parent (Formular, Tabelle oder Dialog) '%1'"
- Case "ERR" & ERRNOACTIVEFORM : sLocal = "Kein aktives Formular oder Steuerelement gefunden"
- Case "ERR" & ERRDATABASEFORM : sLocal = "Formular '%0' basiert nicht auf einem Datensatz"
- Case "ERR" & ERRFOCUSINGRID : sLocal = "Steuerelement '%0' im Tabellen-Steuerelement '%1' nicht gefunden"
- Case "ERR" & ERRNOGRIDINFORM : sLocal = "Kein Tabellen-Steuerelement im Formular '%0' gefunden"
- Case "ERR" & ERRFINDRECORD : sLocal = "Bei FindNext() muss ein erfolgreicher FindRecord(...)-Aufruf vorhergehen"
- Case "ERR" & ERRSQLSTATEMENT : sLocal = "SQL Error, SQL statement = '%0'"
- Case "ERR" & ERROBJECTNOTFOUND : sLocal = "%0 '%1' nicht gefunden"
- Case "ERR" & ERROPENOBJECT : sLocal = "%0 '%1' konnte nicht geöffnet werden"
- Case "ERR" & ERRCLOSEOBJECT : sLocal = "%0 '%1' konnte nicht geschlossen werden"
- Case "ERR" & ERRACTION : sLocal = "Aktion in diesem Kontext nicht anwendbar"
- Case "ERR" & ERRSENDMAIL : sLocal = "Email-Dienst konnte nicht aktiviert werden"
- Case "ERR" & ERRFORMYETOPEN : sLocal = "Formular %0 ist schon offen"
- Case "ERR" & ERRMETHOD : sLocal = "Methode '%0' in diesem Kontext nicht anwendbar"
- Case "ERR" & ERRPROPERTYINIT : sLocal = "Eigenschaft '%0' anwendbar aber nicht initialisiert"
- Case "ERR" & ERRFILENOTCREATED : sLocal = "Datei '%0' konnte nicht erzeugt werden"
- Case "ERR" & ERRDIALOGNOTFOUND : sLocal = "Dialog '%0' nicht in den aktuell geladenen Bibliotheken gefunden"
- Case "ERR" & ERRDIALOGUNDEFINED : sLocal = "Dialog unbekannt"
- Case "ERR" & ERRDIALOGSTARTED : sLocal = "Dialog schon gestartet"
- Case "ERR" & ERRDIALOGNOTSTARTED : sLocal = "Dialog '%0' nicht aktiv"
- Case "ERR" & ERRRECORDSETNODATA : sLocal = "Datensatz ergab keine Daten. Aktion auf aktuellem Datensatz verweigert"
- Case "ERR" & ERRRECORDSETCLOSED : sLocal = "Datensatz wurde geschlossen. Datensatz-Aktion verweigert"
- Case "ERR" & ERRRECORDSETRANGE : sLocal = "Aktueller Datensatz außerhalb des Bereichs"
- Case "ERR" & ERRRECORDSETFORWARD : sLocal = "Aktion verweigert auf einem nur vorwärts lesbaren oder keine Textmarken unterstützenden Datensatz"
- Case "ERR" & ERRFIELDNULL : sLocal = "Feld ist null oder leer. Aktion verweigert"
- Case "ERR" & ERRFILEACCESS : sLocal = "Dateizugriffs-Fehler bei Datei '%0'"
- Case "ERR" & ERROVERFLOW : sLocal = "Feldlänge (%0) überschreitet die maximale Länge. Verwende stattdessen die Methode '%1'"
- Case "ERR" & ERRNOTACTIONQUERY : sLocal = "Abfrage '%0' ist keine Aktionsabfrage"
- Case "ERR" & ERRNOTUPDATABLE : sLocal = "Datenbank, Datensatz oder Feld kann nur gelesen werden"
- Case "ERR" & ERRUPDATESEQUENCE : sLocal = "Datensatz-Update Folgefehler"
- Case "ERR" & ERRNOTNULLABLE : sLocal = "Feld '%0' darf keinen NULL-Wert haben"
- Case "ERR" & ERRROWDELETED : sLocal = "Aktuelle Zeile wurde durch einen anderen Prozess oder Benutzer gelösch"
- Case "ERR" & ERRRECORDSETCLONE : sLocal = "Ein geklonter Datensatz kann nicht geklont werden"
- Case "ERR" & ERRQUERYDEFDELETED : sLocal = "Bereits vorhandene Abfrage '%0' wurde gelöscht"
- Case "ERR" & ERRTABLEDEFDELETED : sLocal = "Bereits vorhandene Tabelle '%0' wurde gelöscht"
- Case "ERR" & ERRTABLECREATION : sLocal = "Tabelle '%0' konnte nicht erzeugt werden"
- Case "ERR" & ERRFIELDCREATION : sLocal = "Feld '%0' konnte nicht erzeugt werden"
- Case "ERR" & ERRSUBFORMNOTFOUND : sLocal = "Unterformular '%0' nicht im Eltern-Formular '%1 gefunden"
- Case "ERR" & ERRWINDOW : sLocal = "Aktuelles Fenster ist kein Dokument"
- Case "ERR" & ERRCOMPATIBILITY : sLocal = "Feld '%0' konnte wegen inkompatibler Feldtypen der Datenbanksysteme nicht konvertiert werden"
- Case "ERR" & ERRPRECISION : sLocal = "Feld '%0' konnte wegen fehlender Speicherkapazität nicht in den Datensatz #%1 geladen werden"
- Case "ERR" & ERRMODULENOTFOUND : sLocal = "Modul '%0' nicht gefunden in den aktuell geladen Bibliotheken"
- Case "ERR" & ERRPROCEDURENOTFOUND : sLocal = "Prozedur '%0' im Modul '%1' nicht gefunden"
- '----------------------------------------------------------------------------------------------------------------------
- Case "OBJECT" : sLocal = "Objekt"
- Case "TABLE" : sLocal = "Tabelle"
- Case "QUERY" : slocal = "Abfrage"
- Case "FORM" : sLocal = "Formular"
- Case "REPORT" : sLocal = "Report"
- Case "RECORDSET" : sLocal = "Datensatz"
- Case "FIELD" : sLocal = "Feld"
- Case "TEMPVAR" : sLocal = "Temporäre Variable"
- Case "COMMANDBAR" : sLocal = "Befehlsleiste"
- Case "COMMANDBARCONTROL" : sLocal = "Befehlsleisten-Steuerelement"
- '----------------------------------------------------------------------------------------------------------------------
- Case "ERR#" : sLocal = "Error #"
- Case "ERROCCUR" : sLocal = "aufgetreten"
- Case "ERRLINE" : sLocal = "in Zeile"
- Case "ERRIN" : sLocal = "in"
- Case "CALLTO" : sLocal = "ein Funktionsaufruf"
- Case "SAVECONSOLE" : sLocal = "Konsoleneingaben sichern"
- Case "SAVECONSOLEENTRIES" : sLocal = "Die Konsoleneingaben wurden erfolgreich gesichert."
- Case "QUITSHORT" : sLocal = "Beenden"
- Case "QUIT" : sLocal = "Wollen Sie wirklich die Anwendung beenden? Geänderte Daten werden gesichert."
- Case "ENTERING" : sLocal = "Beginne mit"
- Case "EXITING" : sLocal = "Verlasse"
- '----------------------------------------------------------------------------------------------------------------------
- Case "DLGTRACE_HELP" : sLocal = "Verwalte den Konsolenpuffer und seine Eingaben"
- Case "DLGTRACE_TITLE" : sLocal = "Konsole"
- Case "DLGTRACE_LBLENTRIES_HELP" : sLocal = "Leere die Liste und ändere die Größe des Umlaufpuffers"
- Case "DLGTRACE_LBLENTRIES_LABEL" : sLocal = "Setze maximale Anzahl von Eingaben"
- Case "DLGTRACE_TXTTRACELOG_HELP" : sLocal = "Text kann ausgewählt, kopiert, ... werden"
- Case "DLGTRACE_TXTTRACELOG_TEXT" : sLocal = "--- Log Datei ist leer ---"
- Case "DLGTRACE_CMDCANCEL_HELP" : sLocal = "Abbrechen und den Dialog schließen"
- Case "DLGTRACE_CMDCANCEL_LABEL" : sLocal = "Abbrechen"
- Case "DLGTRACE_LBLCLEAR_HELP" : sLocal = "Leere die Liste"
- Case "DLGTRACE_LBLCLEAR_LABEL" : sLocal = "Leere die Liste"
- Case "DLGTRACE_LBLMINLEVEL_HELP" : sLocal = "Registriere nur Logging-Anfragen oberhalb des gegebenen Levels"
- Case "DLGTRACE_LBLMINLEVEL_LABEL" : sLocal = "Setze minimalen Fehlerbehandlungs-Level"
- Case "DLGTRACE_CMDOK_HELP" : sLocal = "Übernehmen"
- Case "DLGTRACE_CMDOK_LABEL" : sLocal = "OK"
- Case "DLGTRACE_CMDDUMP_HELP" : sLocal = "Wähle eine Datei und speichere darin den aktuellen Listeninhalt"
- Case "DLGTRACE_CMDDUMP_LABEL" : sLocal = "Ausgabe in Datei"
- Case "DLGTRACE_LBLNBENTRIES_HELP" : sLocal = "Aktuelle Länge der Liste"
- Case "DLGTRACE_LBLNBENTRIES_LABEL" : sLocal = "Aktuelle Anzahl von Einträgen:"
- '----------------------------------------------------------------------------------------------------------------------
- Case "DLGFORMAT_HELP" : sLocal = "Exportiere das Formular"
- Case "DLGFORMAT_TITLE" : sLocal = "Export"
- Case "DLGFORMAT_LBLFORMAT_HELP" : sLocal = "Format, in dem das Formular exportiert werden soll"
- Case "DLGFORMAT_LBLFORMAT_LABEL" : sLocal = "Wähle das Ausgabe-Format"
- Case "DLGFORMAT_CMDOK_HELP" : sLocal = "Auswahl übernehmen"
- Case "DLGFORMAT_CMDOK_LABEL" : sLocal = "OK"
- Case "DLGFORMAT_CMDCANCEL_HELP" : sLocal = "Abbrechen und den Dialog schließen"
- Case "DLGFORMAT_CMDCANCEL_LABEL" : sLocal = "Abbrechen"
- '----------------------------------------------------------------------------------------------------------------------
- Case Else : sLocal = _Getlabel(psShortLabel, "DEFAULT")
- End Select
- REM *******************************************************************************************************************************************
- REM *** ***
- REM *** ANY OTHER LANGUAGE TO BE INSERTED HERE ***
- REM *** ***
- REM *******************************************************************************************************************************************
- Case Else
- sLocal = _Getlabel(psShortLabel, "DEFAULT")
- End Select
-
- Exit_Function:
- _Getlabel = sLocal
- Exit Function
- Error_Function:
- sLocal = psShortLabel
- GoTo Exit_Function
- End Function ' GetLabel V0.8.9
- REM -----------------------------------------------------------------------------------------------------------------------
- Public Function _GetLabelArray(ByVal pvShortlabel As Variant, Optional ByVal psLocale As String) As Variant
- ' Return the localized label corresponding with the ShortLabel array of strings
- If IsMissing(psLocale) Then psLocale = UCase(Left(_GetLocale(), 2)) Else psLocale = UCase(psLocale)
- On Local Error Goto Error_Function
- Dim vLocal() As Variant, i As integer
- vLocal = Array()
- If Not IsArray(pvShortLabel) Then
- vLocal = _GetLabel(pvShortLabel, psLocale)
- Goto Exit_Function
- End If
-
- ReDim vLocal(LBound(pvShortLabel) To UBound(pvShortlabel))
- For i = LBound(pvShortLabel) To UBound(pvShortlabel)
- vLocal(i) = _GetLabel(pvShortLabel(i), psLocale)
- Next i
-
- Exit_Function:
- _GetlabelArray = vLocal()
- Exit Function
- Error_Function:
- vLocal = Array()
- GoTo Exit_Function
- End Function ' GetLabelArray V0.8.9
- REM -----------------------------------------------------------------------------------------------------------------------
- Public Function _GetLocale() as String
- 'Return OO localization
- 'Derived from Tools library
- Dim oLocale as Object
- oLocale = _GetRegistryKeyContent("org.openoffice.Setup/L10N")
- _GetLocale = oLocale.getByName("ooLocale")
- End Function ' GetLocale V0.8.9
- </script:module>
|
