File: Test.xba

package info (click to toggle)
libreoffice 1%3A4.2.5-1~bpo70%2B1
  • links: PTS, VCS
  • area: main
  • in suites: wheezy-backports
  • size: 2,610,340 kB
  • sloc: cpp: 4,073,558; java: 376,402; xml: 229,507; ansic: 77,459; perl: 34,757; python: 29,421; objc: 17,869; yacc: 12,574; sh: 9,058; makefile: 8,891; cs: 6,620; lex: 2,267; asm: 1,514; pascal: 910; awk: 807; lisp: 115; php: 104; csh: 46; sed: 5
file content (19 lines) | stat: -rw-r--r-- 728 bytes parent folder | download | duplicates (2) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
<?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
&apos;Option Compatible

Sub Main
	Application._RootInit()
	_A2B_.CalledSub = &quot;&quot;
	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 Date, lTime2 as Long
	lTime1=getsystemticks()
&apos;	TraceConsole()

	lTime2=getsystemticks
	debugprint lTime2 - lTime1
	exit sub
End Sub
</script:module>