Hallo!
> Ich hab, wie versprochen, gestern abend mal damit angefangen, eine
> entsprechende Applikation zu schreiben. Die soll auch im Zugriff
> mehrsprachig sein. Ausserdem ist es gerade bei einer solchen
Applikation
> interessant, wenn man nach �hnlich kingenden W�rtern sucht. Gibt es
die
> M�glichkeit, dies aiuch in einer anderen, als der Standartsprache der
> Datenbank zum machen? Leider kann man die Standartsprache ja nicht
zur
> Laufzeit umstellen...
Im SQL Server kann man die Sprache generell zur Laufzeit umstellen, bei
Access geht das nur �ber das Betriebssystem und entsprechende API-Calls
(ab Windows 2000).
Mein Vorschlag:
Nehme eine zus�tzliche Spalte "phonem" und f�ge da automatisch folgenden
Wert ein:
function Phonem(pString)
dim lString, lReplace, i, j, c
' Alles in Kleinbuchstaben
lString = lCase(trim(pString))
' Sonderzeichen l�schen
i = 1
do while i <= len(lString)
c = mid(lString, i, 1)
if instr("abcdefghijklmnopqrstuvwxyz����", c) > 0 then
lString = replace(lString, c, "")
else
i = i + 1
end if
loop
' Ersetzungen (Subarray: Elemente 1 - n werden durch Element 0 ersetzt)
lReplace = array(array("s", "sch", "�", "z"), _
array("c", "ch", "ck", "k", "g"), _
array("p", "b"), _
array("t", "d"), _
array("f", "v", "w"), _
array("i", "y"), _
array("o", "�"), _
array("u", "�", "ou")
array("a", "�"), _
array("" , "h", "e"))
for i = 0 to ubound(lReplace)
for j = 1 to ubound(lReplace(i))
lString = replace(lString, lReplace(i)(j), lReplace(i)(0))
next
next
' Doppelte entfernen
i = 1
do while i < len(lString)
if mid(lString, i, 1) = mid(lstring, i + 1, 1) then
lString = replace(lString, mid(lString, i, 2), mid(lString, i,
1))
else
i = i + 1
end if
loop
Phonem = lString
end function
Das Phonem fasst �hnlich klingende Konsonanten zusammen und reduziert
das Alphabeth auf 15 Buchstaben.
Freundliche Gr��e
Joachim van de Bruck
| [aspdecoffeehouse] als [email protected] subscribed
| http://www.aspgerman.com/archiv/aspdecoffeehouse/ = Listenarchiv
| Sie k�nnen sich unter folgender URL an- und abmelden:
| http://www.aspgerman.com/aspgerman/listen/anmelden/aspdecoffeehouse.asp
