Mid-Funktion

Artikel
04/07/2023

Gibt einen Variant-Wert (String) mit einer angegebenen Anzahl von Zeichen aus einer Zeichenfolge zurück.

Syntax

Mid(string, start, [ length ])

Die Syntax der Mid-Funktion weist folgende benannte Argumente auf:

Teil	Beschreibung
Zeichenfolge	Erforderlich. Zeichenfolgenausdruck, aus dem Zeichen zurückgegeben werden. Wenn stringNull enthält, wird Null zurückgegeben.
start	Erforderlich; Long. Zeichenposition in string an der der zu verwendende Teil beginnt. Wenn start größer als die Anzahl von Zeichen in string ist, gibt Mid eine leere Zeichenfolge ("") zurück.
length	Optional; Variant (Long). Anzahl der zurückzugebenden Zeichen. Wenn dies nicht angegeben wird oder weniger Zeichen als length im Text vorhanden sind (einschließlich des Zeichens bei start), werden alle Zeichen von der Position start bis zum Ende der Zeichenfolge zurückgegeben.

Hinweise

Um die Anzahl von Zeichen in string zu ermitteln, verwenden Sie die Len-Funktion.

Hinweis

Verwenden Sie die MidB-Funktion mit Bytedaten, die in einer Zeichenfolge enthalten sind, wie in Sprachen mit Doppelbyte-Zeichenfolgen. Die Argumente geben nicht die Anzahl von Zeichen, sondern die Anzahl von Byte zurück. Beispielcode, der MidB verwendet, finden Sie im zweiten Beispiel im Beispielthema.

Beispiel

Im ersten Beispiel wird die Mid-Funktion verwendet, um eine bestimmte Anzahl von Zeichenfolgen aus einer Zeichenfolge zurückzugeben.

Dim MyString, FirstWord, LastWord, MidWords
MyString = "Mid Function Demo"    ' Create text string.
FirstWord = Mid(MyString, 1, 3)    ' Returns "Mid".
LastWord = Mid(MyString, 14, 4)    ' Returns "Demo".
MidWords = Mid(MyString, 5)    ' Returns "Function Demo".

Im zweiten Beispiel wird die MidB-Funktion und eine benutzerdefinierte Funktion (MidMbcs) verwendet, um ebenfalls Zeichen aus einer Zeichenfolge zurückzugeben. Der Unterschied besteht darin, dass die Eingabezeichenfolge ANSI und die Länge in Byte angegeben ist.

Function MidMbcs(ByVal str as String, start, length)
    MidMbcs = StrConv(MidB(StrConv(str, vbFromUnicode), start, length), vbUnicode)
End Function

Dim MyString
MyString = "AbCdEfG"
' Where "A", "C", "E", and "G" are DBCS and "b", "d", 
' and "f" are SBCS.
MyNewString = Mid(MyString, 3, 4)
' Returns "CdEf"
MyNewString = MidB(MyString, 3, 4)
' Returns "bC"
MyNewString = MidMbcs(MyString, 3, 4)
' Returns "bCd"

Siehe auch

Funktionen (Visual Basic for Applications)

Support und Feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.

Freigeben über