OpenOffice.info

Code: Alles auswählen

REM  *****  BASIC  *****

Option Explicit

Public FileN as string




Sub test_prog

Dim myDoc As Object
myDoc=ThisComponent	

dim d_Url as string


d_Url = myDoc.getUrl()
FileN = FileNameoutofPath(d_Url)

msgBox "Programm-Name: " & FileN

if FileN = "Prog_Name.odt" then
	bearbeiten_dat1
end if
if FileN = "datei2.ods" then
	bearbeiten_dat2
end if

End Sub


Sub bearbeiten_dat1

'           Bearbeitung für Datei "Prog_Name.ods"
msgBox "Bearbeitung für " & FileN
End Sub



Sub bearbeiten_dat2

'           Bearbeitung für Datei "datei2.ods"

End Sub

Code: Alles auswählen

REM  *****  BASIC  *****

Option Explicit


Sub ini_lesen

Dim myDoc As Object
myDoc=ThisComponent	

						
Dim inifile as string
Dim bereich as string
Dim param as string
Dim OS as string
Dim Schraeger as string
Dim d_Url as string
Dim d_Pfad as string
dim zw_string as string

'								  	Welches Betriebs-System wird verwendet?
OS = GetGUIType()
if OS = 1 then Schraeger = "\"			' Windows
if OS = 3 then Schraeger = "\"			' Mac
if OS = 4 then Schraeger = "/"			' Unix / Linux


		
'								 	Pfad vom Programm bestimmen		
dim dummy()
d_Url=myDoc.getUrl()	'   <=========================  In d_Url steht der Programm-Pfad inkl. Programm-Name




d_pfad=ConvertFromUrl(d_Url)
global_prog_pfad=DirectoryNameoutofPath(d_pfad,Schraeger) & Schraeger
global_prog_url=ConvertToUrl(global_prog_pfad)