Rubrik: Variablen/Strings · String-Operationen | VB-Versionen: VB4, VB5, VB6 | 21.12.00 |
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)