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ų yra pateikti simboliai. Jei eilutėje yra NULL, grąžinama neapibrėžta reikšmė NULL . |
|
pradžia |
Būtinas. Ilgai. Simbolio padėtis eilutėje , kurioje pradedama imtis. Jei Pradžia yra didesnė nei eilutėssimbolių skaičius, funkcija Mid pateikia nulinio ilgio eilutę (""). |
|
ilgis |
Pasirenkama. Variant (ilgas). Pateiktinų simbolių skaičius. Jei nenurodyta, ar tekste yra mažiau nei ilgio simbolių (įskaitant simbolį pradžios pradžioje), visi simboliai iš pradžios pozicijos į eilutės pabaigą grąžinami. |
Pastabos
Norėdami nustatyti simbolių skaičių eilutėje, naudokite funkciją Len.
Pastaba: Naudokite funkciją MIDB kartu su baitų duomenimis, esančiais eilutėje, kaip dvibaičių simbolių rinkinio kalbas. Užuot nurodę simbolių skaičių, argumentai nurodo baitų skaičių. Pavyzdžio kodą, kuris naudoja MIDB, žiūrėkite antrąjį pavyzdį pavyzdyje tema.
Užklausos pavyzdžiai
|
Reiškinys |
Rezultatai |
|
Pasirinkite ProductID, MID (ProductID, 5) kaip Reiškinys1 iš ProductSales; |
Pateikia "ProductID" ir ProductID dalį nuo simbolio vietos 5 ir rodo rezultatus stulpelyje Reiškinys1. |
|
Pasirinkite ProductID, MID (ProductID, 5, 4) kaip testMid iš ProductSales; |
Pateikia "ProductID" ir ProductID dalį, pradedant nuo simbolio padėties 5, kuriame yra 4 simboliai ir rodomi rezultatai stulpelyje 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ų grąžintas 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".
Antrasis pavyzdys naudoja MIDB ir vartotojo apibrėžiamą funkciją (midmbcs), kad taip pat grąžintų simbolius iš eilutės. Skirtumas čia yra 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"
