Das Notes Forum

Domino 9 und frühere Versionen => ND7: Entwicklung => Thema gestartet von: oxyd21 am 09.11.07 - 11:45:59

Titel: Fehler mit @Soundex und Evaluate
Beitrag von: oxyd21 am 09.11.07 - 11:45:59

Servus,

ich steh irgendwie absolut auf dem Schlauch. Mein @Soundex gibt keine richtiges Ergebnis zurück, sondern strTemp ist nur ?000. qry enthält den richtigen String.

Sieht vielleicht jemand den Fehler?

Grüße, Michael

Code

	Public Function checkPhonetic(db)
		
		Dim strTemp As Variant
		Dim strTemp2 As Variant
		Set collection = createCollection(db)
		Set doc = collection.GetFirstDocument
		Erase strContactList
		Dim qry As String
		Dim qry2 As String
		
		While Not(doc Is Nothing)
			qry = |@Soundex(| + doc.LastName(0) + |)|
			strTemp = Evaluate ( qry, doc)
			
			qry2 = |@Soundex(| + doc.Firstname(0) + |)|
			strTemp2 = Evaluate ( qry2, doc)
			
			If Not(Iselement(strContactList(strTemp(0)))) Then
				strContactList(strTemp(0))=strTemp2(0)
			Else
				If (Iselement(strContactList(strTemp(0)))) Then
					'Messagebox strTemp(0),,doc.fullname(0)
					If (strContactList(strTemp(0))=strTemp2(0)) Then
						'Messagebox strTemp(0),,doc.fullname(0)
							'Call doc.ReplaceItemValue("Doublette4","4")	
							'Call doc.Save (True,True)

					End If
				End If	
			End If
			Set doc = collection.GetNextDocument(doc)
		Wend
	End Function

Titel: Re: Fehler mit @Soundex und Evaluate
Beitrag von: Glombi am 09.11.07 - 11:52:31

Es muss
qry = |@Soundex("| + doc.LastName(0) + |")|

heissen, also mit " ... "

Andreas

Titel: Re: Fehler mit @Soundex und Evaluate
Beitrag von: oxyd21 am 09.11.07 - 11:59:06

Danke.