Pateikia variantą (eilutę), kuriame yra nurodytas simbolių skaičius iš eilutės.
Sintaksė
Mid( eilutė, pradžia [, ilgis ] )
Funkcijos Mid sintaksė turi tokius argumentus:
|
Argumentas |
Aprašas |
|
eilutė |
Būtina. eilutės išraiška, iš kurių grąžinami simboliai. Jei eilutėje yra Null, pateikiama Null . |
|
pradžia |
Būtinas. Ilgas. Simbolio padėtis eilutėje , kurioje prasideda paimtinas tekstas. Jei pradžios simbolis yra didesnis už simbolių skaičių eilutėje, Mid pateikia nulinio ilgio eilutę (""). |
|
ilgis |
Pasirinktinis. Variant (ilgas). Pateiktinų simbolių skaičius. Jei nenurodyta arba jei tekste yra mažiau simbolių nei jų ilgis (įskaitant simbolį pradžioje), grąžinami visi simboliai nuo pradžios vietos iki eilutės pabaigos. |
Pastabos
Norėdami nustatyti simbolių skaičių eilutėje, naudokite funkciją Len.
Pastaba: Funkciją MidB naudokite su baitų duomenimis, esančiais eilutėje, kaip dvibaičių simbolių rinkinio kalbomis. Užuot nurodę simbolių skaičių, argumentai nurodo baitų skaičių. Pavyzdžio kodą, kuris naudoja "MidB", žr. antrame pavyzdyje temoje.
Užklausų pavyzdžiai
|
Reiškinys |
Rezultatai |
|
SELECT ProductID, Mid(ProductID,5) AS Expr1 FROM ProductSales; |
Grąžina "ProductID" ir dalį ProductID pradedant nuo 5 simbolio pozicijos ir pateikia rezultatus stulpelyje Reiškinys1. |
|
SELECT ProductID, Mid(ProductID,5,4) AS testMid FROM ProductSales; |
Grąžina "ProductID" ir dalį ProductID pradedant nuo 5 simbolio pozicijos, kurioje yra 4 simboliai, ir pateikia rezultatus stulpelio testMid. |
VBA pavyzdžiai
Pastaba: Pateiktuose 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ų.
Pirmajame pavyzdyje naudojama funkcija Mid , kad būtų pateiktas nurodytas simbolių skaičius 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 taip pat būtų pateikti simboliai iš eilutės. Skirtumas čia tas, kad įvesties eilutė yra ANSI, o ilgis 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"
