OpenOffice.info

Code: Alles auswählen

@Environment("Start";"Start");
@Environment("Uname";@Name([CN];@UserName));

Code: Alles auswählen

ub SearchAndDestroy
' Variablendeklaration: 
'----------------------- 
dim DateiNr as Integer 		'Dateinummer für einen freien Dateikanal 
dim Zeile as String 		'Variable für die aktuell aus der Datei eingelesenen Zeile 
dim Position as Integer 	'Positionsangabe für die Suche nach Elementen zur Zeilenzerlegung 
dim Werte(0,1) as String 	'Array für die aus der Ini eingelesenen Werte (1. Element(0) = Name , 2. Element(1) = Wert) 
dim W_Anzahl as Integer 	'Zähler für die Werteanzahl, die eingelesen wurde 
dim i as integer 			'Zählvariable 

'Initialiserung 
'---------------------------------------- 
W_Anzahl = 0 				'Die Anzahl der eingelesenen Werte auf 0 setzten

'ini-Datei öffnen: 
'-------------------------------------------------------------------------------------------- 
DateiNr = freefile 								'freie Dateinummer ermitteln  
Open "c:\notes.ini" for input as DateiNr 		'INI öffnen 

'Nun muss die relevante Sektion gefunden werden: 
'----------------------------------------------- 
do 
Line Input #DateiNr, Zeile 
Position = Instr (Zeile, "$Start=Start") 
loop until Position > 0 

