| <?xml version="1.0" encoding="UTF-8"?> |
| <!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd"> |
| <!--*********************************************************** |
| * |
| * Licensed to the Apache Software Foundation (ASF) under one |
| * or more contributor license agreements. See the NOTICE file |
| * distributed with this work for additional information |
| * regarding copyright ownership. The ASF licenses this file |
| * to you under the Apache License, Version 2.0 (the |
| * "License"); you may not use this file except in compliance |
| * with the License. You may obtain a copy of the License at |
| * |
| * http://www.apache.org/licenses/LICENSE-2.0 |
| * |
| * Unless required by applicable law or agreed to in writing, |
| * software distributed under the License is distributed on an |
| * "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY |
| * KIND, either express or implied. See the License for the |
| * specific language governing permissions and limitations |
| * under the License. |
| * |
| ***********************************************************--> |
| <script:module xmlns:script="http://openoffice.org/2000/script" script:name="Init" script:language="StarBasic">Option Explicit |
| REM ***** BASIC ***** |
| |
| |
| |
| Public Const SBRANGEUBOUND = 20 |
| Public StyleRangeAssignmentList(SBRANGEUBOUND)as String |
| Public SelRangeList(SBRANGEUBOUND) as String |
| Public RangeList(SBRANGEUBOUND) as String |
| Public UnprotectList() as String |
| Public FilterNames(2,1) as String |
| Public bDoUnProtect as Boolean |
| Public bCancelTask as Boolean |
| |
| Public sREADY as String |
| Public sPROTECT as String |
| Public sCONTINUE as String |
| |
| Public sSELTEMPL as String |
| Public sSELCELL as String |
| Public sCURRRANGES as String |
| Public sTEMPLATES as String |
| |
| Public sSOURCEFILE as String |
| Public sSOURCEDIR as String |
| Public sTARGETDIR as String |
| |
| Public sStsPROGRESS as String |
| Public sStsCELLPROGRSS as String |
| Public sStsRELRANGES as String |
| Public sStsRELSHEETRANGES as String |
| Public sStsREPROTECT as String |
| |
| Public sMsgSELDIR as String |
| Public sMsgSELFILE as String |
| Public sMsgTARGETDIR as String |
| Public sMsgNOTTHERE as String |
| Public sMsgDLGTITLE as String |
| Public sMsgUNPROTECT as String |
| Public sMsgPWPROTECT as String |
| Public sMsgWRONGPW as String |
| Public sMsgSHEETPROTECTED as String |
| Public sMsgWARNING as String |
| Public sMsgSHEETSNOPROTECT as String |
| Public sMsgSHEETNOPROTECT as String |
| Public sMsgCHOOSECURRENCY as String |
| Public sMsgPASSWORD as String |
| Public sMsgOK as String |
| Public sMsgCANCEL as String |
| Public sMsgFileInvalid as String |
| Public sMsgNODIRECTORY as String |
| Public sMsgDOCISREADONLY as String |
| Public sMsgFileExists as String |
| Public sMsgCancelConversion as String |
| Public sMsgCancelTitle as String |
| Public sCurrPORTUGUESE as String |
| Public sCurrDUTCH as String |
| Public sCurrFRENCH as String |
| Public sCurrSPANISH as String |
| Public sCurrITALIAN as String |
| Public sCurrGERMAN as String |
| Public sCurrBELGIAN as String |
| Public sCurrIRISH as String |
| Public sCurrLUXEMBOURG as String |
| Public sCurrAUSTRIAN as String |
| Public sCurrFINNISH as String |
| Public sCurrGREEK as String |
| Public sCurrSLOVENIAN as String |
| Public sCurrCYPRIOT as String |
| Public sCurrMALTESE as String |
| Public sCurrSLOVAK as String |
| Public sCurrUNKNOWN as String |
| Public sCurrSYSUNKNOWN as String |
| |
| Public sPrgsRETRIEVAL as String |
| Public sPrgsCONVERTING as String |
| Public sPrgsUNPROTECT as String |
| Public sInclusiveSubDir as String |
| |
| Public Const SBCOUNTRYCOUNT = 15 |
| Public CurMimeType as String |
| Public CurCellCount as Long |
| Public oSheets as Object |
| Public oStyles as Object |
| Public oStyle as Object |
| Public oFormats as Object |
| Public aSimpleStr as String |
| Public nSimpleKey as Long |
| Public aFormat() as Variant |
| Public oRanges as Object |
| Public oRange as Object |
| Public nLanguage as integer |
| Public nFormatLanguage as integer |
| Public aCellFormat as Variant |
| Public oDocument as Object |
| Public StartCol, StartRow, EndCol, EndRow as String |
| Public oSheet as Object |
| Public IntStartCol, IntStartRow, IntEndCol, IntEndRow as integer |
| Public oSelRanges as Object |
| Public nFormatType as Integer |
| Public sFormatCurrency as String |
| Public sFormatLanguage as String |
| Public CurSheetName as String |
| Public oStatusLine as Object |
| Public Const SBRELGET = 50 |
| Public StatusValue as Single |
| Public TotCellCount as Long |
| Public StyleIndex as Integer |
| Public RangeIndex as Integer |
| Public CurrIndex as Integer |
| Public ActLangNumber(1) as Integer |
| Public CurExtension(2) as String |
| Public Currfactor as Double |
| Public CurrSymbolList(2) as String |
| Public CurrLanguage as String |
| Public CurrValue(15,5) |
| Public LangIDValue(15,2,2) as String |
| Public PreName as String |
| Public Separator as String |
| Public BitmapDir as String |
| Public TypeIndex as Integer, CSIndex as Integer, LangIndex as Integer, FSIndex as Integer |
| Public oLocale as New com.sun.star.lang.Locale |
| Public sEuroSign as String |
| Public oPointer as Object |
| Public sDocType as String |
| Public bPreSelected as Boolean |
| Public bRecursive as Boolean |
| Public bCancelProtection as Boolean |
| Public CurrRoundMode as Boolean |
| Public bRangeListDefined as Boolean |
| Public bDocHasProtectedSheets as Boolean |
| Public sGOON as String |
| Public sHELP as String |
| Public sCANCEL as String |
| Dim sEnd as String |
| |
| Sub InitializeResources() |
| Dim LocWorkPath as String |
| With DialogModel |
| ' Strings that are also needed by the Password Dialog |
| sGoOn = GetResText(1003) |
| sHelp = GetResText(1001) |
| sCANCEL = GetResText(1418) |
| sEnd = GetResText(1000) |
| sPROTECT = GetResText(1005) |
| sCONTINUE = GetResText(1007) |
| sSELTEMPL = GetResText(1106) |
| sSELCELL = GetResText(1107) |
| sCURRRANGES = GetResText(1108) |
| sTEMPLATES = GetResText(1109) |
| sStsPROGRESS = GetResText(1300) |
| sStsCELLPROGRSS = GetResText(1301) |
| sStsRELSHEETRANGES = GetResText(1302) |
| sStsRELRANGES = GetResText(1303) |
| sStsREPROTECT = GetResText(1304) |
| sREADY = GetResText(1400) |
| sMsgSELDIR = GetResText(1401) |
| sMsgSELFILE = GetResText(1402) |
| sMsgTARGETDIR = GetResText(1403) |
| sMsgNOTTHERE = GetResText(1404) |
| sMsgDLGTITLE = GetResText(1405) |
| sMsgUNPROTECT = GetResText(1406) |
| sMsgPWPROTECT = GetResText(1407) |
| sMsgWRONGPW = GetResText(1408) |
| sMsgSHEETPROTECTED = GetResText(1409) |
| sMsgWARNING = GetResText(1410) |
| sMsgSHEETSNOPROTECT = GetResText(1411) |
| sMsgSHEETNOPROTECT = GetResText(1412) |
| sMsgCHOOSECURRENCY = GetResText(1415) |
| sMsgPASSWORD = GetResText(1416) |
| sMsgOK = GetResText(1417) |
| sMsgCANCEL = GetResText(1418) |
| sMsgFILEINVALID = GetResText(1419) |
| sMsgFILEINVALID = ReplaceString(sMsgFILEINVALID,"%PRODUCTNAME", GetProductname()) |
| SMsgNODIRECTORY = GetResText(1420) |
| sMsgDOCISREADONLY = GetResText(1421) |
| sMsgFileExists = GetResText(1422) |
| sMsgCancelConversion = GetResText(1423) |
| sMsgCancelTitle = GetResText(1424) |
| sCurrPORTUGUESE = GetResText(1500) |
| sCurrDUTCH = GetResText(1501) |
| sCurrFRENCH = GetResText(1502) |
| sCurrSPANISH = GetResText(1503) |
| sCurrITALIAN = GetResText(1504) |
| sCurrGERMAN = GetResText(1505) |
| sCurrBELGIAN = GetResText(1506) |
| sCurrIRISH = GetResText(1507) |
| sCurrLUXEMBOURG = GetResText(1508) |
| sCurrAUSTRIAN = GetResText(1509) |
| sCurrFINNISH = GetResText(1510) |
| sCurrGREEK = GetResText(1511) |
| sCurrSLOVENIAN = GetResText(1512) |
| sCurrCYPRIOT = GetResText(1513) |
| sCurrMALTESE = GetResText(1514) |
| sCurrSLOVAK = GetResText(1515) |
| sCurrUNKNOWN = GetResText(1516) |
| sCurrSYSUNKNOWN = GetResText(1517) |
| .cmdCancel.Label = sCANCEL |
| .cmdHelp.Label = sHELP |
| .cmdBack.Label = GetResText(1002) |
| .cmdGoOn.Label = sGOON |
| .lblHint.Label = GetResText(1004) |
| .lblCurrencies.Label = GetResText(1006) |
| .cmdBack.Enabled = False |
| If .Step = 1 Then |
| .chkComplete.Label = GetResText(1100) |
| .hlnSelection.Label = GetResText(1101) |
| .optCellTemplates.Label = GetResText(1102) |
| .optSheetRanges.Label = GetResText(1103) |
| .optDocRanges.Label = GetResText(1104) |
| .optSelRange.Label = GetResText(1105) |
| sCURRRANGES = GetResText(1108) |
| .lblSelection.Label = sCURRRANGES |
| Else |
| .lblProgress.Label = sStsPROGRESS |
| .hlnExtent.Label = GetResText(1200) |
| .optSingleFile.Label = GetResText(1201) |
| .optWholeDir.Label = GetResText(1202) |
| .chkProtect.Label = GetResText(1207) |
| .chkTextDocuments.Label = GetResText(1210) |
| |
| sSOURCEFILE = GetResText(1203) |
| sSOURCEDIR = GetResText(1204) |
| .lblSource.Label = sSOURCEDIR |
| sInclusiveSubDir = GetResText(1205) |
| .chkRecursive.Label = sInclusiveSubDir |
| sTARGETDIR = GetResText(1206) |
| .lblTarget.Label = STARGETDIR |
| |
| LocWorkPath = GetPathSettings("Work") |
| If Not oUcb.Exists(LocWorkPath) Then |
| ShowNoOfficePathError() |
| Stop |
| End If |
| |
| .txtSource.Text = ConvertfromUrl(LocWorkPath) |
| |
| SubstDir = .txtSource.Text |
| .txtTarget.Text = .txtSource.Text |
| .hlnProgress.Label = GetResText(1600) |
| .lblConfig.Label = GetResText(1603) |
| sPrgsRETRIEVAL = GetResText(1601) |
| sPrgsCONVERTING = GetResText(1602) |
| sPrgsUNPROTECT = GetResText(1604) |
| End If |
| End With |
| End Sub |
| |
| Sub InitializeLanguages() |
| sEuroSign = chr(8364) |
| |
| ' CURRENCIES_PORTUGUESE |
| LangIDValue(0,0,0) = "pt" |
| LangIDValue(0,0,1) = "" |
| LangIDValue(0,0,2) = "-816" |
| |
| ' CURRENCIES_DUTCH |
| LangIDValue(1,0,0) = "nl" |
| LangIDValue(1,0,1) = "" |
| LangIDValue(1,0,2) = "-413" |
| |
| ' CURRENCIES_FRENCH |
| LangIDValue(2,0,0) = "fr" |
| LangIDValue(2,0,1) = "" |
| LangIDValue(2,0,2) = "-40C" |
| |
| ' CURRENCIES_SPANISH |
| LangIDValue(3,0,0) = "es" |
| LangIDValue(3,0,1) = "" |
| LangIDValue(3,0,2) = "-40A" |
| |
| 'Spanish modern |
| LangIDValue(3,1,0) = "es" |
| LangIDValue(3,1,1) = "" |
| LangIDValue(3,1,2) = "-C0A" |
| |
| 'Spanish katalanic |
| LangIDValue(3,2,0) = "es" |
| LangIDValue(3,2,1) = "" |
| LangIDValue(3,2,2) = "-403" |
| |
| ' CURRENCIES_ITALIAN |
| LangIDValue(4,0,0) = "it" |
| LangIDValue(4,0,1) = "" |
| LangIDValue(4,0,2) = "-410" |
| |
| ' CURRENCIES_GERMAN |
| LangIDValue(5,0,0) = "de" |
| LangIDValue(5,0,1) = "DE" |
| LangIDValue(5,0,2) = "-407" |
| |
| ' CURRENCIES_BELGIAN |
| LangIDValue(6,0,0) = "fr" |
| LangIDValue(6,0,1) = "BE" |
| LangIDValue(6,0,2) = "-80C" |
| |
| LangIDValue(6,1,0) = "nl" |
| LangIDValue(6,1,1) = "BE" |
| LangIDValue(6,1,2) = "-813" |
| |
| ' CURRENCIES_IRISH |
| LangIDValue(7,0,0) = "en" |
| LangIDValue(7,0,1) = "IE" |
| LangIDValue(7,0,2) = "-1809" |
| |
| LangIDValue(7,1,0) = "ga" |
| LangIDValue(7,1,1) = "IE" |
| LangIDValue(7,1,2) = "-83C" |
| |
| ' CURRENCIES_LUXEMBOURG |
| LangIDValue(8,0,0) = "fr" |
| LangIDValue(8,0,1) = "LU" |
| LangIDValue(8,0,2) = "-140C" |
| |
| LangIDValue(8,1,0) = "de" |
| LangIDValue(8,1,1) = "LU" |
| LangIDValue(8,1,2) = "-1007" |
| |
| ' CURRENCIES_AUSTRIAN |
| LangIDValue(9,0,0) = "de" |
| LangIDValue(9,0,1) = "AT" |
| LangIDValue(9,0,2) = "-C07" |
| |
| ' CURRENCIES_FINNISH |
| LangIDValue(10,0,0) = "fi" |
| LangIDValue(10,0,1) = "FI" |
| LangIDValue(10,0,2) = "-40B" |
| |
| LangIDValue(10,1,0) = "sv" |
| LangIDValue(10,1,1) = "FI" |
| LangIDValue(10,1,2) = "-81D" |
| |
| ' CURRENCIES_GREEK |
| LangIDValue(11,0,0) = "el" |
| LangIDValue(11,0,1) = "GR" |
| LangIDValue(11,0,2) = "-408" |
| |
| ' CURRENCIES_SLOVENIAN |
| LangIDValue(12,0,0) = "sl" |
| LangIDValue(12,0,1) = "SI" |
| LangIDValue(12,0,2) = "-424" |
| |
| ' CURRENCIES_CYPRIOT |
| LangIDValue(13,0,0) = "el" |
| LangIDValue(13,0,1) = "CY" |
| LangIDValue(13,0,2) = "-408" |
| |
| ' CURRENCIES_MALTESE |
| LangIDValue(14,0,0) = "mt" |
| LangIDValue(14,0,1) = "MT" |
| LangIDValue(14,0,2) = "-43A" |
| |
| ' CURRENCIES_SLOVAK |
| LangIDValue(15,0,0) = "sk" |
| LangIDValue(15,0,1) = "SK" |
| LangIDValue(15,0,2) = "-41B" |
| |
| End Sub |
| |
| |
| |
| Sub InitializeCurrencies() |
| Dim i as Integer |
| GoOn = True |
| |
| CurrValue(0,0) = sCurrPORTUGUESE |
| ' real conversion rate |
| CurrValue(0,1) = 200.482 |
| ' rounded conversion rate |
| CurrValue(0,2) = 200 |
| CurrValue(0,3) = "Esc." |
| CurrValue(0,4) = "Esc." |
| CurrValue(0,5) = "PTE" |
| |
| CurrValue(1,0) = sCurrDUTCH |
| ' real conversion rate |
| CurrValue(1,1) = 2.20371 |
| ' rounded conversion rate |
| CurrValue(1,2) = 2 |
| CurrValue(1,3) = "F" |
| CurrValue(1,4) = "fl" |
| CurrValue(1,5) = "NLG" |
| |
| CurrValue(2,0) = sCurrFRENCH |
| ' real conversion rate |
| CurrValue(2,1) = 6.55957 |
| ' rounded conversion rate |
| CurrValue(2,2) = 7 |
| CurrValue(2,3) = "F" |
| CurrValue(2,4) = "F" |
| CurrValue(2,5) = "FRF" |
| |
| CurrValue(3,0) = sCurrSPANISH |
| ' real conversion rate |
| CurrValue(3,1) = 166.386 |
| ' rounded conversion rate |
| CurrValue(3,2) = 170 |
| CurrValue(3,3) = "Pts" |
| CurrValue(3,4) = "Pts" |
| CurrValue(3,5) = "ESP" |
| |
| CurrValue(4,0) = sCurrITALIAN |
| ' real conversion rate |
| CurrValue(4,1) = 1936.27 |
| ' rounded conversion rate |
| CurrValue(4,2) = 2000 |
| CurrValue(4,3) = "L." |
| CurrValue(4,4) = "L." |
| CurrValue(4,5) = "ITL" |
| |
| CurrValue(5,0) = sCurrGERMAN |
| ' real conversion rate |
| CurrValue(5,1) = 1.95583 |
| ' rounded conversion rate |
| CurrValue(5,2) = 2 |
| CurrValue(5,3) = "DM" |
| CurrValue(5,4) = "DM" |
| CurrValue(5,5) = "DEM" |
| |
| CurrValue(6,0) = sCurrBELGIAN |
| ' real conversion rate |
| CurrValue(6,1) = 40.3399 |
| ' rounded conversion rate |
| CurrValue(6,2) = 40 |
| CurrValue(6,3) = "FB" |
| CurrValue(6,4) = "BF" |
| CurrValue(6,5) = "BEF" |
| |
| CurrValue(7,0) = sCurrIRISH |
| ' real conversion rate |
| CurrValue(7,1) = 0.787564 |
| ' rounded conversion rate |
| CurrValue(7,2) = 0.8 |
| CurrValue(7,3) = "IR£" |
| CurrValue(7,4) = "£" |
| CurrValue(7,5) = "IEP" |
| |
| CurrValue(8,0) = sCurrLUXEMBOURG |
| ' real conversion rate |
| CurrValue(8,1) = 40.3399 |
| ' rounded conversion rate |
| CurrValue(8,2) = 40 |
| CurrValue(8,3) = "F" |
| CurrValue(8,4) = "F" |
| CurrValue(8,5) = "LUF" |
| |
| CurrValue(9,0) = sCurrAUSTRIAN |
| ' real conversion rate |
| CurrValue(9,1) = 13.7603 |
| ' rounded conversion rate |
| CurrValue(9,2) = 15 |
| CurrValue(9,3) = "öS" |
| CurrValue(9,4) = "S" |
| CurrValue(9,5) = "ATS" |
| |
| CurrValue(10,0) = sCurrFINNISH |
| ' real conversion rate |
| CurrValue(10,1) = 5.94573 |
| ' rounded conversion rate |
| CurrValue(10,2) = 6 |
| CurrValue(10,3) = "mk" |
| CurrValue(10,4) = "mk" |
| CurrValue(10,5) = "FIM" |
| |
| CurrValue(11,0) = sCurrGREEK |
| ' real conversion rate |
| CurrValue(11,1) = 340.750 |
| ' rounded conversion rate |
| CurrValue(11,2) = 400 |
| CurrValue(11,3) = chr(916) & chr(961) & chr(967) |
| CurrValue(11,4) = chr(916) & chr(961) & chr(967) |
| CurrValue(11,5) = "GRD" |
| |
| CurrValue(12,0) = sCurrSLOVENIAN |
| ' real conversion rate |
| CurrValue(12,1) = 239.64 |
| ' rounded conversion rate |
| CurrValue(12,2) = 240 |
| CurrValue(12,3) = "SIT" |
| CurrValue(12,4) = "SIT" |
| CurrValue(12,5) = "SIT" |
| |
| CurrValue(13,0) = sCurrCYPRIOT |
| ' real conversion rate |
| CurrValue(13,1) = 0.585274 |
| ' rounded conversion rate |
| CurrValue(13,2) = 0.6 |
| CurrValue(13,3) = "£C" |
| CurrValue(13,4) = "£" |
| CurrValue(13,5) = "CYP" |
| |
| CurrValue(14,0) = sCurrMALTESE |
| ' real conversion rate |
| CurrValue(14,1) = 0.429300 |
| ' rounded conversion rate |
| CurrValue(14,2) = 0.4 |
| CurrValue(14,3) = chr(8356) |
| CurrValue(14,4) = "Lm" |
| CurrValue(14,5) = "MTL" |
| |
| CurrValue(15,0) = sCurrSLOVAK |
| ' real conversion rate |
| CurrValue(15,1) = 30.1260 |
| ' rounded conversion rate |
| CurrValue(15,2) = 30 |
| CurrValue(15,3) = "Sk" |
| CurrValue(15,4) = "Sk" |
| CurrValue(15,5) = "SKK" |
| |
| i = -1 |
| CurrSymbolList(0) = "" |
| CurrSymbolList(1) = "" |
| InitializeCurrencyValues(CurrIndex) |
| End Sub |
| |
| |
| Sub InitializeControls() |
| If CurrIndex = -1 Then |
| If DialogModel.Step = 1 Then |
| EnableStep1DialogControls(True, False, False) |
| ElseIf DialogModel.Step = 2 Then |
| EnableStep2DialogControls(True) |
| End If |
| End If |
| End Sub |
| |
| |
| Sub InitializeConverter(oLocale, iDialogPage as Integer) |
| Dim Isthere as Boolean |
| bCancelProtection = False |
| bRangeListDefined = False |
| PWIndex = -1 |
| If iDialogPage = 1 Then |
| ToggleWindow(False) |
| sDocType = Tools.GetDocumentType(ThisComponent) |
| If sDocType = "sCalc" Then |
| bDocHasProtectedSheets = CheckSheetProtection(oSheets) |
| End If |
| oStatusline = ThisComponent.GetCurrentController.GetFrame.CreateStatusIndicator() |
| End If |
| DialogConvert = LoadDialog("Euro", "DlgConvert") |
| DialogModel = DialogConvert.Model |
| DialogPassword = LoadDialog("Euro", "DlgPassword") |
| PasswordModel = DialogPassword.Model |
| DialogModel.Step = iDialogPage |
| InitializeResources() |
| InitializeLanguages() |
| InitializeLocales(oLocale) |
| InitializeCurrencies() |
| InitializeControls() |
| BitmapDir = GetOfficeSubPath("Template", "../wizard/bitmap") |
| If BitmapDir = "" Then |
| Stop |
| End If |
| FillUpCurrencyListbox() |
| DialogModel.imgPreview.ImageUrl = BitmapDir & "euro_" & DialogModel.Step & ".bmp" |
| DialogConvert.Title = sMsgDLGTITLE |
| DialogModel.cmdGoOn.DefaultButton = True |
| If iDialogPage = 1 Then |
| ToggleWindow(True) |
| End If |
| End Sub |
| |
| |
| Sub InitializeCurrencyValues(CurrIndex) |
| If CurrIndex <> -1 Then |
| CurrLanguage = CurrValue(CurrIndex,0) |
| CurrFactor = CurrValue(CurrIndex,1) |
| CurrSymbolList(0) = CurrValue(CurrIndex,3) |
| CurrSymbolList(1) = CurrValue(CurrIndex,4) |
| CurrSymbolList(2) = CurrValue(CurrIndex,5) |
| End If |
| End Sub |
| |
| |
| Function InitializeLocales(oLocale) as Boolean |
| Dim i as Integer, n as Integer, m as Integer |
| Dim sLanguage as String, sCountry as String |
| Dim bTakeThisLocale as Boolean |
| sLanguage = oLocale.Language |
| sCountry = oLocale.Country |
| For n = 0 To SBCOUNTRYCOUNT - 1 |
| For m = 0 TO 1 |
| If DialogModel.Step = 2 Then |
| bTakeThisLocale = LangIDValue(n,m,0) = sLanguage |
| Else |
| bTakeThisLocale = LangIDValue(n,m,0) = sLanguage |
| End If |
| If bTakeThisLocale Then |
| CurrIndex = n |
| For i = 0 To 2 |
| CurExtension(i) = LangIDValue(CurrIndex,i,2) |
| Next i |
| InitializeLocales = True |
| Exit Function |
| End If |
| Next m |
| Next n |
| CurrIndex = -1 |
| InitializeLocales = False |
| End Function |
| </script:module> |