PDA

Vollständige Version anzeigen : "Blütenstr. 12a" = "Blütenstraße 12 a"


biederma
14.08.2001, 08:17
Hallo,

gibt es unter Access schon vorgefertigte Abfrage-Elemente bzw. benutzbare SQL-Statements, die den Ausdruck "Blütenstr. 12a" als gleichwertig zu dem Ausdruck "Blütenstraße 12 a" erkennen, oder muss man da selbst Hand anlegen?

danke für Euer feedback,

Reinhold

Dan
14.08.2001, 09:34
Hallo,

hmm,...

Du kannst IMHO in SQL mit dem "LIKE" Dingsbums arbeiten. Ich weiss aber nicht, ob das so einfach geht.

Ansonsten fällt mir in VBA spontan nur InStr ein, damit kannst Du feststellen, ob ein String in einem anderen vorkommt und an welcher Stelle...

Vielleicht kannst Du über SQL nach in Frage kommenden Datensätzen suchen

Zum Bleistift:
Du gehst alle DS durch
übernimmst den Strassennamen bis "str"
suchst per SQL und LIKE mögliche Duplikate
und vergleichst dann den Rest der Strasse
sprich Hausnummer

Ich hoffe, das hilft irgendwie :D

CU Daniel...

Scorefun
14.08.2001, 15:56
Versuch mal folgende Funktion :

Function SplitAdresse(strAdresse As String) As String
Dim pos As Integer
Dim i As Integer
Dim strLS As String
Dim strRS As String
Dim strTemp

pos = InStr(strAdresse, "str. ")

If pos > 0 Then
strLS = Left(strAdresse, pos - 1) & "straße"
strRS = Mid(strAdresse, pos + 5)

If Not IsNumeric(strRS) Then
For i = 1 To Len(strRS)
strTemp = strTemp & Mid(strRS, i, 1)
If Not IsNumeric(strTemp) Then
strTemp = Left(strTemp, i - 1)
strRS = Mid(strRS, i)
SplitAdresse = strLS & " " & strTemp & " " & strRS
Exit Function
End If
Next i
Else
SplitAdresse = strLS & " " & strRS
End If
Else
SplitAdresse = strAdresse
End If

End Function

? splitAdresse("Blütenstr. 12a")
= Blütenstraße 12 a

HTH