vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
Top-Preis! AP-Access-Tools-CD Volume 1  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2024
 
zurück
Rubrik: Variablen/Strings · String-Operationen   |   VB-Versionen: VB4, VB5, VB621.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 BeckerBewertung:     [ Jetzt bewerten ]Views:  18.463 
ohne HomepageSystem:  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)