Domino 9 und frühere Versionen > ND6: Entwicklung

Return im Textfeld entfernen

<< < (3/4) > >>

Hedwig14:
ja, das ist mir klar.
Wollte damit nur deutlich machen welche werte ich entfernen möchte.

Meine Frage ist wie ich den ReplaceCode (s.o.) so umstellen muss, dass
diese Werte aus meinem Textfeld verschwinden. Habe mit der Replace Function noch
nicht gearbeitet und tue mich damit etwas schwer !

m3:
* m3 schreibt Code für andere nur gegen Bezahlung.Konkrete Fragen beantworte ich aber gerne auch kostenlos.

Hedwig14:
ich habe inzwischen diesen code geschreiben.
was mache ich hier nur falsch ?




Sub Click(Source As Button)
   Dim session As New NotesSession
   Dim db As NotesDatabase
   Dim view As NotesView
   Dim doc As NotesDocument
   Dim rc1 As NotesItem
   Dim rc2 As NotesItem
   Set db = session.CurrentDatabase
   Set view = db.GetView("Umfrage_PR")
   Set doc = view.GetFirstDocument
   
   While Not(doc Is Nothing)
      Set rc1 = doc.GetFirstItem("U_Antwort_8")
      Set rc2 = doc.GetFirstItem("U_Antwort_5b")
      
      eval1 = Evaluate (    | @ReplaceSubstring( rc1 ;@NewLine;" ") | )
      eval2 = Evaluate (    | @ReplaceSubstring( rc2 ;@NewLine;" ") | )
      
      Call doc.ReplaceItemValue("U_Antwort_8", eval1)
      Call doc.ReplaceItemValue("U_Antwort_5b", eval2)      
      
      Call doc.Save(True, False)
      Set doc = view.GetNextDocument(doc)
   Wend
   
End Sub

DAU-in:
@ReplaceSubstring( sourceList ; fromList ; toList )

Ich kann es gerade nicht ausprobieren, aber ich glaube nicht, dass @newline hier als 'fromlist' gültig ist, auch wenn der Rückgabwert ein String ist

was zeigt der Debugger denn für eval1 und eval2 an?


noch nachgeschoben: wenn du eh das ganze in Script machst, warum nimmst du nicht die replace function?

koehlerbv:
@"DAU-in":
@NewLine ist als "fromlist" sehr wohl geeignet.

@Hedwig:
Du machst da so gut wie alles falsch. rc1 ist ein NotesItem, und damit können werder Evaluate noch und vor allem @ReplaceSubstring etwas anfangen. rc1 wird aber gar nicht als NotesItem mehr wahrgenommen, weil es innerhalb eines Strings als sinnlose Aneinanderreihung von drei Zeichen steht. Evaluate fehlt zudem der Bezug zum NotesDocument, auf den - wenn syntaktisch richtig formuliert - sich der Itemname (!) rc1 bezieht.

Und ist

Ergebnisstring = Replace (doc.U_Antwort_8 (0), Chr$ (13); " ")

nur so schwer?

Bernhard

Navigation

[0] Themen-Index

[#] Nächste Seite

[*] Vorherige Sete