Anschriftenfelder sinnvoll splitten Meist besitzen Datenbanken die Felder "Anschrift 1" und "Anschrift 2". Diese Felder haben dann eine feste Länge, die nicht überschritten werden darf...
Autor:   Michael Becker	Bewertung:     [ Jetzt bewerten ]	Views:  18.492
ohne Homepage	System:  Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11	Beispielprojekt auf CD

Geben Sie hier Ihre persönliche Bewertung ab! Anzahl Bewertungen bisher: 18 Bewertung insgesamt: nützlich Durchschnittliche Bewertung: 3.2 von 5 Sternen

sehr gut     gut     nützlich     mittelmäßig     mangelhaft

Meist besitzen Datenbanken die Felder "Anschrift 1" und "Anschrift 2". Diese Felder haben dann eine feste Länge, die nicht überschritten werden darf. Der nachfolgende Tipp hilft Ihnen beim "Aufsplitten" einer langen Anschrift in zwei kürzere Anschriftenfelder. Als Umbruchzeichen dienen Leerzeichen und Bindestriche.

Beispiel:
Anschrift = "Firma L & H Software GmbH und Co KG Softwareentwicklung"
In der Datenbank sind zwei Felder für die Anschrift mit je 40 Zeichen vorhanden. Würde man nun die "lange" Anschrift nach den ersten 40 Zeichen umbrechen, so wäre das Ergebnis:

Anschrift 1 = "Firma L & H Software GmbH und Co KG Software"
Anschrift 2 = "entwicklung"

Werden jedoch die nachfolgenden Routinen zum automatischen Umbrechen verwendet, so ist das Ergebnis:

Anschrift 1 = "Firma L & H Software GmbH und Co KG"
Anschrift 2 = "Softwareentwicklung"

' Umbruchstelle suchen
Public Function Anschrifttrenner(ByVal s As String, _
 Optional ByVal nLen As Integer = 40) As String
  Dim x As Integer
 
  Anschrifttrenner = s
  If Len(s) > nLen Then
    For x = nLen To 1 Step -1
      If Mid$(s, x, 1) = " " Or Mid$(s, x, 1) = "-" Then
        Anschrifttrenner = RTrim$(Mid$(s, 1, x))
        Exit For
      End If
    Next x
  End If
End Function
 
' Zweiten Teil ermitteln
Public Function Anschrifttrenner2(ByVal s As String, _
 Optional ByVal nLen As Integer = 40)
  Dim x As Integer
  If Len(s) > nLen Then
    For x = nLen To 1 Step -1
      If Mid$(s, x, 1) = " " Or Mid$(s, x, 1) = "-" Then
        Anschrifttrenner2 = LTrim$(Mid$(s, x + 1, Len(s)))
        Exit For
      End If
    Next x
  End If
End Function

Praktisches Beispiel:

AnschriftLang = ...
Anschrift1 = Anschrifttrenner(AnschriftLang)
Anschrift2 = Anschrifttrenner2(AnschriftLang)
 
' oder Umbruch nach max. 30 Zeichen
Anschrift1 = Anschrifttrenner(AnschriftLang, 30)
Anschrift2 = Anschrifttrenner2(AnschriftLang, 30)