Lotus Notes Script

[kruemelmaus]

Hallo,

ich bin gerade neu hier.

Habe auch somit meine erste Frage an die vielen Experten. 

Es wurde eine Datenbank erstellt, mit der eine Emailsignatur erzeugt werden kann.

Nun zu meinem Problem:

In der Notesform gibt es ein Feld fb_funk1 welches mit Hilfe eines dblookup Daten aus einem Konfigurationsdokument ausliest.
Hier ist dann eine Mehrfachauswahl möglich.

Mit Hilfe des unten stehenden Skriptteils wird das ganze in eine HTML Datei geschrieben.

Das Problem ist nun, sobald mehrere Werte ausgewählt wurden erscheinen diese zwar in der Notesansicht, aber im Exportfile
steht immer nur der erste Wert drin.

Wer kann mir helfen???

'Jobtitle  1
       
        If  Not Len( uidoc.document.fb_funk1(0)) < 1Then
                Print #sig_file, uidoc.document.fb_funk1(0)
        Else
        End If

Gruß
Oliver

[BigWim]

Hallo Oliver,

das Item in NotesDocument ist immer ein Array mit mindestens einem Eintrag. Das Array erhält Du mit

Code

tmpVariant = uidoc.document.fb_funk1

wenn sicher ist, dass nur Wert vorhanden sein kann, greift man in der Regel direkt zu mit

Code

tmpString = uidoc.document.fb_funk1(0)

Wenn Du also alle Werte eines Item ausgeben möchtest, mußt Du Dir eine Schleife basteln, z. B. so

Code

        If  Not Len( uidoc.document.fb_funk1(0)) < 1Then
                forall tmpString in uidoc.document.fb_funk1
                        Print #sig_file, tmpString
                next
        endif

Viel Erfolg
Markus

[flaite]

Ist weil du das erste Element im Array schon in deinem Code referenziert.

Ich hab das hinter einen Button getan. Falls du es im QuerySave o.ä. hast, kannst du das mit dem uiws weglassen.
Vorschlag:

Code

Sub Click(Source As Button)
	On Error Goto Felher
	Dim uiws As New NotesUIWorkspace
	Dim uidoc As NotesUIDocument
	
	
	Dim doc As NotesDocument
	Dim i As Integer
	Dim first As Integer
	Dim arrStrFb_Funk1 As Variant
	Dim strValue As String
	Const separator = ","
	
	Set uidoc = uiws.CurrentDocument
	Set doc = uidoc.Document
	
	arrStrFb_Funk1 = doc.GetItemValue("fb_Funk1") ' doc.fbFunkt1  -> ohne (0) geht auch. Das ist aber besser, weil parametrisierbar
	For i = 0 To Ubound (arrStrFb_Funk1) 
		strValue = Trim$(arrStrFb_Funk1(i)) ' trim entfernt leerzeichen vorne wie hinten. Macht oft Sinn. Kommt aber auf dein Prog drauf an. 
		If Len(Trim$(strValue)) > 0 Then 
			If first Then 
				strValue = separator + strValue	
				first = False
			End If
			Msgbox strValue ' erstmal gucken. 
			'Print #sig_file, strValue ' WENN OK, DANN AUSKOMMENTIEREN
		End If
	Next
wech: 
	Exit Sub
felher:
	Msgbox Error$ & Cstr(Err) & " in Zeile: " & Cstr(Erl)
	Goto wech
	
End Sub

[kruemelmaus]

Hallo Markus,

vielen Dank erstmal. Leider habe ich scheinbar immer noch ein kleines Problem.

1. wo packe ich den Code tmpString = uidoc.document.fb_funk1(0)
hin???

2.  If  Not Len( uidoc.document.fb_funk1(0)) < 1Then
                forall tmpString in uidoc.document.fb_funk1
                        Print #sig_file, tmpString
                next
        endif

bekomme ich hier bei immer eine Fehlermeldung: unexpected next


Fehlt hier nicht auch noch das else in der formel.


Sorry bin leider nur ein Anfäger, der sich gerade versucht einzuarbeiten


Gruß Oliver

[DerAndre]

Mach mal aus dem

Next

ein

End Forall

[kruemelmaus]

vielen Dank,

das war die richtige Lösung.

Nun aber leider noch eine kleine Frage:

Kann man das auch noch irgendwie so verändern, das bei mehreren Einträgen ein Komma erscheint?   

Gruß
Oliver

[BigWim]

Hallo Oliver,

1. wo packe ich den Code tmpString = uidoc.document.fb_funk1(0) hin???

Nirgendwo. War als Starthilfe gedacht, Dir den Einstieg zu erleichtern.

Mach mal aus dem Next ein End Forall

Danke Andre. Ich werde zukünftig nicht mehr aus dem Gedächtnis schreiben. Ohne Option declare und Debugger läuft bei mir nichts!

Fehlt hier nicht auch noch das else in der formel.

Wenn dort nichts passiert, kannst Du es auch weglassen.

Markus

[kruemelmaus]

Hallo Markus,

danke für die Aufklärung. Aller Anfang ist halt schwer.

Hast Du vielleicht aich noch für mein letztes Problem eine kleine Lösung?
(siehe vorheriges post)

Gruß

Oliver

[BigWim]

Hallo Oliver,

Hast Du vielleicht aich noch für mein letztes Problem eine kleine Lösung?

funktioniert die Lösung von Pitiyankee nicht? Ist alles, was Du brauchst und ausbaufähiger als mein Beispiel ....


Mein Beispiel würde ich so ergänzen:

Code

        If  Not Len( uidoc.document.fb_funk1(0)) < 1Then
                sAusgabe = ""
                forall tmpString in uidoc.document.fb_funk1
                        sAusgabe = sAusgabe + tmpString + ","
                next
                Print #sig_file, Left(sAusgabe, Len(sAusgabe)-1)
        endif

[kruemelmaus]

vielen Dank, funktioniert super