Pateikia variantą (eilutę), kuriame yra nurodytas simbolių skaičius iš eilutės.
Sintaksė
Mid(eilutė, pradžia [, ilgis ] )
Funkcijos MID sintaksėje yra toliau nurodyti argumentai.
| Argumentas | Aprašymas |
|---|---|
| eilutė | Būtinas. eilutės išraiška, iš kurios pateikiami simboliai. Jei eilutėje yra Null, grąžinamas Null . |
| pradėti | Būtinas. Ilgas. Simbolio padėtis eilutėje , kurioje prasideda paimtina dalis. Jei pradžia didesnė už simbolių skaičių eilutėje, funkcija Mid pateikia nulinio ilgio eilutę (""). |
| ilgis | Pasirinktinis. Variant (ilgas). Pateiktinų simbolių skaičius. Jei praleistas arba jei tekste yra mažiau simbolių nei ilgis (įskaitant simbolį pradžioje), pateikiami visi simboliai nuo pradžios vietos iki eilutės pabaigos. |
Pastabos
Norėdami nustatyti simbolių skaičių eilutėje, naudokite funkciją Len .
Pastaba
Naudokite funkciją MidB su baito duomenims eilutėje, pavyzdžiui, dvibaičių simbolių rinkinių kalbose. Užuot nurodę simbolių skaičių, argumentai nurodo baitų skaičių. Norėdami ieškoti kodo pavyzdžio, kuris naudoja MidB, žr. antrąjį temos pavyzdyje pateiktą pavyzdį.
Užklausų pavyzdžiai
| Išraiška | Rezultatai |
|---|---|
| SELECT ProductID, Mid(ProductID,5) AS Expr1 FROM ProductSales; | Grąžina "ProductID" ir ProductID dalį pradedant simbolio pozicija 5 ir rodo rezultatus stulpelyje Expr1. |
| SELECT ProductID, Mid(ProductID,5,4) AS testMid FROM ProductSales; | Grąžina "ProductID" ir ProductID dalį pradedant nuo 5 simbolio pozicijos, kurioje yra 4 simboliai ir pateikia rezultatus stulpelyje testMid. |
VBA pavyzdžiai
Pastaba
Pateiktuose VBA pavyzdžiuose parodyta, kaip naudoti šią funkciją "Visual Basic for Applications" (VBA) modulyje. Daugiau informacijos apie darbą su VBA rasite išplečiamajame sąraše pasirinkę Kūrėjų nuoroda (šalia Ieškos) ir ieškos lauke įvedę vieną ar daugiau sąlygų.
Pirmame pavyzdyje naudojama funkcija Mid grąžina nurodytą simbolių skaičių iš eilutės.
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".
Antrame pavyzdyje naudojama MidB ir vartotojo apibrėžta funkcija (MidMbcs), kad simboliai iš eilutės taip pat būtų pateikiami. Skirtumas tas, kad įvesties eilutė yra ANSI, o ilgis yra baitais.
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"