Fusszeile per Skript setzen

[bikerboy]

Hallo, gibt es ne Möglichkeit die Fusszeile per Skript zu setzen ?

Habe mal ein Dokument per DXL exportiert und folgendes erfahren:

Code

<item name='$Footer'>
<rawitemdata type='1'>
jv9gACBEZWZhdWx0IFNhbnMgU2VyaWYAIHhtbHNjaGVtYXMvZAEAAAg0AHxfX19fX19fX19fIFJv
YmVydCBLcmV1dHplciAtIFNlaXRlOiAmcCBfX19fX19fX19ffAAG
</rawitemdata></item>

Da ich leider kein rawitemdata spreche wird es schwierig für mich das zu setzen

[m3]

Musst Du ja nur Base64 decoden.

[bikerboy]

Mit welcher Klasse mache ich das ?

[eknori]

http://www.openntf.org/Projects/codebin/codebin.nsf/0/CDC76794F898357288256BDC000CBF49

[bikerboy]

@Ulrich

Danke wird direkt probiert

[bikerboy]

 

hmmm hat leider nicht geklappt

habe den Code folgendermaßen probiert.

Code

Dim Workspace As New NotesUIWorkspace
	
	Dim doc As NotesDocument
	
	Dim exporter As NotesDXLExporter
	
	Dim strExport As String
	Dim strChunk As String
	Dim strDecode As String
	
	Set doc = Workspace.CurrentDocument.Document
	
	Set exporter = Session.CreateDXLExporter
	
	Call exporter.Setinput(doc)
	
	strExport = exporter.Export
	
	strChunk = getItemValue(strExport,"$Footer")
	
	Call IndexTable
	
	strDecode = Decode64(strChunk)

Get "getItemValue" ist eine Funktion die aus dem DXL-Wust mir nur den Wert holt

Wenn ich nun in die Funktion den Inhalt von oben rein gebe erhalte ich folgendes zurück

