Mid-funktion

Returnerer den specificerede del af et strengudtryk (Mid-function), eller erstatter denne del af et strengudtryk med en anden streng (Mid-subrutine).

Syntaks:


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)

Returværdi:

String (kun ved funktion)

Parametre:

string: Enhvert strengudtryk, som du ønsker at trække ud (Mid-funktion). Navn på enhver tekstvariabel, du ønsker at ændre (Mid-subrutine).

Start: Numerisk udtryk, der angiver den tegnposition i strengen, hvor den mængde strenge, du vil udskifte eller returnere, begynder. The minimum allowed value is 1. Den maksimalt tilladte værdi er 2.147.483.648.

Length: Numerisk udtryk, der returnerer det antal tegn, du vil erstatte eller returnere. Den maksimalt tilladte værdi er 2.147.483.648.

Hvis længdeparameteren i funktionen Mid funktion er udeladt, vil alle tegn i strengudtrykket fra begyndelsen til slutningen af strengen returneres.

Hvis parameteren Length i Mid-subrutinen er mindre end længden af den tekst, du ønsker at erstatte, bliver teksten reduceret til den angivne længde.

Text: Den streng, som skal erstatte strengudtrykket (Mid-subrutine).

Fejlkoder:

5 Ugyldigt Procedurekald

Eksempel:


Sub ExampleMid_Function_and_Statement
  text = "This is the original Text"
func1:
  MsgBox Mid(text, 13, 8)   ' returnerer ordet "original"
  MsgBox text               ' text bliver ikke ændret
stmt1:
  Mid(text, 13, 8, "new")
  MsgBox text               ' returnerer "This is the new Text"
func2:
  MsgBox Mid(start:=10, string:="The quick brown fox ..") ' viser " brown fox .."
stmt2:
  Mid text, 9, 12, "a new Phrase"
  MsgBox text               ' returnerer "This is a new Phrase"
End Sub

Streng-funktioner