Zeichenketten

[ch]

Hallo liebe Programmierergemeinde,
hab ein kleines problem mit den Zeichenketten verzeifelt versucht zwei variant werte in ein feld einzutragen. Mit einem klappt es super. Vielleicht habt ihr ja noch eine Idee.
lg claudia

doc2.Subject ist ein Textfeld



Sub Initialize
   REM Archivierung...
   Dim session As New NotesSession
   Dim db As NotesDatabase
   Dim arcdb As New NotesDatabase("","chug_kop.nsf")
   
   REM Dim dir As NotesDbDirectory
   
   Dim dc As NotesDocumentCollection
   Dim doc As NotesDocument
   Dim doc2 As NotesDocument
   Dim wert As Variant
   Dim wert1 As Variant
   Dim wert2 As Variant
   Dim wert3 As Variant
   Dim wert4 As Variant
   
   Set db = session.CurrentDatabase
   Set dc = db.AllDocuments
   Set doc = dc.GetFirstDocument
   While Not doc Is Nothing
      wert = doc.GetItemValue("Titel")
      wert1 = doc.GetItemValue("Name")
      wert2 = doc.GetItemValue("Thema")
      wert3 = doc.GetItemValue("Telefonnummer")
      wert4 = doc.GetItemValue("status")
      
      If wert4(0) = "offen" Then
         
         Set doc2 = New NotesDocument( arcdb )
         doc2.Form = "Task"
         REM doc2.Subject = wert3
         REM doc2.Subject = wert  & "--" & wert1 & "--" & wert3 & "--" & wert2
         REM doc2.Subject = Cvar(wert1  & "--"  & wert2  & "--" & wert3)      
         REM doc2.Subject = wert1 + wert2
         
         
         Call doc2.Save( True, True )
         
         
      End If
      Set doc = dc.GetNextDocument( doc )
   Wend
End Sub

[Axel]

Eine Alternative wäre z.B. das hier:

doc2.Subject = wert(0)  & "--" & wert1(0) & "--" & wert3(0) & "--" & wert2(0)


Ein anderer Weg wäre das hier:

wert = doc.Titel(0)
wert1 = doc.Name(0)
wert2 = doc.Thema(0)
wert3 = doc.Telefonnummer(0)
wert4 = doc.status(0)

Die Variablen musst du dann als Strings deklarieren. Dann kannst du die Zuweisung so machen.

doc2.Subject = wert  & "--" & wert1 & "--" & wert3 & "--" & wert2


Axel

[koehlerbv]

Welche der fett gesetzten Zeilen meinst Du denn jetzt?? Eine Fehlermeldung hätte uns auch Zeit für die Ursachenforschung erspart!

Du weisst schon, dass NotesDocument.GetItemValue ein Array zurückliefert? Bei Deinem bisherigen Verfahren müsstest Du also die Arrays verknüpfen (ArrayAppend) oder mit

Code

wert1 (0) & wert2 (0)

arbeiten.

Da sich die ausgelesenen Werte aber offensichtlich auf letztlich skalare Werte beziehen, könntest Du diese einfacher als Strings deklarieren und dann in dieser Form auslesen:

Code

wert = doc.Titel (0)

Dann funktioniert auch sowas wie Dein

Code

doc2.Subject = wert  & "--" & wert1 & "--" & wert3 & "--" & wert2

HTH,
Bernhard

[ch]

Vielen lieben Dank hat funktiert.
Claudia