Funktion Mid

Gibt den angegebenen Teil einer Zeichenfolge zurück (Funktion Mid) oder ersetzt ihn durch eine andere Zeichenfolge (Unterprogramm Mid).

Syntax:


Mid(string As String, Start As Long [, Length As Long]) As String
Mid([ByRef] string As String, Start As Long, [Length As Long], Text As String)

Rückgabewert:

String (nur bei Funktion)

Parameter:

string: Jede beliebige Zeichenfolge, die extrahiert werden soll (Funktion Mid). Jeder beliebige Textvariablenname, der geändert werden soll (Unterprogramm Mid).

Anfang: Numerischer Ausdruck, der die Zeichenposition innerhalb der Zeichenfolge angibt, an welcher der Zeichenfolgenabschnitt beginnt, den Sie ersetzen oder zurückgeben möchten. Der zulässige Mindestwert ist 1. Der zulässige Höchstwert ist 2.147.483.648.

Länge: Numerischer Ausdruck, welcher die Anzahl der Zeichen zurückgibt, die Sie ersetzen oder zurückgeben möchten. Der maximal zulässige Wert beträgt 2.147.483.648.

Entfällt bei der Funktion Mid die Angabe "Länge", werden alle Zeichen ab der angegebenen Position bis zum letzten Zeichen der Zeichenfolge ermittelt.

Ist der Längenparameter des Unterprogramms Mid kleiner als die Länge des zu ersetzenden Textes, so wird der Text auf die angegebene Länge gekürzt.

Text: Die Zeichenfolge, welche die Zeichenfolge (Unterprogramm Mid) ersetzen soll.

Fehlercodes:

5 Ungültiger Prozeduraufruf

Beispiel:


Sub ExampleMid_Function_and_Statement
  text = "This is the original Text"
func1:
  MsgBox Mid(text, 13, 8)   ' gibt das Wort "original" zurück
  MsgBox text               ' Text wird nicht verändert
stmt1:
  Mid(text, 13, 8, "new")
  MsgBox text               ' gibt "This is the new Text" zurück
func2:
  MsgBox Mid(start:=12, string:="Der schnelle braune Fuchs ...") ' zeigt " braune Fuchs ..." an
stmt2:
  Mid text, 9, 12, "a new Phrase"
  MsgBox text               ' gibt "This is a new Phrase" zurück
End Sub

Zeichenfolgenfunktionen