Variant in String casten geht nicht :-(

[js84]

Guten Morgen,


bei mir herrscht mal wieder verzweiflung.

ich möchte aus einem Richtextfield einen Textstring auslesen und diesen mit einem anderen String vergleich, was eigentlich kein Problem sein sollte, aber:

von dem Richtextfield bekomm ich ein Variant zurück, den ich nicht mit dem String vergleichen kann. Ich habe versucht diesen Variant auf ein String zu casten (Cstr) aber das funktioniert nicht.

Hat jemand ne idee??

Als Anmerkung: ich brauch das Richtextfield, da auch noch andre Daten drinstehen können, also ich könnte auch kein textfeld draus machen

MfG
Jana

[koehlerbv]

Mit NotesItem.Text bekommst Du den puren Textanteil eines Richtext-Items zurückgeliefert - das sollte Dein Problem lösen.

Bernhard

[Thomas Schulte]

Richtextitem.getunformattedText liefert dir den inhalt des RTFeldes als Plain Text zurück. Mit GetFormattedText kriegt du das dann Zeile für Zeile mit einer definierbaren Länge der Zeile.

[0xse]

Weise es einem Feld in einem Dokument zu, und dann lese es wieder aus.

Dim retval As String
Dim session As New NotesSession
Dim db as NotesDatabase
Dim doc as NotesDocument

Set db = session.CurrentDatabase
Set doc = New NotesDocument ( db )

doc.tempfeld = [...]
retval = doc.tempfeld(0)

Umständlich und unsinnig, aber funktioniert ^^

[js84]

Hi

also die Problematik ist folgende, diese Funktion innerhalb derer ich den Cast machen will bekommt nicht nur Richtext sondern auch Textfelder als input, deshalb habe ich die Methode FieldGetText verwendet.Und ich muss auf dem FrontEnd machen, da  die Werte,die ich auslese noch  nicht gespeicherte wurden.

kann ich denn eventuell Prüfen ob ein Feld ein Richtext feld ist oder nicht und dann abhängig davon eine Methode verwenden?

[Axel]

Hi,

mit NotesItem.Type kannst du den Typ des Feldes auslesen.

Beisp:

Dim doc As NotesDocument
Dim item As NotesItem
Dim itemType As Integer
'...set value of doc...
Set item = doc.GetFirstItem( "Topic" )
itemType = item.Type

Auszug aus der Designer-Hilfe:

Data type
Constant of type long

Syntax
To get: itemType% = notesItem.Type

Legal values
ACTIONCD (16) means saved action CD records; non-Computable; canonical form.
ASSISTANTINFO (17) means saved assistant information; non-Computable; canonical form.
ATTACHMENT (1084) means file attachment.
AUTHORS (1076) means authors.
COLLATION (2).
Hinweis  This value is new with Release 6.
DATETIMES (1024) means date-time value or range of date-time values.
EMBEDDEDOBJECT (1090) means embedded object.
ERRORITEM (256) means an error occurred while accessing the type.
FORMULA (1536) means Notes formula.
HTML (21) means HTML source text.
ICON (6) means icon.
LSOBJECT (20) means saved LotusScript Object code for an agent.
MIME_PART (25) means MIME support.
NAMES (1074) means names.
NOTELINKS (7) means link to a database, view, or document.
NOTEREFS (4) means reference to the parent document.
NUMBERS (768) means number or number list.
OTHEROBJECT (1085) means other object.
QUERYCD (15) means saved query CD records; non-Computable; canonical form.
READERS (1075) means readers.
RICHTEXT (1) means rich text.
SIGNATURE ( means signature.
TEXT (1280) means text or text list.
UNAVAILABLE (512) means the item type isn't available.
UNKNOWN (0) means the item type isn't known.
USERDATA (14) means user data.
USERID (1792) means user ID name.
VIEWMAPDATA (18) means saved ViewMap dataset; non-Computable; canonical form.
VIEWMAPLAYOUT (19) means saved ViewMap layout; non-Computable; canonical form.

Axel

[Thomas Schulte]

Und ich muss auf dem FrontEnd machen, da die Werte,die ich auslese noch nicht gespeicherte wurden.

Und da wirst du Schwierigkeiten bekommen, denn soweit ich weis kann man Richttextfelder solange das Dokument nicht gespeichert wurde immer noch nicht ansprechen.

[Mandalor]

das doc muss vor dem ansprechen gespeichert und neu geöffnet werden und dann muss ein flag gesetzt werden, der es löscht, sollte der Nutzer es nicht wirklich speichern wollen.

du kannst auch das doc mit einem anderen Form-Feld "zwischenspeichern" und es am schluß wieder löschen

[js84]

Also, ich hab das so weit gelöst, dass ich den Typ des Feldes abfrage und je nachdem die Feldwerte hole, unabhängig davon ob der Wert jetzt aktuell ist oder nicht (RichTextFeld).

So jetzt will ich die beiden Werte vergleichen, aber egal was ich mache die Funktion Strcompare gibt nie "0 " also, gleich zurück.
Im debugger sind die Werte aber identisch

Das is der Code:

Dim workspace As New NotesUIWorkspace
   Dim s As New NotesSession
   Dim db As NotesDatabase
   Dim doc As NotesDocument
   Dim nam As NotesName
   Dim p_status,author As Variant
   Dim item As NotesItem
   
   Dim firstsplit,finalsplit,erg_firstsplit,history_erg As String
   Dim lastmodified,historystring, history,historyfield,historycontent,history_erg_help As String
   Dim fieldcontent,fieldcontent_help As String
   Dim itype As Long
   Dim count As Integer
   
   Set db = s.CurrentDatabase
   Set doc=Source.Document
   historyfield=fieldname &"_History"
   historycontent=Source.FieldGetText(historyfield)
   
   
   
   Set item=doc.GetFirstItem(fieldname)
   
   itype=item.Type
   'rich text field
   If itype=1 Then
      fieldcontent=Cstr(item.text)
   'text field   
   Elseif itype=1280 Then
      fieldcontent=Cstr(Source.FieldGetText(fieldname))
   Else
      fieldcontent=""
   End If
   
   
   'emliminate all blanks and new lines   
   fieldcontent_help=Cstr(Replace(fieldcontent,Chr$(13),""))
   fieldcontent_help=Cstr(Replace(fieldcontent_help," ",""))
   fieldcontent_help=Cstr(Replace(fieldcontent_help,";",""))
   
   
   If historycontent="" Then
      Set nam=s.CreateName(s.UserName)
      author=nam.Common
      lastmodified=doc.LastModified
      historystring=";["& author &", <"& lastmodified  & ">];" &  fieldcontent &";"
      historycontent=historystring+historycontent
      Call Source.FieldSetText(historyfield,historycontent)   
      Call Source.Refresh
      
   Else
      
'Split content, get old value
      firstsplit=Split(historycontent,">]")
      erg_firstsplit=Cstr(firstsplit(1))
      
      finalsplit=Split(erg_firstsplit,"[")
      history_erg=Cstr(finalsplit(0))
      
      'emliminate all blanks and new lines   
      history_erg_help=Cstr(Replace(history_erg,Chr$(13),""))
      history_erg_help=Cstr(Replace(history_erg_help," ",""))
      history_erg_help=Cstr(Replace(history_erg_help,";",""))
      
      
      
      'count=Strcomp(history_erg_help,fieldcontent_help,0)
      count=Strcomp(history_erg_help,fieldcontent_help,0)
      If Strcomp(history_erg_help,fieldcontent_help,0)=0 Then
         
      Else
         
         Set nam=s.CreateName(s.UserName)
         author=nam.Common
         lastmodified=doc.LastModified
         historystring=";["& author &", <"& lastmodified  & ">];" &  fieldcontent &";"
         historycontent=historystring+historycontent
         Call Source.FieldSetText(historyfield,historycontent)   
         Call Source.Refresh
         
      End If
      
   End If
   
Ich bin total ratlos
   

[Axel]

So jetzt will ich die beiden Werte vergleichen, aber egal was ich mache die Funktion Strcompare gibt nie "0 " also, gleich zurück.
Im debugger sind die Werte aber identisch

Anscheinend sind sie aber doch nicht identisch, z.B. Leerzeichen, Groß- bzw. Kleinschreibung usw.

Verwende doch mal StrCompare mit dem Parameter 5 (Case Insensitive, Pitch insensitive) anstatt 0.

Du kannst auch mal so vergleichen:

If history_erg_help = fieldcontent_help Then

oder

Instr(history_erg_help,fieldcontent_help)


Axel

[js84]

Nachdem ich so ziemlich jede String operationen ausgeführt haben, tuts jetzt.
Hab noch ein FullTrim gemacht, dann tats.

So ein Krampf


Also vielen Dank an alle


MfG Jana

[koehlerbv]

Jana, an den Krampf glaube ich gerade nicht. Es kann auch sehr gut sein, dass das Ganze seinen Sinn hat. Uns fehlen nur die Hintergründe, das zu beurteilen. Wir wissen nur: Du dealst da mit multi-value fields, die Du dann mit RTFs vergleichen willst. Das erscheint erstmal etwas obskur, und wer weiss, was da beim Füllen der Felder noch passiert, bevor sie verglichen werden.

Bernhard

PS: Tipp - Fehler in der Programmierung zunächst immer bei sich selber suchen. Mir hat das bisher immer geholfen.