Domino 9 und frühere Versionen > Entwicklung

Problem mit FTSearch

<< < (2/2)

Ralph:
Danke für die Hinweise ich werde s morgen nochmal probieren, auf den Gedanken die einzelnen Feldwerte der Collektion zu vergleichen bin ich auch gekommen. Habs aber noch nicht probiert.
Ich dachte es gibt vielleicht FTSearch auch für Doc's.
In der Hilfe hab ich auch sowas gelesen,das war FTSearchScore bin
ich aber nicht mit klar gekommen.
Als Rückgabewert soll ein Integer der gefundenen Übereinstimmungen im Document kommen, aber wie das so ist er kam nicht.
Also bis morgen ich halt euch auf dem laufenden

Gruß Ralph

Ralph:
Hi,
Ich hab es jetzt so gelöst, mit strCompare
Ist zwar nicht so das was ich mir vorgestellt hatte. Eigentlich wollte ich alle Felder des Documents auslesen lassen und dann über eine Schleife nacheinander Vergleichen (wäre dann im Prinzip auch eine Volltextsuche), aber ich habe nicht herrausgefunden wie ich an die Felder rankomme
            '# Vergleich der Felder ob Schlüssel worte enthalten
            Dim docKey As Notesdocument
            Dim docKey2 As Notesdocument
            Dim dbkey As Notesdatabase
            Set dbkey = session.GetDatabase("pcoi4","apptelephone.nsf")
            Dim cdocKey As NotesdocumentCollection
            Dim vergleich As Integer
            
            '# Einlesen der Schlüsselworte in eine Collection
            vergleich = 1
            keySearch = | Select Form = "KM" |
            Set cdocKey = dbkey.Search(keySearch,dateTime,0) '# alle Documente aus KeyAnsicht
            Set docKey2 = cdocKey.GetFirstDocument
            
            Do While Not docKey2 Is Nothing  And vergleich <> 0   
               
               Set docKey = cdocKey.GetDocument(docKey2)  '# erste Dokument aus KeyAnsicht
               If Strcompare( docNab.FirstName(0)  , dockey.KeywordMaske(0) ,1) <> 0_
               And Strcompare( docNab.LastName(0)  , dockey.KeywordMaske(0) ,1) <> 0 Then  
                  vergleich =1                  
               Else                  
                  vergleich =0
               End If
               
               Set dockey2 =cdocKey.GetNextDocument(dockey2)    
               
            Loop
            If vergleich <> 0 Then
               
               Set docNew = dbExport.CreateDocumen

ata:
... sollte es nur ein Auszug aus dem Code sein, oder fehlt da noch Code?

ata

ata:
Hallo Ralph,

... ich gehe mal auf die Suche, ich hatte sowas schon mal zusammengepfriemelt...

ata

Navigation

[0] Themen-Index

[*] Vorherige Sete