";" semicolon als Trennwert Appendtotextlist

[seerow]

Hallo,

wie kann ich es verhindern das Notes bei diesen script immer ein semicolon anhängt.
aus Notes Hilfe:

Syntax
To get: itemText$ = notesItem.Text
Usage
Multiple values in a list are separated by semicolons in the returned string. If an item's value is large, the returned string may be truncated.

Irgend wie muss da doch das Problem liegen?


_{If Not doc.HasItem("new_update") Then
         Set item = doc.ReplaceItemValue("new_update", zeit & " | " & user & " had added the following software update: " & response & Chr(13) & Chr(13) & Chr(10))
      Else
         Set item = doc.GetFirstItem( "new_update" )
         Call item.Appendtotextlist(zeit & " | " & user & " had added the following software update: " & response & Chr(13) & Chr(13) & Chr(10))
         Call doc.ComputeWithForm( False, False)
      End If}

[umi]

Hi
Du versuchst eine History in dem Item nachzuführen?

Was genau bereitet Dir ein Problem mit dem ";" ? Darstellung? evtl die Feldeigenschaften für die Darstellung der Multivalue's ändern?
Oder brauchst Du es für spätere Berechnungen?
Dann könntest Du anstatt via Item.text über die GetItemValue methode gehen

dim listeMitTexten as variant

listeMitTexten = doc.getitemvalue("new_update")

Dann hast du in listeMitTexten einen Array mit allen Werten.

gruss umi

[Axel]

Hi,

das liegt wahrscheinlich an den abschließenden ...repsonse & Chr(13) & Chr(13) & Chr(10))

Umi hat's ja schon geschrieben, mache das Feld zu einem Feld mit Mehrfachwerten und lass Chr(13) usw. weg


Axel

[seerow]

Hallo

danke für die Antworten....

@Axel: dann müsste es aber nen RTF sein.....das wollte ich eigentlich nicht

[umi]

warum das den?

[Glombi]

Das Feld "new_update" muss vom Typ Text sein mit "Mehrfachwerte zulassen".
Der Code muss lauten:

dim addtext as string
addtext = zeit & " | " & user & " had added the following software update: " & response

If Not doc.HasItem("new_update") Then
  Set item = doc.ReplaceItemValue("new_update", addtext)
 Else
   Set item = doc.GetFirstItem( "new_update" )
   Call item.Appendtotextlist(addtext )
End If

Andreas

[seerow]

ja stimmt......hatte vergessen die Option zu aktivieren  .

tut mir leid jetzt geht es.....

[Axel]

ja stimmt......hatte vergessen die Option zu aktivieren  .

tut mir leid jetzt geht es.....

Das brauch dir nicht leid zu tun. Über diesen Haken ist jeder hier schon mal gestolpert. 

Ein schönes Wochenende.


Axel