prüfen, ob rt-feld gefüllt

[klaussal]

moin zusammen,

bin wohl etwas vernagelt heute.

wie prüfe ich per formel, ob in einem richtext-feld etwas eingegeben wurde ?
danke für tipps !

[Rob Green]

mit @abstract, such mal im Forum nach der genauen Syntax und Parametern. Abstract wandelt Rich Text Inhalte in Text um. Davon ausgenommen: Anhänge und embedded Objects wie zB ein Image.

[Semeaphoros]

und über den Platzbedarf (Grösse) des RT-Items, das ist aber allerdings stark versionsabhängig.

[klaussal]

wenn ich ....

Laenge := @Length( @abstract( [Abbrev]; 200; ""; "Linktext999"));

eingebe, erhalte ich immer 11 als rückgabewert. das ist aber die länge von "Linktext999" und nicht die länge des feldinhaltes vom feld "Linktext999". hab ich da den schuss nicht gehört ?  

[Semeaphoros]

Sorry, hab übersehen, dass Du Formel gesagt hast, die Grösse des RT-Items steht meines Wissens per Formel nicht zur Verfügung, dazu braucht es Script. @abstract sollte aber doch in der Hilfe beschrieben sein, wie man das bekommt.

Uebrigens, lass mal die Anführungszeichen von Linktext weg, so wie Du das reinschreibst, greifst Du auch nicht auf das Feld zu, sondern effektiv auf den String "Linktext999" selber.

[klaussal]

... aus der hilfe:

Diese Formel kürzt den Inhalt des Feldes "Beschreibung" durch das Entfernen der Vokale.
@Abstract( [DropVowels]:[Abbrev]; 200; ""; "Beschreibung" )

danach muss der feldname in "" stehen. ohne "" passiert übrigens garnix  

das ganze passiert übrigens in einer ansicht. aber das sollte ja wohl nicht den unteschied machen, oder  

[Semeaphoros]

Das ist es! RT-Felder sind in Views nicht verfügbar, und deshalb nimmt er den Text selber. Du musst das im QuerySave des Documentes machen und in einem normalen Feld ablegen, ob das RT-Feld Inhalt hat oder nicht.

Du hast recht mit der Syntax, liegt daran, dass @Abstract mehrere Felder bearbeiten kann. Danke.

[klaussal]

@semeaphoros,

danke, das war's wohl.  

[eknori]

hab hier mal was in script zusammengestrickt

http://www.eknori.de/tipps/detail.php?nr=256&kategorie=tipps

Ulrich

[TMC]

@Eknori:
Cool, ich denke das ist eine saubere Lösung. Danke.
Hab mir den Code mal vorsichtshalber in die private Know-how-DB kopiert, man weiss ja nie wann man das mal braucht :-)

TMC

[koehlerbv]

@Ulrich & @TMC:
Der Code ist nur nicht ganz zuverlässig - ein importiertes Bild schnallt der nämlich nicht. Da gehört noch ein wenig mehr Aufwand betrieben (was aber machbar ist) - es kommt dann immer darauf an: Lohnt das ?

HTH,
Bernhard

[eknori]

@Bernhard:

vollkommen richtig.

2 ANsätze:

1) Backend

zusätzlich zu meinen Methoden ( Text drin ?, Attachment drin ? )
könnte man mit rtItem.ValueLength die Größe des RTF prüfen. Hier  müsste man aber durch Probieren ermitteln, welche "GrundLänge" denn das RTF hat. In meiner Anwendung sind das 102 Byte.

2) Frontend

mittels uiDoc.SelectAll und einem anschließenden uidoc.DeselectAll

Das DeselectAll erzeugt einen FehlerCode 4407, wenn das Feld leer ist, egal ob kein Text, Attachment oder importiertes Bild nicht da ist  


und um auf Klaus' Ursprungsfrage zurückzukommen. In einer Ansicht prüfe ich das mit der Formel @If ( @DocLength > 3000; 17; 0).
Das funktioniert aber nur dann, wenn man sich einigermaßen sicher sein kann, daß die DocLength nicht willkürlich variiert. Ich setze das z.B. in unserer Personaldatenbank ein, um anzuzeigen, ob das Bild für den Firmenausweis schon vorliegt.

Ulrich

[klaussal]

... diese formel gibt die länge des textes an, der im rt-feld vorhanden:
@Length(@Abstract( [TextOnly]; 200; ""; "mein-rt-feld-name" ))

hat in einer neuen db gefunzt, in einer bestehenden allerding nicht. jetzt frag mich aber bitte niemand, WARUM  

[TMC]

Nun war es soweit, dass ich auch solch eine Lösung gebraucht habe.

