IBM Lotus Symphony


Mid-Funktion, Mid-Anweisung [Laufzeit]

Gibt den angegebenen Teil eines Zeichenfolgeausdrucks zurück (Mid-Funktion) oder ersetzt ihn durch eine andere Zeichenfolge (Mid-Anweisung).

Syntax:

Mid (Text As String, Anfang As Long [, Laenge As Long]) oder Mid (Text As String, Anfang As Long , Laenge As Long, Text As String)

Rückgabewert:

String (nur nach Funktion)

Parameter:

Text: Ein beliebiger Zeichenfolgeausdruck, den Sie bearbeiten möchten.

Anfang: Numerischer Ausdruck, der die Zeichenposition in der Zeichenfolge angibt, an welcher der zu ersetzende oder zurückzugebende Zeichenfolgeabschnitt anfängt. Der maximal zulässige Wert ist 65535.

Laenge: Numerischer Ausdruck, der die Anzahl der Zeichen angibt, die Sie ersetzen oder zurückgeben möchten. Der maximal zulässige Wert ist 65535.

Entfällt bei der Mid-Funktion die Angabe zu Laenge, werden alle Zeichen ab der angegebenen Position bis zum letzten Zeichen der Zeichenfolge ermittelt.

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

Text:Die Zeichenfolge, durch die der Zeichenfolgeabschnitt ersetzt werden soll (Mid-Anweisung).

Fehlercodes

5 Invalid procedure call

Beispiel:

Sub ExampleGermanDate

Dim sInput As String

Dim sGe_date As String

sInput = InputBox("Geben Sie ein Datum im englischen Format MM-TT-JJJJ ein")

sUS_date = Mid(sInput, 6, 2)

sGe_date = sGe_date & "."

sGe_date = sGe_date & Left(sInput, 2)

sGe_date = sGe_date & "."

sGe_date = sGe_date & Right(sInput, 4)

MsgBox sGe_date

End Sub


Produktfeedback | Zusätzliche Dokumentation | Marken