Funkce Mid, příkaz Mid

Obsah

# Funkce Mid

Vrátí určenou část řetězce (funkce Mid) nebo nahradí část řetězce jiným řetězcem (podprogram Mid).

### Syntaxe:

    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)

### Návratový typ:

Typu String (jen v případě funkce)

### Parametry:

string: Řetězec, jehož část si přejete získat (funkce Mid). Název proměnné s textem, kterou si přejete upravit (podprogram Mid).

Start: Číselný výraz určující pozici znaku, kde začíná část řetězce, kterou chcete nahradit nebo vrátit. Minimální povolená hodnota je 1. Maximální povolená hodnota je 2 147 483 648.

Length: Číselný výraz určující počet znaků, které chcete nahradit nebo vrátit. Maximální povolená hodnota je 2 147 483 648.

Je-li ve funkci Mid vynechán parametr Délka, vrátí se všechny znaky od počáteční pozice do konce řetězce.

Je-li v podprogramu Mid parametr Length menší než délka textu, kterým chcete nahradit, text bude zkrácen na určenou délku.

Text: Řetězec, kterým se má nahradit získaný řetězec (podprogram Mid).

### Chybové kódy:

5 Neplatné volání procedury

### Příklad:

    Sub ExampleMid_Function_and_Statement
      text = "This is the original Text"
    func1:
      MsgBox Mid(text, 13, 8)   ' vrátí slovo "original"
      MsgBox text               ' proměnná text nebyla změněna
    stmt1:
      Mid(text, 13, 8, "new")
      MsgBox text               ' vrátí "This is the new Text"
    func2:
      MsgBox Mid(start:=10, string:="The quick brown fox ..") ' zobrazí " brown fox .."
    stmt2:
      Mid text, 9, 12, "a new Phrase"
      MsgBox text               ' vrátí "This is a new Phrase"
    End Sub

Související témata

Řetězcové funkce

Podpořte nás!