blob: d3241b2eed5e97c1a48c43b30dd6280be9f68cfe (
plain)
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
|
'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: c_cell_tools.inc,v $
'*
'* $Revision: 1.1 $
'*
'* last change: $Author: jsi $ $Date: 2008-06-16 08:06:09 $
'*
'* 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@sun.com
'*
'* short description : tools for working with cells in calc
'*
'**************************************************************************************************
'*
' #1 fCalcGetCellValue 'Returns the value of a given cell
' #1 fCalcCompareCellValue 'Compares the value of a given cell with a given result
' #1 fCalcCompareCellFormular 'Compares the formular of a cell with a given result
'*
'\************************************************************************************************
function fCalcGetCellValue ( sCelladdress as string ) as string
'///<b>The function returns the content of a given cell</b>
'///+The cell is selected by fCalcSelectRange which is located in /spreadsheet/tools/includes/c_select_tools.inc
'///+The content is copied to the clipboard by slot EditCopy
'///+ and read out by GetClipboardText which is located in /global/tools/inc/t_tools1.inc
use "spreadsheet\tools\includes\c_select_tools.inc"
use "global\tools\includes\required\t_tools1.inc"
call fCalcSelectRange (sCelladdress) 'Select the given cell
kontext "DocumentCalc" 'Setting kontext to Calcdocument
EditCopy 'Copy content to clipboard
fCalcGetCellValue = GetClipboardText 'Returning clipboard to function
end function
'-------------------------------------------------------------------------
function fCalcCompareCellValue ( sCelladdress as string, sresult as string ) as boolean
'///<b>The function compares the value of a cell with a given result</b>
'///+The cellvalue is read by fCalcGetCellValue which is located in /spreadsheet/tools/includes/c_cell_tools.inc
'///+The value is compared with a given result (input)
'///+The function returns true if the comparison is correct and false for incorrect
if fCalcGetCellValue ( sCelladdress ) = sresult then
printlog " The cellvalue is correct"
fCalcCompareCellValue = true
else
warnlog "The cellvalue is " & fCalcGetCellValue ( sCelladdress ) & " but should be " & sresult
fCalcCompareCellValue = false
end if
end function
'-------------------------------------------------------------------------
function fCalcCompareCellFormular ( sCelladdress as string, sresult as string ) as boolean
'///<b>The function compares the formular of a cell with a given result</b>
'///+The value is compared with a given result (input)
'///+The function returns true if the comparison is correct and false for incorrect
dim sfunctionwithparameter as string
call fCalcSelectRange (sCelladdress)
kontext ( "RechenleisteCalc" )
EingabeZeileCalc.TypeKeys ("<f2><mod1 a>")
editcopy
sfunctionwithparameter = GetClipboardText ()
'/// Press twice <ESCAPE> to leave the cell
'printlog "Press twice <ESCAPE> to leave the cell"
kontext ( "DocumentCalc" )
DocumentCalc.TypeKeys "<ESCAPE>" , 2
if sfunctionwithparameter = sresult then
printlog " The function is correct"
fCalcCompareCellFormular = true
else
warnlog "The function is " & sfunctionwithparameter & " instead of " & sresult
fCalcCompareCellFormular = false
end if
end function
|