Ich habe dabei Ulrichs Ansatz 1 mit eingebaut und ein Errorhandling integriert:

Code

Function IsRichTextEmpty (doc As NotesDocument, strFieldName As String) As Integer
   ' This function checks if a rich text field is empty  
   ' It returns 1 if the rt-item is empty and 0 if it is not.
    'In case of problems: change the value "100" in the line "If rtItem.ValueLength > 100 Then" !
   
   On Error Goto ErrorHandler
   
   Dim iChecker As Integer
   Dim rtItem As Variant
   Dim iCount As Integer
   Dim strPlaintext As String  
   
   iCount =0 ' initialize  
   
   Set rtItem = doc.GetFirstItem( strFieldName )
   
'---> ErrorHandling   
   IsRichTextEmpty = 0 'Default value   
   If rtItem Is Nothing Then   Exit Function 'Does the item exist?
   If Not ( rtItem.Type = RICHTEXT  ) Then Exit Function 'Is the Item a RT-item?
'<---
'---> Check length of RTitem
   If rtItem.ValueLength > 100 Then 'In case of problems: change the value "100" !
      iCount=iCount+1
   End If
'<---
'---> Check if the rtf includes text or embedded objects
   strPlaintext = rtitem.GetFormattedText( False, 0 )    
   If Len(strPlaintext) < 1 Then      
      If Isarray(rtitem.EmbeddedObjects) Then   
         Forall o In rtitem.EmbeddedObjects
            iCount=iCount+1      
         End Forall   
      End If  
   End If   
'<----
   
'---> Result
   If (iCount + Len(strPlaintext)) < 1 Then  
      IsRichTextEmpty=1
   Else  
      IsRichTextEmpty=0   
   End If    
'<--- 
   
ExitScript:
   Exit Function
   
ErrorHandler:
   Msgbox  "Error: " & Err & " - " & Error$ & Chr(10) & Chr(10) _
   & "Line: " & Erl & Chr(10) _
   ,48, "Error"
   Resume ExitScript
   
End Function

[animate]

schön.

gibt es einen Grund, warum du der Funktion das NotesDocument-Objekt + Feldnamen übergibts und nicht das Notes(RichText)Item selbst?

[TMC]

gibt es einen Grund, warum du der Funktion das NotesDocument-Objekt + Feldnamen übergibts und nicht das Notes(RichText)Item selbst?

Nicht wirklich  

Siehst Du da einen Vorteil?

Die Function rufe ich übrigens über Postsave einer Maske auf und fülle das Feld "IsRTEmpty":

Code

Sub Postsave(Source As Notesuidocument)
   
   Dim doc As NotesDocument
   Dim iEmptyChecker As Integer   
   
   Set doc = Source.Document 
   
   iEmptyChecker = IsRichtextEmpty(doc, "Remarks")
   
   If iEmptyChecker = 1 Then
      doc.IsRTEmpty = 1
      Call doc.save(True,True)
   Else
      doc.IsRTEmpty = 0
      Call doc.save(True,True)
   End If
   
End Sub

[animate]

ich sehe nicht direkt einen Vorteil.
Mir erscheint es nur logisch, einer Funktion, die überprüfen soll, ob ein RTFeld leer ist, ein RTFeld zu übergeben.

[TMC]

ich sehe nicht direkt einen Vorteil.
Mir erscheint es nur logisch, einer Funktion, die überprüfen soll, ob ein RTFeld leer ist, ein RTFeld zu übergeben.

Stimmt, das wäre logisch(er).

Andererseits versuche ich, soviel Code wie nur möglich auszulagern. Daher ist es hier ganz einfach bequem, nur das doc und den Feldnamen reinzukippen in die Function - ohne dabei noch irgendwelche items definieren zu müssen Errorhandling in die Hauptprozedur einzubauen (If rtItem Is Nothing, If rtItem.Type = RICHTEXT, etc.).

[koehlerbv]

soviel Code wie nur möglich auszulagern

Matthias, dann würde ich diese Routine aber für beliebige items ausdehnen und in der function dann u.a. RTIs prüfen. So wäre das universeller.
Wenn es um die Frage geht: Ist das Feld "XYZ" ein RTF, sollte man eher eine eigene Routine ansetzen. Beispiel Memo: Es interessiert ja eher, ob "Body" etwas enthält oder nicht existent ist oder leer ist.

Du verwendest statt True und False 0 und 1. Hältst Du die Integer-Werte für stabiler als die Schlüsselwörter resp. Tokens des Compilers ?

Wie dem auch sei: Dein IsRichTextEmpty ist eine sehr nützliche function