Funkcja Mid

Zwraca określoną część wyrażenia łańcuchowego (funkcja Mid) lub zastępuje część wyrażenia łańcuchowego innym ciągiem (podprogram Mid).

Składnia:


Mid(Ciąg As String, Początek As Long [, Długość As Long]) As String
Mid([ByRef] Ciąg As String, Początek As Long, [Długość As Long], Tekst As String)

Zwracana wartość:

Ciąg (tylko w przypadku funkcji)

Parametry:

Ciąg: dowolne wyrażenie ciągu, które chcesz wyodrębnić (funkcja Mid). Dowolna nazwa zmiennej tekstowej, którą chcesz zmodyfikować (podprogram Mid).

Początek: Wyrażenie numeryczne określające pozycję znaku, w którym część łańcucha zaczyna zastępować lub zwracać. Minimalna dozwolona wartość wynosi 1. Maksymalna dozwolona wartość wynosi 2 147 483 648.

Długość: Wyrażenie numeryczne, które zwraca liczbę znaków, które chcesz zastąpić lub zwrócić. Maksymalna dozwolona wartość wynosi 2 147 483 648.

Jeśli parametr "Długość" w funkcji Mid zostanie pominięty, zwracane są wszystkie znaki od punktu początkowego aż do końca ciągu.

Jeśli parametr Długość w podprogramie Mid jest mniejszy niż długość tekstu, który chcesz zastąpić, tekst zostanie skrócony do określonej długości.

Tekst: ciąg, który ma zastąpić wyrażenie ciągu (podprogram Mid).

Kody błędów:

5 Nieprawidłowe wywołanie procedury

Przykład:


Sub ExampleMid_Function_and_Statement
  text = "This is the original Text"
func1:
  MsgBox Mid(tekst, 13, 8)   ' zwraca słowo „original”
  MsgBox text               ' tekst nie jest modyfikowany
stmt1:
  Mid(text, 13, 8, "new")
  MsgBox text               ' zwraca „This is the new Text”
func2:
  MsgBox Mid(start:=10, string:="The quick brown fox ..") ' pokazuje " brown fox .."
stmt2:
  Mid text, 9, 12, "a new Phrase"
  MsgBox text               ' zwraca „This is a new Phrase”
End Sub

Funkcje łańcuchowe