vb@rchiv · Tipps & Tricks · Anschriftenfelder sinnvoll splitten

Rubrik: Variablen/Strings · String-Operationen | VB-Versionen: VB4, VB5, VB6

21.12.00

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:	Views: 18.510
ohne Homepage	System: Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11	Beispielprojekt auf CD

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)