Entwicklercamp vorbei

[DAU-in]

So - alles  schon wieder vorbei.

Schön war es, lehrreich war es (auch wenn es an dicken alten Männern mangelte) und ich weiss jetzt, wie man den Bahnhof in Gelsenkirchen findet, wenn man kein Taxi benutzt, ein ganz persönliches Highlight für mich und meinen Fahrer.

Und hoffentlich geht es Driri wieder besser.

[eknori]

Habe ich gerade noch im dominoforum gefunden:

Das AdminCamp ist der nächste, und vielleicht schaffen wir ende November noch ein weiteres Camp.

Ohren aufhalten, und webseite www.NotesCamp.de im auge behalten.

[WernerMo]

hallo Ulrich,

danke für den Hinweis, dann stellt sich doch nur noch die Frage:
wird es "B" oder "C"?

B wie Bankcamp oder C wie aCtivityCamp?

Gruß Werner

[Driri]

Hallo,

jo, ich bin wieder aufm Damm, danke 

War auf jeden Fall wieder interessant und lehrreich. Und es ist auch immer wieder schön, die Foren-Mitglieder persönlich zu treffen. Ich freue mich auf jeden Fall schon aufs nächste Camp.

Schönen Gruß

[eknori]

schön zu hören, dass es dir wieder besser geht ...

[eknori]

Hier das Bild der kleinen Leckerei.

http://www.eknori.de/2010-03-14/the-sweetest-dictionary-ever/

[Fedaykin]

Hallo Ulrich

Erinnerst Du Dich an meine Idee eine Scriptbibliothek von einer anderen Datenbanken aufzurufen?

Da ich das Gefühl hatte die Idee interessiert Dich, hier mal etwas Code.
Kannst es Dir ja mal anschauen wenn Du Zeit und Interesse hast.

PS: Interessanter wird das ganze natürlich wenn Du mit Use andere ScriptLibs einbindest.  

'TestAgent

Code

Sub Initialize()
	Dim session as new NotesSession
	Dim db as NotesDatabase
	Dim LibName as String

	Set db=session.GetDatabase("server","dbpath",false)
	LibName="ScriptLib"

	'Routine Main von Scriptbibliothek aufrufen
	Execute GetLibCode(db,LibName) & Chr(10) & {Main}
End Sub

Function GetLibCode(db As NotesDatabase, LibName As String) As String
	Dim colNotes As NotesNoteCollection
	Dim docLib As NotesDocument
	Dim strCode As String
	
	Set colNotes=db.Createnotecollection(False)
	
	colNotes.Selectscriptlibraries=True
	colNotes.Selectionformula={@LowerCase($Title)="} & LCase(LibName) & {"}
	colNotes.Buildcollection
	
	If colNotes.Count=1 Then
		Set docLib=db.Getdocumentbyid(colNotes.Getfirstnoteid)
		strCode=docLib.Getitemvalue("$ScriptLib")(0)
		GetLibCode=ResolveUses(db,strCode)
	End If
End Function

Function ResolveUses(db As NotesDatabase, Code As String) As String
	Dim aryCode As Variant
	Dim strCodeLine As String
	Dim strScriptLib As String
	Dim strCode As String
	Dim i As Long
	
	aryCode=Split(Code,Chr(10))
	
	For i=LBound(aryCode) To UBound(aryCode)
		strCodeLine=Trim(LCase(aryCode(i)))		
		If Not strCodeLine="" Then
			If Not InStr(1,Trim(LCase(aryCode(i))),"option ")=1 Then
				If InStr(1,Trim(LCase(aryCode(i))),"use ")=1 Then
					strScriptLib=Trim(Right(strCodeLine,Len(strCodeLine)-3))
					strScriptLib=Left(strScriptLib,Len(strScriptLib)-1)
					strScriptLib=Right(strScriptLib,Len(strScriptLib)-1)
					strCode=strCode & Chr(10) & GetLibCode(db,strScriptLib)
				Else
					strCode=strCode & Chr(10) & aryCode(i)
				End If				
			End If
		End If
	Next	
	ResolveUses=strCode
End Function

'Beispiel Code für ScriptLib in anderer Datenbank

Code

Sub Main
	Dim session as new NotesSession
	Dim db as NotesDatabase

	Set db=session.CurrentDatabase

	Msgbox "Hallo " & db.Title
End Sub

Gruss
Remo

[DAU-in]

und seit heute weiss ich auch, wo sich der abwesende Dozent in Wirklichkeit rumgetrieben hat:
http://www.spiegel.de/reise/aktuell/0,1518,684565,00.html