Vráti hodnotu typu Variant (String), ktorá obsahuje zadaný počet znakov z reťazca.
Syntax
Mid(reťazec; začiatok [, dĺžka ] )
Syntax funkcie Mid má tieto argumenty:
| Argument | Popis |
|---|---|
| reťazec | Povinný argument. reťazcový výraz, z ktorého sa vrátia znaky. Ak reťazec obsahuje hodnotu Null, vráti sa hodnota Null . |
| začiatok | Povinný argument. Hodnota typu Long. Pozícia znaku v reťazci , v ktorej začína časť, ktorá sa má vziať. Ak je argument start väčší než počet znakov v reťazci, funkcia Mid vráti reťazec s nulovou dĺžkou (""). |
| dĺžka | Voliteľný argument. Hodnota typu Variant (Long). Počet znakov, ktoré sa majú vrátiť. Ak sa vynechá alebo ak je v texte menej znakov ako dĺžka (vrátane znaku na začiatku), vrátia sa všetky znaky od počiatočnej pozície po koniec reťazca. |
Poznámky:
Ak chcete zistiť počet znakov v reťazci, použite funkciu Len .
Poznámka
Použite funkciu MidB s údajmi v bajtoch, ktoré sa nachádzajú v reťazci tak, ako v jazykoch s dvojbajtovou tabuľkou znakov. Argumenty nezadávajú počet znakov, ale určujú počet bajtov. Vzorový kód, v ktorom sa používa funkcia MidB, nájdete v téme s príkladmi, v druhom príklade.
Príklady dotazov
| Výraz | Výsledky |
|---|---|
| SELECT ProductID, Mid(ProductID,5) AS Expr1 FROM ProductSales; | Vráti hodnotu ProductID (IDProduktu) a časť stĺpca ProductID (IDProduktu) začínajúc znakom 5 a výsledky zobrazí v stĺpci Expr1. |
| SELECT ProductID, Mid(ProductID,5,4) AS testMid FROM ProductSales; | Vráti hodnotu ProductID (IDProduktu) a časť znaku ProductID začínajúcu od pozície znaku 5, ktorá obsahuje 4 znaky, a výsledky zobrazí v stĺpci testMid. |
Príklady VBA
Poznámka
Nasledujúce príklady jazyka VBA ukazujú použitie tejto funkcie v module jazyka Visual Basic for Applications (VBA). Ak chcete získať ďalšie informácie o práci s jazykom VBA, vyberte z rozbaľovacieho zoznamu vedľa položky Hľadať možnosť Odkaz pre vývojára a do vyhľadávacieho poľa zadajte nejaké výrazy.
V prvom príklade sa funkcia Mid používa na vrátenie zadaného počtu znakov z reťazca.
Dim MyString, FirstWord, LastWord, MidWords
MyString = "Mid Function Demo" ' Create text string.
FirstWord = Mid(MyString, 1, 3) ' Returns "Mid".
LastWord = Mid(MyString, 14, 4) ' Returns "Demo".
MidWords = Mid(MyString, 5) ' Returns "Function Demo".
V druhom príklade sa funkcia MidB a používateľom definovaná funkcia (MidMbcs) používajú aj na vrátenie znakov z reťazca. Rozdiel je ten, že vstupný reťazec je ANSI a dĺžka je v bajtoch.
Function MidMbcs(ByVal str as String, start, length)
MidMbcs = StrConv(MidB(StrConv(str, vbFromUnicode), _
start, length), vbUnicode)
End Function
Dim MyString
MyString = "AbCdEfG"
' Where "A", "C", "E", and "G" are DBCS and "b", "d",
' and "f" are SBCS.
MyNewString = Mid(MyString, 3, 4)
' Returns ""CdEf"
MyNewString = MidB(MyString, 3, 4)
' Returns ""bC"
MyNewString = MidMbcs(MyString, 3, 4)
' Returns "bCd"