Mid-Funktion

Gibt einen Wert vom Typ Variant (String) zurück, der eine bestimmte Anzahl von Zeichen aus einer Zeichenfolge enthält.

Syntax

Mid(string, start [, length ] )

Die Syntax der Mid-Funktion weist die folgenden Argument auf:

Argument

Beschreibung

string

Erforderlich. Zeichenfolgenausdruck, aus dem Zeichen zurückgegeben werden. Wenn string den Wert Null enthält, wird Null zurückgegeben.

start

Erforderlich. Wert vom Typ Long-Datentyp. Zeichenposition in string, an der der zu entnehmende Teil beginnt. Wenn start größer als die Anzahl von Zeichen in string ist, gibt Mid eine Zeichenfolge der Länge Null zurück ("").

length

Optional. Wert vom Typ Variant (Long). Anzahl von Zeichen, die zurückgegeben werden. Wenn dieses Argument nicht angegeben wird, oder wenn im Text weniger Zeichen vorhanden sind, als in length angegeben (einschließlich des Zeichen bei start), werden alle Zeichen von der start-Position bis zum Ende der Zeichenfolge zurückgegeben.


Hinweise

Verwenden Sie die Len-Funktion, um die Anzahl von Zeichen in string zu ermitteln.

Hinweis : Verwenden Sie die MidB-Funktion mit Bytedaten, die wie in Sprachen mit Doppelbyte-Zeichensatz (DBCS, Double-Byte Character Set) in einer Zeichenfolge enthalten sind. Die Argument geben anstelle der Anzahl von Zeichen die Anzahl von Bytes an. Beispielcode für die Verwendung von MidB finden Sie im zweiten Beispiel in diesem Beispielthema.

Beispiel

Hinweis : Die folgenden Beispiele zeigen die Verwendung dieser Funktion in einem VBA-Modul (Visual Basic für Applikationen). Wenn Sie weitere Informationen zum Arbeiten mit VBA wünschen, wählen Sie Entwicklerhilfe in der Dropdownliste neben Suchen, und geben Sie einen oder mehrere Begriffe in das Suchfeld ein.

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

Dim MyString, FirstWord, LastWord, MidWords
MyString = "Mid Function Demo"
' Textzeichenfolge erstellen.
FirstWord = Mid(MyString, 1, 3)
' Gibt "Mid" zurück.
LastWord = Mid(MyString, 14, 4)
' Gibt "Demo" zurück.
MidWords = Mid(MyString, 5)
' Gibt "Function Demo" zurück.

Im zweiten Beispiel werden MidB und eine benutzerdefinierte Funktion (MidMbcs) verwendet, um ebenfalls Zeichen aus einer Zeichenfolge zurückzugeben. Der Unterschied besteht jedoch darin, dass die Eingabezeichenfolge in ANSI und die Länge in Bytes 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"
' Wobei "A", "C", "E" und "G" DBCS und "b", "d"
' und "f" SBCS sind.
MyNewString = Mid(MyString, 3, 4)
' Gibt ""CdEf" zurück
MyNewString = MidB(MyString, 3, 4)
' Gibt ""bC" zurück
MyNewString = MidMbcs(MyString, 3, 4)
' Gibt "bCd" zurück
Teilen Facebook Facebook Twitter Twitter E-Mail E-Mail

War diese Information hilfreich?

Sehr gut. Noch anderes Feedback?

Was können wir verbessern?

Vielen Dank für Ihr Feedback!

×