Inhalte

# 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ückgabetyp:

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

Verwandte Themen

Zeichenfolgenfunktionen

Bitte unterstützen Sie uns!