1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
|
'encoding UTF-8 Do not remove or change this line!
'**************************************************************************
' DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
'
' Copyright 2000, 2010 Oracle and/or its affiliates.
'
' OpenOffice.org - a multi-platform office productivity suite
'
' 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 : oliver.craemer@oracle.com
'*
'* short description : tools for localisation in calc
'*
'**************************************************************************************************
'*
' #1 fFunctionname 'Returns the localized name of a given function in the current UI language
' #1 fError_l10n 'Returns the localized name of a given errorcode in the current UI language
'*
'\************************************************************************************************
function fFunctionname ( sFunctionname_en as string ) as string
'///<b>The function returns the localized name of a given function in the current UI language</b>
'///+ -Input is the english name of the function as string
'///+ -Output is the localized name of the function as string
'///+ -If there is no translation available the fallback is the english name
dim sloaddocument as string
dim sfunctionstring as string
dim scelladress as string
use "global/tools/includes/required/t_doc2.inc"
const CFN = "qa:qatesttool:spreadsheet:tools:includes:c_l10n_tools.in:fFunctionname "
sloaddocument = Convertpath (gTesttoolPath + "spreadsheet\tools\input\Functionnames.ods" )
'///Load document with all functions <i>gTestToolPath</i>/spreadsheet/tools/input/Functionnames.ods
call hFileOpen ( sloaddocument )
sleep (2)
'///Make sure that the file is editable
call sMakeReadOnlyDocumentEditable()
'///Setting selection to A1 to avoid messagebox in Search and Replace dialog.
call fCalcSelectRange ("A1")
'///Search for function by Search and Replace dialog
kontext "DocumentCalc"
EditSearchAndReplace
sleep (1)
kontext "FindAndReplace"
'///Setting dialog to defaults
More.Click
SimilaritySearch.UnCheck
CurrentSelectionOnly.UnCheck
Backwards.UnCheck
SearchForStyles.UnCheck
SearchIn.Select 1
'///Setting search parameter
WholeWordsOnly.Check
SearchFor.SetText sFunctionname_en
SearchNow.click
kontext
'///If a MsgBox appears the search must have failed => Fallback to english name
if active.exists then
if active.getRT = 304 then
warnlog CFN & "Function not found, falling back to english name"
fFunctionname = sFunctionname_en
active.OK
else
'///Throw a warning if a dialog of unexpected resource type appears
warnlog CFN & "Unknown message box! " & active.GetText
active.Default
fFunctionname = sFunctionname_en
end if
kontext "FindAndReplace"
sleep (1)
'///Reset dialog to defaultsetting
WholeWordsOnly.UnCheck
FindAndReplace.Close
call hCloseDocument
exit function
end if
kontext "FindAndReplace"
sleep (1)
'///Reset dialog to defaultsettings
WholeWordsOnly.UnCheck
FindAndReplace.Close
Kontext "RechenleisteCalc"
scelladress = Bereich.GetSelText
if fCalcGetCellValue (scelladress) = sFunctionname_en then
'///Get localised string for function by extracting functionname out of next cell
call fCalcSelectRange ( "B" & mid(scelladress,2) )
kontext ( "RechenleisteCalc" )
EingabeZeileCalc.TypeKeys ("<f2><mod1 a>")
editcopy
sfunctionstring = GetClipboardText ()
kontext "DocumentCalc"
DocumentCalc.TypeKeys ("<ESCAPE>",2)
' DEBUG: printlog sfunctionstring
' DEBUG: printlog len(sfunctionstring)
' DEBUG: printlog instr(sfunctionstring,"(")
fFunctionname = mid(sfunctionstring,2,(instr(sfunctionstring,"(")-2)
printlog " The name of the function in this locale (" & iSprache & ") is " & fFunctionname
else
warnlog CFN & "Function not found, falling back to english version"
fFunctionname = sFunctionname_en
end if
call hCloseDocument
end function
'
'----------------------------------------------------------------------------
'
function fError_l10n ( sError_en as string ) as string
'///<b>The function returns the localized name of a given error in the current UI language</b>
'///+ -Input is the english name of the error as string
'///+ -Output is the localized name of the error as string
'///+ -If there is no translation available the fallback is the english name
dim sloaddocument as string
dim sfunctionstring as string
dim scelladress as string
use "global/tools/includes/required/t_doc2.inc"
const CFN = "qa:qatesttool:spreadsheet:tools:includes:c_l10n_tools.in:fError_l10n "
sloaddocument = Convertpath (gTesttoolPath + "spreadsheet\tools\input\Errorcodes.ods" )
'///Load document with all errorcodes <i>gTestToolPath</i>/spreadsheet/tools/input/Errorcodes.ods
call hFileOpen ( sloaddocument )
sleep (2)
'///Make sure that the file is editable
call sMakeReadOnlyDocumentEditable()
'///Setting selection to A1 to avoid messagebox in Search and Replace dialog.
call fCalcSelectRange ("A1")
'///Search for function by Search and Replace dialog
kontext "DocumentCalc"
EditSearchAndReplace
sleep (1)
kontext "FindAndReplace"
'///Setting dialog to defaults
More.Click
SimilaritySearch.UnCheck
CurrentSelectionOnly.UnCheck
Backwards.UnCheck
SearchForStyles.UnCheck
SearchIn.Select 1
'///Setting search parameter
WholeWordsOnly.Check
SearchFor.SetText sError_en
SearchNow.click
kontext
'///If a MsgBox appears the search must have failed => Fallback to english name
if active.exists then
if active.getRT = 304 then
warnlog CFN & "Function not found, falling back to english name"
fError_l10n = sError_en
active.OK
else
'///Throw a warning if a dialog of unexpected resource type appears
warnlog CFN & "Unknown message box! " & active.GetText
active.Default
fError_l10n = sError_en
end if
kontext "FindAndReplace"
sleep (1)
'///Reset dialog to defaultsetting
WholeWordsOnly.UnCheck
FindAndReplace.Close
call hCloseDocument
exit function
end if
kontext "FindAndReplace"
sleep (1)
'///Reset dialog to defaultsetting
WholeWordsOnly.UnCheck
FindAndReplace.Close
Kontext "RechenleisteCalc"
scelladress = Bereich.GetSelText
if fCalcGetCellValue (scelladress) = sError_en then
'///Get localised string for ERR by extracting errorcode out of next cell
call fCalcSelectRange ( "B" & mid(scelladress,2) )
kontext "DocumentCalc"
editcopy
fError_l10n = GetClipboardText ()
kontext "DocumentCalc"
printlog " The name for ERR in this locale (" & iSprache & ") is " & fError_l10n
else
warnlog CFN & "Errorcode not found, falling back to english version"
fError_l10n = sError_en
end if
call hCloseDocument
end function
|
