/usr/lib/libreoffice/share/basic/Access2Base/Test.xba is in libreoffice-base 1:4.3.3-2+deb8u11.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
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 | <?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="Test" script:language="StarBasic">Option Explicit
'Option Compatible
Sub Main
'Application._RootInit()
_A2B_.CalledSub = ""
Application.SysCmd(acSysCmdRemoveMeter)
Dim a as variant, b as variant, c as variant, d as variant, i as integer, s as string,f as variant, h as variant, j as long, k as integer, l as integer, sFile As String
Dim lTime1 as Long, lTime2 as Long
lTime1=getsystemticks()
' TraceConsole()
_ErrorHandler(False)
traceconsole()
exit sub
CurrentDb().CloseAllrecordsets()
Set a = CurrentDb().TableDefs("Alltypes")
Set b = a.OpenRecordset( , , dbreadOnly)
Dim vVar() As Variant
Set vVar = b.GetRows(1000)
b.mClose()
DebugPrint UBound(vVar, 1), UBound(vVar, 2)
For i = 0 To UBound(vVar, 2)
For j = 0 To UBound(vVar, 1)
DebugPrint i, j, vVar(j, i)
Next j
Next i
lTime2=getsystemticks
debugprint lTime2 - lTime1
exit sub
End Sub
</script:module>
|