Functie Mid, Instructie Mid

Geeft het gespecificeerde deel van een tekenreeks (Mid-functie), of vervangt het deel van een tekenreeks door een andere tekenreeks (Mid-instructie).

Syntaxis:


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

Geretourneerde waarde:

String (alleen voor Functie)

Parameters:

Tekst: Elke tekenreeks die moet worden gewijzigd.

Start: Numerieke expressie die de positie van het teken aangeeft in de tekenreeks waar het gedeelte begint dat u wilt terugkrijgen of wilt vervangen. De minimale waarde is 1. De maximale waarde is 2.147.483.648.

Length: Numerieke expressie die het aantal tekens aangeeft dat u terug wilt krijgen of wilt vervangen. De maximale waarde is 2.147.483.648.

Als de Lengte-parameter in de Mid-functie wordt weggelaten, worden alle tekens in de tekenreeks vanaf de beginpositie tot het einde van de tekenreeks teruggegeven.

Als de Lengte-parameter in de Mid-instructie kleiner is dan de lengte van de tekst die moet worden vervangen, zal de tekst worden ingekort tot de gespecificeerde lengte.

Tekst: De tekenreeks die de bestaande tekenreeks moet vervangen(Mid-instructie).

Foutcodes:

5 Ongeldige aanroep van procedure

Voorbeeld:


Sub ExampleMid_Function_and_Statement
  text = "This is the original Text"
func1:
  MsgBox Mid(text, 13, 8)   ' returns the word "original"
  MsgBox text               ' text is not modified
stmt1:
  Mid(text, 13, 8, "new")
  MsgBox text               ' returns "This is the new Text"
func2:
  MsgBox Mid(start:=10, string:="The quick brown fox ..") ' shows " brown fox .."
stmt2:
  Mid text, 9, 12, "a new Phrase"
  MsgBox text               ' returns "This is a new Phrase"
End Sub