¬ Home » Tutorials » Stringfunktionen Feedback | Druckansicht

Tutorial: Stringfunktionen

Die verschiedenen Stringfunktionen kommen zunächst etwas unscheinbar daher und werden auch meist unterschätzt, doch die Kenntnis der verschiedenen Funktionen und Ihrer Anwendungsgebiete spart mit unter erheblich Zeit und vereinfacht die Programmierung um Längen. Von den hier aufgeführten Funktionen gehören einige zum Sprachumfang von VBA 6.0 und sind deshalb nicht in Visual Basic 5.0 oder niedriger zu finden.

Left(String, n)

Die Funktion Left trennt von einem string die Anzahl n Zeichen, gezählt vom ersten Linken Zeichen, ab und gibt Sie als String zurück. Z.B.:

Dim Text As String
Dim Ergebnis As String
Text = "Das ist eine Text zum Testen."
Ergebnis = Left(Text, 7)
Debug.Print Ergebnis
'Der zurückgegebene String lautet: „Das ist“

Right(String, n)

Die Funktion Right trennt von einem string die Anzahl n Zeichen, gezählt vom ersten Rechten Zeichen, ab und gibt Sie als String zurück. Z.B.:

Dim Text As String
Dim Ergebnis As String
Text = "Die Sonne schein den ganzen Tag!"
Ergebnis = Right(Text, 7)
Debug.Print Ergebnis
'Der zurück gegebene String lautet: „en Tag!“

Mid(String, n, x)

Die Funktion Mid trennt ausgehend von der Position n im einem Text x Zeichen in der Richtung von Links nach Rechts aus dem string heraus und gibt sie als String zurück. Wird x nicht angegeben werden allen Zeichen bis zum Ende des String zurück geben. Z.B.:

Dim Text As String
Dim Ergebnis As String
Text = "Wieder so ein Beispiel!"
Ergebnis = Mid(Text, 3, 7)
Debug.Print Ergebnis
'Der zurück gegebene String lautet: „eder so“

InStr([Start], String, Suchstring, [Vergleichsmethode])

Die InStr-Funktion durchsucht einen vorgegebenen Text (String) nach einer beliebigen Zeichenfolge (Suchstring). Die Suche nach dem gewünschten Zeichen- oder einer Zeichenfolge beginnt an der angegebenen Startposition (Start). Wird die Zeichenfolge gefunden wird deren Anfangsposition ausgegeben. Optional kann auch die Art des Vergleichs bestimmt werden (Vergleichsmethode). [mehr...]

Dim Text As String
Dim Ergebnis As Integer
Text = "Eine bestimmte Zeichenfolge zu finden ist ganz einfach."
Ergebnis = InStr(1, Text, "Zeichenfolge")
Debug.Print Ergebnis
'Der Rückgabewert der Funktion lautet: 16

Chr(x)

Die Funktion Chr wandelt einen Zeichencode x in einen String der Länge 1 um und gibt diesen Zurück. Dabei entspricht der Zeichencode dem Ascii-Zeichensatz. Z.B.:

Debug.Print Chr(80)
'Der zurück gegebene String lautet: „P“

Asc(x)

Die Funktion Asc wandelt einen String x in einen Zeichencode um dieser entspricht dem Ascii-Zeichensatz. Z.B.:

Debug.Print Asc(“P”)
'Der zurück gegebene Zeichencode lautet: „80“