diff options
Diffstat (limited to 'testautomation/writer/tools/includes/w_locale_strings2.inc')
-rwxr-xr-x | testautomation/writer/tools/includes/w_locale_strings2.inc | 373 |
1 files changed, 373 insertions, 0 deletions
diff --git a/testautomation/writer/tools/includes/w_locale_strings2.inc b/testautomation/writer/tools/includes/w_locale_strings2.inc new file mode 100755 index 000000000000..409ed5bd6f38 --- /dev/null +++ b/testautomation/writer/tools/includes/w_locale_strings2.inc @@ -0,0 +1,373 @@ +'encoding UTF-8 Do not remove or change this line! +'************************************************************************** +'* DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. +'* +'* Copyright 2008 by Sun Microsystems, Inc. +'* +'* OpenOffice.org - a multi-platform office productivity suite +'* +'* $RCSfile: w_locale_strings2.inc,v $ +'* +'* $Revision: 1.1 $ +'* +'* last change: $Author: fredrikh $ $Date: 2008-06-18 08:36:08 $ +'* +'* This file is part of OpenOffice.org. +'* +'* OpenOffice.org is free software: you can redistribute it and/or modify +'* it under the terms of the GNU Lesser General Public License version 3 +'* only, as published by the Free Software Foundation. +'* +'* OpenOffice.org is distributed in the hope that it will be useful, +'* but WITHOUT ANY WARRANTY; without even the implied warranty of +'* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +'* GNU Lesser General Public License version 3 for more details +'* (a copy is included in the LICENSE file that accompanied this code). +'* +'* You should have received a copy of the GNU Lesser General Public License +'* version 3 along with OpenOffice.org. If not, see +'* <http://www.openoffice.org/license.html> +'* for a copy of the LGPLv3 License. +'* +'/*********************************************************************** +'* +'* owner : helge.delfs@sun.com +'* +'* short description : defining locale dependant strings for language guessing +'* +'\*********************************************************************** +function wGetLanguageGuessString(sValue as string, iLanguageCount as integer) as string 'function for getting strings out of this file + + 'Variables: + DIM WordPreSet as string 'string as it shoud be for words + DIM ParagraphPreSet as string 'string as it shoud be for paragraphs + + '///already covered Office languages: ///' + '///english 01 ///' + '///russian 07 ///' + '///dutch 31 ///' + '///french 33///' + '///spanish 34 ///' + '///hungarian 36 ///' + '///italian 39 ///' + '///swedish 46 ///' + '///polish 48 ///' + '///german 49 ///' + '///german 55 ///' + + '///already covered languages in the test document: ///' + '///Case 1: english ///' + '///Case 2: portugese///' + '///Case 3: russian///' + '///Case 4: dutch///' + '///Case 5: french///' + '///Case 6: spanish///' + '///Case 7: hungarian///' + '///Case 8: italian///' + '///Case 9: swedish///' + '///Case 10: polish///' + '///Case 11: german///' + + Select Case iSprache 'Detecting Office language + Case 01 'Case 01: english + '----------------------------------------------------------------------- + Select Case iLanguageCount + Case 1: WordPreSet = "Word is English (USA)" + ParagraphPreSet = "Paragraph is English (USA)" + Case 2: WordPreSet = "Word is Portuguese (Portugal)" + ParagraphPreSet = "Paragraph is Portuguese (Portugal)" + Case 3: WordPreSet = "Word is Russian" + ParagraphPreSet = "Paragraph is Russian" + Case 4: WordPreSet = "Word is Dutch (Netherlands)" + ParagraphPreSet = "Paragraph is Dutch (Netherlands)" + Case 5: WordPreSet = "Word is French (France)" + ParagraphPreSet = "Paragraph is French (France)" + Case 6: WordPreSet = "Word is Spanish (Spain)" + ParagraphPreSet = "Paragraph is Spanish (Spain)" + Case 7: WordPreSet = "Word is Hungarian" + ParagraphPreSet = "Paragraph is Hungarian" + Case 8: WordPreSet = "Word is Italian (Italy)" + ParagraphPreSet = "Paragraph is Italian (Italy)" + Case 9: WordPreSet = "Word is Swedish (Sweden)" + ParagraphPreSet = "Paragraph is Swedish (Sweden)" + Case 10:WordPreSet = "Word is Polish" + ParagraphPreSet = "Paragraph is Polish" + Case 11:WordPreSet = "Word is German (Germany)" + ParagraphPreSet = "Paragraph is German (Germany)" + end select + '----------------------------------------------------------------------- + Case 07 'Case 07: russian + Select Case iLanguageCount + Case 1: WordPreSet = "Язык слова: Английский (США)" + ParagraphPreSet = "Язык абзаца: Английский (США)" + Case 2: WordPreSet = "Язык слова: Португальский (Португалия)" + ParagraphPreSet = "Язык абзаца: Португальский (Португалия)" + Case 3: WordPreSet = "Язык слова: Русский" + ParagraphPreSet = "Язык абзаца: Русский" + Case 4: WordPreSet = "Язык слова: Голландский (Нидерланды)" + ParagraphPreSet = "Язык абзаца: Голландский (Нидерланды)" + Case 5: WordPreSet = "Язык слова: Французский (Франция)" + ParagraphPreSet = "Язык абзаца: Французский (Франция)" + Case 6: WordPreSet = "Язык слова: Испанский (Испания)" + ParagraphPreSet = "Язык абзаца: Испанский (Испания)" + Case 7: WordPreSet = "Язык слова: Венгерский" + ParagraphPreSet = "Язык абзаца: Венгерский" + Case 8: WordPreSet = "Язык слова: Итальянский (Италия) " + ParagraphPreSet = "Язык абзаца: Итальянский (Италия) " + Case 9: WordPreSet = "Язык слова: Шведский (Швеция)" + ParagraphPreSet = "Язык абзаца: Шведский (Швеция)" + Case 10:WordPreSet = "Язык слова: Польский" + ParagraphPreSet = "Язык абзаца: Польский" + Case 11:WordPreSet = "Язык слова: Немецкий (Германия)" + ParagraphPreSet = "Язык абзаца: Немецкий (Германия)" + end select + '----------------------------------------------------------------------- + Case 31 'Case 31: dutch + Select Case iLanguageCount + Case 1: WordPreSet = "Woord is Engels (VS)" + ParagraphPreSet = "Alinea is Engels (VS)" + Case 2: WordPreSet = "Woord is Portugees (Portugal)" + ParagraphPreSet = "Alinea is Portugees (Portugal)" + Case 3: WordPreSet = "Woord is Russisch" + ParagraphPreSet = "Alinea is Russisch" + Case 4: WordPreSet = "Woord is Nederlands (NL)" + ParagraphPreSet = "Alinea is Nederlands (NL)" + Case 5: WordPreSet = "Woord is Frans (Frankrijk)" + ParagraphPreSet = "Alinea is Frans (Frankrijk)" + Case 6: WordPreSet = "Woord is Spaans (Spanje)" + ParagraphPreSet = "Alinea is Spaans (Spanje)" + Case 7: WordPreSet = "Woord is Hongaars" + ParagraphPreSet = "Alinea is Hongaars" + Case 8: WordPreSet = "Woord is Italiaans (Italië)" + ParagraphPreSet = "Alinea is Italiaans (Italië)" + Case 9: WordPreSet = "Woord is Zweeds (Zweden)" + ParagraphPreSet = "Alinea is Zweeds (Zweden)" + Case 10:WordPreSet = "Woord is Pools" + ParagraphPreSet = "Alinea is Pools" + Case 11:WordPreSet = "Woord is Duits (Duitsland)" + ParagraphPreSet = "Alinea is Duits (Duitsland)" + end select + '----------------------------------------------------------------------- + Case 33 'Case 33: french + Select Case iLanguageCount + Case 1: WordPreSet = "Le mot est en Anglais (U.S.A.)" + ParagraphPreSet = "Le paragraphe est en Anglais (U.S.A.)" + Case 2: WordPreSet = "Le mot est en Portugais (Portugal)" + ParagraphPreSet = "Le paragraphe est en Portugais (Portugal)" + Case 3: WordPreSet = "Le mot est en Russe" + ParagraphPreSet = "Le paragraphe est en Russe" + Case 4: WordPreSet = "Le mot est en Néerlandais (Pays-Bas)" + ParagraphPreSet = "Le paragraphe est en Néerlandais (Pays-Bas)" + Case 5: WordPreSet = "Le mot est en Français (France)" + ParagraphPreSet = "Le paragraphe est en Français (France)" + Case 6: WordPreSet = "Le mot est en Espagnol (Espagne)" + ParagraphPreSet = "Le paragraphe est en Espagnol (Espagne)" + Case 7: WordPreSet = "Le mot est en Hongrois" + ParagraphPreSet = "Le paragraphe est en Hongrois" + Case 8: WordPreSet = "Le mot est en Italien (Italie)" + ParagraphPreSet = "Le paragraphe est en Italien (Italie)" + Case 9: WordPreSet = "Le mot est en Suédois (Suède)" + ParagraphPreSet = "Le paragraphe est en Suédois (Suède)" + Case 10: WordPreSet = "Le mot est en Polonais" + ParagraphPreSet = "Le paragraphe est en Polonais" + Case 11: WordPreSet = "Le mot est en Allemand (Allemagne)" + ParagraphPreSet = "Le paragraphe est en Allemand (Allemagne)" + end select + '----------------------------------------------------------------------- + Case 34 'Case 34: spanish + Select Case iLanguageCount + Case 1: WordPreSet = "La palabra está Inglés (Estados Unidos)" + ParagraphPreSet = "El párrafo es Inglés (Estados Unidos)" + Case 2: WordPreSet = "La palabra está Español (España)" + ParagraphPreSet = "El párrafo es Portugués (Portugal)" + Case 3: WordPreSet = "La palabra está Ruso" + ParagraphPreSet = "El párrafo es Ruso" + Case 4: WordPreSet = "La palabra está Holandés (Países Bajos)" + ParagraphPreSet = "El párrafo es Holandés (Países Bajos)" + Case 5: WordPreSet = "La palabra está Francés (Francia)" + ParagraphPreSet = "El párrafo es Francés (Francia)" + Case 6: WordPreSet = "La palabra está Español (España)" + ParagraphPreSet = "El párrafo es Español (España)" + Case 7: WordPreSet = "La palabra está Húngaro" + ParagraphPreSet = "El párrafo es Húngaro" + Case 8: WordPreSet = "La palabra está Italiano (Italia)" + ParagraphPreSet = "El párrafo es Italiano (Italia)" + Case 9: WordPreSet = "La palabra está Sueco (Suecia)" + ParagraphPreSet = "El párrafo es Sueco (Suecia)" + Case 10:WordPreSet = "La palabra está Polaco" + ParagraphPreSet = "El párrafo es Polaco" + Case 11:WordPreSet = "La palabra está Alemán (Alemania)" + ParagraphPreSet = "El párrafo es Alemán (Alemania)" + end select + '----------------------------------------------------------------------- + Case 36 'Case 36: hungarian + Select Case iLanguageCount + Case 1: WordPreSet = "A szó: Angol (USA)" + ParagraphPreSet = "Bekezdés: Angol (USA)" + Case 2: WordPreSet = "A szó: Portugál (Portugália)" + ParagraphPreSet = "Bekezdés: Portugál (Portugália)" + Case 3: WordPreSet = "A szó: Orosz" + ParagraphPreSet = "Bekezdés: Orosz" + Case 4: WordPreSet = "A szó: Holland (Hollandia)" + ParagraphPreSet = "Bekezdés: Holland (Hollandia)" + Case 5: WordPreSet = "A szó: Francia (Franciaország)" + ParagraphPreSet = "Bekezdés: Francia (Franciaország)" + Case 6: WordPreSet = "A szó: Spanyol (Spanyolország)" + ParagraphPreSet = "Bekezdés: Spanyol (Spanyolország)" + Case 7: WordPreSet = "A szó: Magyar" + ParagraphPreSet = "Bekezdés: Magyar" + Case 8: WordPreSet = "A szó: Olasz (Olaszország)" + ParagraphPreSet = "Bekezdés: Olasz (Olaszország)" + Case 9: WordPreSet = "A szó: Svéd (Svédország)" + ParagraphPreSet = "Bekezdés: Svéd (Svédország)" + Case 10:WordPreSet = "A szó: Lengyel" + ParagraphPreSet = "Bekezdés: Lengyel" + Case 11:WordPreSet = "A szó: Német (Németország)" + ParagraphPreSet = "Bekezdés: Német (Németország)" + end select + '----------------------------------------------------------------------- + Case 39 'Case 39: italian + Select Case iLanguageCount + Case 1: WordPreSet = "La parola è Inglese (USA)" + ParagraphPreSet = "Il paragrafo è Inglese (USA)" + Case 2: WordPreSet = "La parola è Portoghese (Portogallo)" + ParagraphPreSet = "Il paragrafo è Portoghese (Portogallo)" + Case 3: WordPreSet = "La parola è Russo" + ParagraphPreSet = "Il paragrafo è Russo" + Case 4: WordPreSet = "La parola è Olandese (Paesi Bassi)" + ParagraphPreSet = "Il paragrafo è Olandese (Paesi Bassi)" + Case 5: WordPreSet = "La parola è Francese (Francia)" + ParagraphPreSet = "Il paragrafo è Francese (Francia)" + Case 6: WordPreSet = "La parola è Spagnolo (Spagna)" + ParagraphPreSet = "Il paragrafo è Spagnolo (Spagna)" + Case 7: WordPreSet = "La parola è Ungherese" + ParagraphPreSet = "Il paragrafo è Ungherese" + Case 8: WordPreSet = "La parola è Italiano (Italia)" + ParagraphPreSet = "Il paragrafo è Italiano (Italia)" + Case 9: WordPreSet = "La parola è Svedese (Svezia)" + ParagraphPreSet = "Il paragrafo è Svedese (Svezia)" + Case 10: WordPreSet = "La parola è Polacco" + ParagraphPreSet = "Il paragrafo è Polacco" + Case 11: WordPreSet = "La parola è Tedesco (Germania)" + ParagraphPreSet = "Il paragrafo è Tedesco (Germania)" + end select + '----------------------------------------------------------------------- + Case 46 'Case 46: swedish + Select Case iLanguageCount + Case 1: WordPreSet = "Ordet är Engelska (USA)" + ParagraphPreSet = "Stycket är Engelska (USA)" + Case 2: WordPreSet = "Ordet är Portugisiska (Portugal)" + ParagraphPreSet = "Stycket är Portugisiska (Portugal)" + Case 3: WordPreSet = "Ordet är Ryska" + ParagraphPreSet = "Stycket är Ryska" + Case 4: WordPreSet = "Ordet är Svenska (Sverige)" + ParagraphPreSet = "Stycket är Holländska (Nederländerna)" + Case 5: WordPreSet = "Ordet är Franska (Frankrike)" + ParagraphPreSet = "Stycket är Franska (Frankrike)" + Case 6: WordPreSet = "Ordet är Spanska (Spanien)" + ParagraphPreSet = "Stycket är Spanska (Spanien)" + Case 7: WordPreSet = "Ordet är Ungerska" + ParagraphPreSet = "Stycket är Ungerska" + Case 8: WordPreSet = "Ordet är Italienska (Italien)" + ParagraphPreSet = "Stycket är Italienska (Italien)" + Case 9: WordPreSet = "Ordet är Svenska (Sverige)" + ParagraphPreSet = "Stycket är Svenska (Sverige)" + Case 10:WordPreSet = "Ordet är Polska" + ParagraphPreSet = "Stycket är Polska" + Case 11:WordPreSet = "Ordet är Tyska (Tyskland)" + ParagraphPreSet = "Stycket är Tyska (Tyskland)" + end select + '----------------------------------------------------------------------- + Case 48 'Case 48: polish + Select Case iLanguageCount + Case 1: WordPreSet = "Wyraz jest Angielski (USA)" + ParagraphPreSet = "Akapit jest Angielski (USA)" + Case 2: WordPreSet = "Wyraz jest Portugalski (Portugalia)" + ParagraphPreSet = "Akapit jest Portugalski (Portugalia)" + Case 3: WordPreSet = "Wyraz jest Rosyjski" + ParagraphPreSet = "Akapit jest Rosyjski" + Case 4: WordPreSet = "Wyraz jest Holenderski (Holandia)" + ParagraphPreSet = "Akapit jest Holenderski (Holandia)" + Case 5: WordPreSet = "Wyraz jest Francuski (Francja)" + ParagraphPreSet = "Akapit jest Francuski (Francja)" + Case 6: WordPreSet = "Wyraz jest Hiszpański (Hiszpania)" + ParagraphPreSet = "Akapit jest Hiszpański (Hiszpania)" + Case 7: WordPreSet = "Wyraz jest Węgierski" + ParagraphPreSet = "Akapit jest Węgierski" + Case 8: WordPreSet = "Wyraz jest Włoski (Włochy)" + ParagraphPreSet = "Akapit jest Włoski (Włochy)" + Case 9: WordPreSet = "Wyraz jest Szwedzki (Szwecja)" + ParagraphPreSet = "Akapit jest Szwedzki (Szwecja)" + Case 10:WordPreSet = "Wyraz jest Polski" + ParagraphPreSet = "Akapit jest Polski" + Case 11:WordPreSet = "Wyraz jest Niemiecki (Niemcy)" + ParagraphPreSet = "Akapit jest Niemiecki (Niemcy)" + end select + '----------------------------------------------------------------------- + Case 49 'Case 49: german + Select Case iLanguageCount + Case 1: WordPreSet = "Wort ist Englisch (USA)" + ParagraphPreSet = "Absatz ist Englisch (USA)" + Case 2: WordPreSet = "Wort ist Portugiesisch (Portugal)" + ParagraphPreSet = "Absatz ist Portugiesisch (Portugal)" + Case 3: WordPreSet = "Wort ist Russisch" + ParagraphPreSet = "Absatz ist Russisch" + Case 4: WordPreSet = "Wort ist Niederländisch (Niederlande)" + ParagraphPreSet = "Absatz ist Niederländisch (Niederlande)" + Case 5: WordPreSet = "Wort ist Französisch (Frankreich)" + ParagraphPreSet = "Absatz ist Französisch (Frankreich)" + Case 6: WordPreSet = "Wort ist Spanisch (Spanien)" + ParagraphPreSet = "Absatz ist Spanisch (Spanien)" + Case 7: WordPreSet = "Wort ist Ungarisch" + ParagraphPreSet = "Absatz ist Ungarisch" + Case 8: WordPreSet = "Wort ist Italienisch (Italien)" + ParagraphPreSet = "Absatz ist Italienisch (Italien)" + Case 9: WordPreSet = "Wort ist Schwedisch (Schweden)" + ParagraphPreSet = "Absatz ist Schwedisch (Schweden)" + Case 10:WordPreSet = "Wort ist Polnisch" + ParagraphPreSet = "Absatz ist Polnisch" + Case 11:WordPreSet = "Wort ist Deutsch (Deutschland)" + ParagraphPreSet = "Absatz ist Deutsch (Deutschland)" + end select + '----------------------------------------------------------------------- + Case 55 'Case 55: Portuguese (Brazil) + Select Case iLanguageCount + Case 1: WordPreSet = "a palavra é Inglês (EUA)" + ParagraphPreSet = "O parágrafo é Inglês (EUA)" + Case 2: WordPreSet = "a palavra é Português (Brasil)" + ParagraphPreSet = "O parágrafo é Português (Portugal)" + Case 3: WordPreSet = "a palavra é Russo" + ParagraphPreSet = "O parágrafo é Russo" + Case 4: WordPreSet = "a palavra é Holandês (Holanda)" + ParagraphPreSet = "O parágrafo é Holandês (Holanda)" + Case 5: WordPreSet = "a palavra é Francês (França)" + ParagraphPreSet = "O parágrafo é Francês (França)" + Case 6: WordPreSet = "a palavra é Português (Brasil)" + ParagraphPreSet = "O parágrafo é Espanhol (Espanha)" + Case 7: WordPreSet = "a palavra é Húngaro" + ParagraphPreSet = "O parágrafo é Húngaro" + Case 8: WordPreSet = "a palavra é Italiano (Itália)" + ParagraphPreSet = "O parágrafo é Italiano (Itália)" + Case 9: WordPreSet = "a palavra é Sueco (Suécia)" + ParagraphPreSet = "O parágrafo é Sueco (Suécia)" + Case 10:WordPreSet = "a palavra é Polonês" + ParagraphPreSet = "O parágrafo é Polonês" + Case 11:WordPreSet = "a palavra é Alemão (Alemanha)" + ParagraphPreSet = "O parágrafo é Alemão (Alemanha)" + end select + '----------------------------------------------------------------------- + case else + 'if Office language is not already covered: warning appears. + Warnlog "Language has to be added to testcase. Please see w_locale_strings2.inc for further details" + QAErrorlog "Please add " & iSprache & " to file!" + wGetLanguageGuessString = "" + end select + '----------------------------------------------------------------------- + 'distinguishing if string for word or string for paragraph is handed over + if sValue = "WordPreSet" then + wGetLanguageGuessString = WordPreSet + elseif sValue = "ParagraphPreSet" then + wGetLanguageGuessString = ParagraphPreSet + end if + +end function |