Zeichenumwandlung
Veröffentlicht am 29.12.2003
Das Darstellen von importierten Daten in gewünschter Form.
Beim Import von Daten liegen diese oftmals in einer Form oder Darstellung vor, die unerwünscht ist. Dabei sind natürlich die unterschiedlichsten Variationen denkbar.
Benutzen Sie die Funktionen, um die Darstellung importierter Daten in eine gewünschte Form zu bringen.
Das folgende Beispiel (siehe Abbildung 1) zeigt eine Tabelle mit importierten Daten an. Vor- und Nachname liegen nicht in der üblichen Schreibweise – erster Buchstabe groß und alle anderen Buchstaben klein – vor.
Erstellen Sie in einem solchen Fall eine benutzerdefinierte Funktion, die mit Hilfe eingebauter Access-Funktionen dieses Problem löst.
Public Function StandardString(ByVal InputString As String) As String '
Diese Funktion gibt eine Zeichenkette mit dem ersten Buchstaben groß ‚ und den
restlichen Buchstaben klein aus
Dim FirstLetter As String, RemainString As String
FirstLetter = Left(InputString, 1)
RemainString = Right(InputString, Len(InputString) - 1)
StandardString = Format(FirstLetter, ">") & Format(RemainString, "<")
End Function
Die beiden Variablen FirstLetter und RemainString teilen den übergebenen String InputString in den ersten Buchstaben und den Rest der Zeichenkette auf. FirstLetter wird mit Hilfe der Left-Funktion der erste Buchstaben der Zeichenkette zugewiesen, RemainString der Rest der Zeichenkette. Dabei kommen die Funktionen Right und Len zum Einsatz.
Anschließend werden die Buchstaben der beiden Teilstrings entsprechend umgewandelt und als Rückgabewert der aufrufenden Funktion übergeben. Eine solche Funktion können Sie anschließend in einer Abfrage verwenden, um in berechneten Feldern die umgewandelten Zeichenketten darzustellen.