'Nun werden die Werte und Wertenamen extrahiert und in das Datenarray übernommen 
'------------------------------------------------------------------------------- 
do 
Line Input #DateiNr, Zeile 									'es wird die nächste Zeile eingelesen 
Position = Instr (Zeile, "=") 								'und die Position des Zeichens = ermittelt 
if Position > 0 then 										'dann wurde das Zeichen gefunden 
Werte (W_Anzahl,0) = mid(Zeile, 1, Position - 1)		 	'und es kann der Parametername in das Array übernommen werden 
Werte (W_Anzahl,1) = mid(Zeile, Position + 1, len(Zeile) 	'dazu kommt jetzt noch der Parameterwert in´s Array 
W_Anzahl = W_Anzahl + 1 									'Wertezähler 1 hoch 
ReDim Preserve Werte(W_Anzahl,1) 							'Array vergrößern 
else 														'ansonsten könnte es sein, dass eine fehlerhafte Zeile vorgekommen ist
Position = Instr (Zeile, "[") + Instr (Zeile, "]")
if Position > 1 then exit Do 								'dann beginnt vermutlich eine neue Sektion und das Einlesen ist beendet 
end if 
loop until EOF(DateiNr) 									'wenn keine neue Sektion kommt, dann geht es bis zum Dateiende weiter 
Close #DateiNr 												'die Datei brauche ich jetzt nicht mehr, ich habe alles im Array 

Uname = Werte(0,1)											'Variablen für die ausgelesenen Werte setzten
SHname = Werte(1,1)
Ophone = Werte(2,1)
Ofax = Werte(3,1)
Iadr = Werte(4,1)

Dim oDoc As Object 
Dim oSearch As Object, nTimes As Long 
oDoc = ThisComponent 
aSearch = oDoc.createReplaceDescriptor 
  with aSearch 
  	.SearchString = "Fname" 
    .ReplaceString = Uname
    .SearchWords = true
  end with
  nTimes = oDoc.replaceAll(aSearch)
  
bSearch = oDoc.createReplaceDescriptor 
  with bSearch 
  	.SearchString = "FSHname" 
    .ReplaceString = SHname
    .SearchWords = true
  end with
  nTimes = oDoc.replaceAll(bSearch)
  
cSearch = oDoc.createReplaceDescriptor 
  with cSearch 
  	.SearchString = "Ftel" 
    .ReplaceString = Ophone
    .SearchWords = true
  end with
  nTimes = oDoc.replaceAll(cSearch)

dSearch = oDoc.createReplaceDescriptor 
  with dSearch 
  	.SearchString = "Ffax" 
    .ReplaceString = Ofax
    .SearchWords = true
  end with
  nTimes = oDoc.replaceAll(dSearch)

eSearch = oDoc.createReplaceDescriptor 
  with eSearch 
  	.SearchString = "Fadr" 
    .ReplaceString = Iadr
    .SearchWords = true
  end with
  nTimes = oDoc.replaceAll(eSearch)
End Sub

Code: Alles auswählen

Sub IniLesen 
' Variablendeklaration: 
'----------------------- 
dim DateiNr as Integer 'Dateinummer für einen freien Dateikanal 
dim Zeile as String 'Variable für die aktuell aus der Datei eingelesenen Zeile 
dim Position as Integer 'Positionsangabe für die Suche nach Elementen zur Zeilenzerlegung 
dim Werte(0,1) as String 'Array für die aus der Ini eingelesenen Werte (1. Element(0) = Name , 2. Element(1) = Wert) 
dim W_Anzahl as Integer 'Zähler für die Werteanzahl, die eingelesen wurde 
dim i as integer 'die berühmte Zählvariable i 

'Initialiserung 
'---------------------------------------- 
W_Anzahl = 0 'Die Anzahl der eingelesenen Werte ist momentan ja noch nicht groß 
On Error GoTo Fehler 'Fehler führen hiermit zum Abbruch (zum Debuggen auskommentieren) 
'Jetzt geht es los, ich versuche die Daten einzulesen und muss diese dazu erst einmal öffnen: 
'-------------------------------------------------------------------------------------------- 
DateiNr = freefile 'freie Dateinummer ermitteln 
 'Fehler führen hiermit zum Abbruch (zum Debuggen auskommentieren) 
Open "c:\notes.ini" for input as DateiNr 'INI öffnen 

'Nun muss die relevante Sektion gefunden werden: 
'----------------------------------------------- 
do 
Line Input #DateiNr, Zeile 
Position = Instr (Zeile, "WindowSizeBrowseDForms") 
loop until Position > 0 

'Wenn ich nicht mit EOF abgeflogen bin, geht es hier weiter 

'Nun werden die Werte und Wertenamen extrahiert und in das Datenarray übernommen 
'------------------------------------------------------------------------------- 
do 'dazu ist eine Schleife die beste Wahl der Waffen 
Line Input #DateiNr, Zeile 'es wird die nächste Zeile eingelesen 
Position = Instr (Zeile, "=") 'und die Position des Zeichens = ermittelt 
if Position > 0 then 'dann wurde das Zeichen gefunden 
Werte (W_Anzahl,0) = mid(Zeile, 1, Position - 1) 'und es kann der Parametername in das Array übernommen werden 
Werte (W_Anzahl,1) = mid(Zeile, Position + 1, len(Zeile) 'dazu kommt jetzt noch der Parameterwert in´s Array 
W_Anzahl = W_Anzahl + 1 'Wertezähler hoch 
ReDim Preserve Werte(W_Anzahl,1) 'Array vergrößern 
else 'ansonsten könnte es sein, dass eine fehlerhafte Zeile vorgekommen ist, oder die nächste sektion beginnt 
Position = Instr (Zeile, "[") + Instr (Zeile, "]") 'daher prüfe ich mal, ob die beien markanten Zeichen für eine neue Sektion vorkommen 
if Position > 1 then exit Do 'dann beginnt vermutlich eine neue Sektion und das Einlesen ist beendet 
end if 
loop until EOF(DateiNr) 'wenn keine neue Sektion kommt, dann geht es bis zum Dateiende weiter 
Close #DateiNr 'die Datei brauche ich jetzt nicht mehr, ich habe alles im Array 
msgbox 
Exit Sub

Code: Alles auswählen

sub main
   Dim oleService as Object
   Dim oWS as Object
   oleService = createUnoService("com.sun.star.bridge.oleautomation.Factory")
   oWS = oleService.createInstance("Notes.NotesSession")
   oWS.GetValue("UserName")
end sub

Code: Alles auswählen

b main
   Dim oleService as Object
   Dim oWS as Object
   oleService = createUnoService("com.sun.star.bridge.oleautomation.Factory")
   oWS = oleService.createInstance("Lotus.NotesSession")
   oWS.Initialize
   oWS.GetValue("UserName")
end sub