Hallo,
ich dreh ab ...
Bitte helft mit auf die Sprünge:
Folgendes versuche ich in LS zu erreichen:
cSuchFeld = {@uppercase(@Abstract( [TRIMWHITE] ;64994 ;"";"BODY"))}
im Debugger würde ich dann so etwas als Value von cSuchFeld erwarten:
"@uppercase(@Abstract( [TRIMWHITE] ;64994 ;"";"BODY"))"
stattdessen bekomme ich aber dass hier als Value von cSuchFeld :
"@uppercase(@Abstract( [TRIMWHITE] ;64994 ;"""";""BODY""))"
da wurden die Gänsefüßchen vedoppelt
Tell me Why... ???
Grüße
Hither
Wie setzt Du das denn ein?
Ich habe so eine Formel irgendwo im Code gefunden und die tut einwandfrei.
ivFormel = |@unique(@sort(@dblookup("":"NoCache";"";"viw_verbuchtteam";"| & gvHKT & |";2)))|
alle_teams = Evaluate(ivFormel)
Vielleicht kannst Du Dich daran orientieren?
Matthias
@all
Mann, ich komme erst jetzt dazu Euch für Eure Vorschläge zu danken.
Also ich muss eine sehr komlpexe Selektions-Routine um die Suche in Richtextfeldern erweitern.
Es werden übrigens nur gespeicherte Docs durchsucht.
Die Scripte basieren leider alle auf @formeln, deswegen ist es nicht ohne weiteres möglich mit Script
Mitteln möglich.
Es gibt keine konkrete Fehlermeldung, sondern die doppelten Anführungszeichen werden eins zu eins
verarbeitet und führen dann zu falschen Ergebnissen.
Gibt es denn keinen Workaround das man sich eine Formel zusammen bauen kann in der keine doppelte
Anführungszeichen sind?
Also ich brauche einen String der im Debugger den Inhalt hat:
"@uppercase(@Abstract( [TRIMWHITE] ;64994 ;"";"BODY"))"
Ich habe auch schon chr(34) in einen String gepackt, wird aber auch gedoppelt.
Vieleicht hat ja noch jemand eine Idee.
Grüße
Hitcher
... versuchs mal damit:
' # ...
Dim db As NotesDatabase
Dim dc As NotesDocumentCollection
Dim doc As NotesDocument
Dim sFormula As String
Dim sSuchstring As String
' # ...
sSuchstring = "Der Suchbegriff"
sFormula = {SELECT Form = "DeinMaskenName" & @Contains(@Text( Body ) ; "} & sSuchstring & {")}
Set dc = db.Search( sFormula , Nothing , 0 )
If dc.Count > 0 Then
' # Treffer
Set doc = dc.GetFirstDocument
While not doc Is Nothing
' # ...
Set doc = dc.getNextDocument( doc )
Wend
End If
... so aus dem Bauch heraus sollte das tun - habs jetzt nicht gestestet...
Toni