Abfrage: RTF leer?

[Centaury]

Hallo!
Wie kann ich in der Formelsprache (!) ermitteln, ob ein RTF (nicht) leer ist? Mit Feld != "" klappt's nicht.
Ist für die Ansichtsauswahl, es sollen alle Dokumente angezeigt werden, in denen eine Problemlösung angegeben ist (also bei denen das RTF nicht leer ist).
Danke schonmal!

[forrest g]

hi Centaury

zu deiner form solltest du ein berechnetes feld ANZAHLATTACH vom typ number hinzufügen mitder formel @attachments
(für neue dokumente klappt das sofort, die alten dokumente müssen dann neu gespeichert werden)
in diesem feld wird dann gespeichert, wie viele attachments dieses dokument besitzt

dieses feld wird dann abgeprüft.
in der ansichtauswahl deiner view solltest du dann folgende formel verwenden:
SELECT form = "Deine Form" & ANZAHLATTACH != 0

[Centaury]

Wird dann auch erkannt, wenn nur Text im RTF steht? Es geht mir darum, dass ich in dem RTF sowohl Text, als auch z. B. Screenshots anspeichern kann und dann erkannt wird, ob da irgendetwas drinsteht.

[Centaury]

  Jo, funktioniert. Danke!!

[F_Goto_Notes]

Und was mache ich , wenn ich mehr als ein RichText- Feld in meiner Maske habe und ich ein bestimmtes davon abfragen möchte ?

[Centaury]

Komisch...heute geht's nicht mehr. Ich hab zwar an der DB weitergearbeitet, aber nicht in der Ansicht.

[Centaury]

Geht das noch anders, als mit @Attachments, weil Text ist ja nicht direkt ein Attachment. Der Feldwert von AnzahlAttach ist immer 0.

[eknori]

Da habe ich mir auch die Finger dran gebrochen. Ich hatte auch die Aufgabe, in einer Ansicht ein Symbol anzuzeigen, wenn zu einem Artikel in einem RTF Feld eine Bemerkung gemacht wurde.
Direkt auf das RTF in einer Ansicht mit @Abstract zuzugreifen funktioniert nicht.

Ich habe dann in die Maske ein berechnetes TEXT feld mit folgender Formel eingefügt

REM "Captures the first 125 chars of the BEMERKUNG field.";
@Abstract( [TextOnly] ; 125 ;"" ; "Bemerkung" )

In der Ansicht frage ich dann mit

@If(BodyFirstChars="";"";11)

den Status des berechneten Feldes ab und zeige ein Symbol an, wenn das Feld einen Inhalt hat.

eknori

[Centaury]

In der Hilfe steht zu @Abstract, dass RTFs erst nach dem Speichern ein Bestandteil des Docs sind. Wie kann ich denn nach dem Speichern das Feld neu berechnen?

[eknori]

wieso ?? das RTF Feld ist doch vorhanden.
Setze das berechnete TEXTFELD mit der @Abstrct Formel an das Ende der Maske und alles wird gut  

[Centaury]

Wenn Notes/Domino ein Feld nicht nach Namen finden kann, wird statt dessen das Zeichenfolgenliteral verwendet.

Und genau das hat er gemacht. Das Feld heißt "Lösung" und in BodyFirstChars steht "Lösung". Auch wenn Lösung nicht leer ist...

[Centaury]

Schließt das eigentlich trotzdem eingebettete Bilder ein?

[Rob Green]

dann solltest Du das hier verwenden,
im POSTSAVE Event der Maske:

...Fokus auf Doc...
Dim rtitem As Variant
   Dim plainText As String
   Dim fileNum As Integer
   Dim laenge As Integer
   Dim laenge1 As Integer
   
   Set rtitem = doc.GetFirstItem( "Body" )
   If ( rtitem.Type = RICHTEXT ) Then
      plainText = rtitem.GetFormattedText( True, 0 )
      laenge = Len(plainText$)
      laenge1 = rtitem.valuelength
.....
...zB "doc.FIELD_ABC="Inhalt vorhanden"...
   End If      
   Msgbox "Nur Text" & Cstr(laenge) & "   Mit Value:" & Cstr(laenge1)

Wenn Valuelength = 96 Byte ist, ist ein Body Feld LEER.
Wenn ValueLength >96 Byte ist, ist ein Body Feld nicht LEER, egal was drin ist (siehe oben Variable "laenge1").

Wenn es nur um Text geht, dann bitte GetFormatedText nehmen und Länge ausrechnen lassen. Wenn Nix dann 0 Byte, sonst >0 Byte (oben die Variable "laenge")

[Centaury]

*Kopfauftastaturhau*
Ich bin so blöd! Das Feld hieß WLösung!  
Jetzt geht's soweit, aber leider wird's nicht erkannt, wenn ich z.B. einen Screenshot einfüge.

[Rob Green]

nix mit Formelsprache...

[Centaury]

Was tun? In der Ansichtsauswahl kann man nicht mit Script arbeiten.

[Rob Green]

im vorigen Posting habe ich es bereits erklärt.
Snippet ins PostSave Event rein.

Wenn Du kein LS kannst, dann geht es eben nicht.

[Centaury]

Danke, das funktioniert! Ich habe aus laenge noch einen Long gemacht, weil ich sonst Overflows hatte. Hier mein kompletter Quelltext:

Code

Sub Postsave(Source As Notesuidocument)
   Dim doc    As NotesDocument
   Dim rtitem As Variant
   Dim laenge As Long
   
   Set doc = source.document
   Set rtitem = doc.GetFirstItem( "WLösung" )
   
   If ( rtitem.Type = RICHTEXT ) Then
      laenge = rtitem.valuelength
   End If
   
   If laenge > 96 Then
      doc.WLösungGefüllt = 1
   Else
      doc.WLösungGefüllt = 0
   End If
   Call doc.save(False, False)
End Sub

Dann hab ich in der Ansichtsauswahl nur noch abgefragt, ob WLösungGefüllt = 1.

Danke an alle für die Hilfe!