Das Notes Forum

Domino 9 und frühere Versionen => ND6: Entwicklung => Thema gestartet von: seerow am 22.04.05 - 14:02:04

Titel: ";" semicolon als Trennwert Appendtotextlist
Beitrag von: seerow am 22.04.05 - 14:02:04

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}

Titel: Re: ";" semicolon als Trennwert Appendtotextlist
Beitrag von: umi am 22.04.05 - 14:57:19

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

Titel: Re: ";" semicolon als Trennwert Appendtotextlist
Beitrag von: Axel am 22.04.05 - 16:06:03

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

Titel: Re: ";" semicolon als Trennwert Appendtotextlist
Beitrag von: seerow am 22.04.05 - 16:13:37

Hallo

danke für die Antworten....

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

Titel: Re: ";" semicolon als Trennwert Appendtotextlist
Beitrag von: umi am 22.04.05 - 16:15:03

warum das den?

Titel: Re: ";" semicolon als Trennwert Appendtotextlist
Beitrag von: Glombi am 22.04.05 - 16:28:10

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

Titel: Re: ";" semicolon als Trennwert Appendtotextlist
Beitrag von: seerow am 22.04.05 - 16:47:11

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

tut mir leid jetzt geht es.....

Titel: Re: ";" semicolon als Trennwert Appendtotextlist
Beitrag von: Axel am 22.04.05 - 16:48:49

Zitat von: seerow am 22.04.05 - 16:47:11

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.  ;D :o

Ein schönes Wochenende.


Axel