Žÿ`

Da hätte aber sowas stehen müssen " Robert Kreutzer Seite - 1"

[m3]

Wenn Du Dir das z.B. auf http://coderstoolbox.net/string/ ansiehst, wirst Du merken, dass da auch Null-Bytes (String-Terminatoren) drinnen sind => daher wird nicht alles ausgegeben.

[bikerboy]

Sieht also ganz so aus, als hätte ich keine Möglichkeit darauf zuzugreifen ?

Habe mal den Wert aus dem Chunk gegen nen codierten String ausgetauscht. Hat leider nicht hingehauen. Hat jemand noch ne Idee.

[eknori]

Na ja, eine Möglichkeit ( oder zwei ) gibt es noch .... A P I  ( oder Midas )

habe mir das mal in NotesPeek angesehen. Das $Footer item ist ein RichTextItem. Diueses besteht bekanntermassen aus CD-records. In diesem Fall eines vom Typ Header. (siehe screenshot)

Sollte also nicht sonderlich schwer sein, den Textanteil zu beeinflussen. Die grundsätzlichen Funktionen dazu habe ich ja ( rücke die aber vor dem EC nicht raus  )

Möchte auch nicht versprechen, dass es in jedem Fall funktioniert; habe es noch nicht getestet.

[bikerboy]

Habe die Definition in der C-API Reference gefunden, aber noch leider nicht verstanden wie ich es jetzt setzen soll. Der Aufbau ist ja sauber beschrieben.

...( rücke die aber vor dem EC nicht raus  Grin Grin )...

Was ist EC ?

[eknori]

EC = Entwickler Camp

[bikerboy]

 

Ja zu offensichtlich.

[eknori]

Ein anderer Weg als über die API ist der "Window Title" In den Footer kommt dann ein &W. Das wird dann automatisch befüllt. Und im Windows Title kannst du ja Formeln verwenden. Weiss nicht, ob es auf deine Anforderungen passt, aber wäre ein Weg.

[eknori]

@Robert:
Hier mal die Routine, um den Inhalt von $Footer auszulesen:

Code

Function GetFooter (doc As NotesDocument) As String
TRY:
	Dim ITEM_OBJ As String
	Const FOOTER_TEXT_START = 43
	ITEM_OBJ = "$Footer"
	If Not (doc.HasItem(ITEM_OBJ)) Then
		GetFooter = "ERROR: No Footer"
		Exit function
	End If
	
	irc = NSFItemInfo _
	(doc.handle, ITEM_OBJ, Len(ITEM_OBJ),_
	item_blockid, idatatype, value_blockid, value_len )
	If irc = 0 then
		pBuff = OSLockObject _
		(value_blockid.pool) + (CLng(value_blockid.block) And &H0FFFF&)
		
		Call ODSReadMemory (pBuff+4, ODS_WORD, ODS_LENGTH, 1)
		
		bufferlen = ODS_LENGTH - FOOTER_TEXT_START
		bufferText = Space(bufferLen)
		
		Call ODSReadMemoryStr (pbuff+2 + FOOTER_TEXT_START, _
		ODS_WORD, bufferText, CLng(bufferlen))

		OSUnLockObject (value_blockid.pool)
		
		GetFooter = buffertext
	Else 
		GetFooter = "ERROR:"
	End if
EXIT_HERE:
	Exit Function
CATCH:
	GetFooter = "ERROR:"
	Resume EXIT_HERE
End Function

[bikerboy]

Danke !!! Schaue ich mir gleich mal an

[eknori]

Und hier noch die ( erste Fassung ) der Schreibroutine:

Code

Function SetFooter (doc As NotesDocument, strFooter As String) As integer
TRY:
	Dim ITEM_OBJ As String
	ITEM_OBJ = "$Footer"
	If Not (doc.HasItem(ITEM_OBJ)) Then
		SetFooter = -1
		Exit Function
	End If
	ODS_OFFSET = 0
	
	irc = NSFItemInfo _
	(doc.handle, ITEM_OBJ, Len(ITEM_OBJ),_
	item_blockid, idatatype, value_blockid, value_len )
	
	pBuff = OSLockObject _
	(value_blockid.pool) + (CLng(value_blockid.block) And &H0FFFF&)
	
	Call ODSReadMemory (pBuff+(ODS_OFFSET+4), ODS_WORD, ODS_LENGTH, 1)
	
	Call W32_ODSWriteMemoryStr _ 
	(pbuff + (ODS_OFFSET+2)+43, _
	ODS_WORD, strFooter, Len(strFooter))

	OSUnLockObject (value_blockid.pool)
	Call W32_NSFNoteUpdate (doc.handle, 0)
	SetFooter = 0
EXIT_HERE:
	Exit Function
CATCH:
	SetFooter = 1
	Resume EXIT_HERE
End Function

Ein kleiner Hinweis: Da der Code bestimmt irgendwann einmal in irgendein Kundenprojekt einfliessen wird, weise ich vorsorglich schon einmal darauf hin, daß hierzu eine Genehmigung meinerseits erforderlich ist.
Ich habe ein paar Stunden Arbeit und Wissen investiert.

[bikerboy]

Das versteht sich.

Habe aber noch ein Problem mit der folgenden Zeile

Code

bufferlen = ODS_LENGTH - FOOTER_TEXT_START

Hier kommt bei mir immer -43 raus. Was mache ich da falsch

[eknori]

Wie ist denn ODS_LENGTH deklariert? Muss Long sein.

[bikerboy]

So es funktioniert nun, aber ich kann es noch nicht verwenden weil  ich es noch nicht verstanden habe.

Aber ich und sicherlich tausend andere danken dir. 

[eknori]

Die Schreibroutine ist noch nicht sauber und schmeisst eine Runde Napalm in den Rechner, wenn der neue Inhalt des Footers > alter Inhalt ist.