Funkcija "Mid"

Svarbu :  Šis straipsnis išverstas naudojant mašininį vertimą, žr. atsakomybės atsisakymą. Su šio straipsnio versija anglų kalba galite susipažinti čia .

Grąžina į Variant (eilutę) su nurodytą skaičių simbolių iš eilutės.

Sintaksė

Mid ( eilutė, pradėti [ilgis ] )

Mid funkcijos sintaksė turi šiuos argumentus:

Argumentas

Aprašas

eilutė

Būtina. eilutės išraiška , iš kurios pateikiami simboliai. Jei eilutėje yra neapibrėžta reikšmė, neapibrėžta grąžinamas.

Pradžia

Būtina. Ilgai. Eilutė , kuria prasideda dalis, kad patektumėte pobūdžio vietą. Jei pradėti yra didesnis nei eilutėjeesančių simbolių skaičių, Mid grąžina nulinio ilgio eilutė ("").

ilgis

Pasirinktinai. Variantas (Ilgas). Pateiktinų simbolių skaičius. Jei praleista, arba jei yra mažiau nei (įskaitant simbolį, nuo pradėti) teksto ilgis simboliais, pateikiami visi simbolių nuo pradžios iki eilutės pabaigos.


Pastabos

Norėdami nustatyti simbolių skaičių eilutėje, naudokite funkciją Len.

Pastaba : Naudokite funkciją Mid baito duomenims eilutėje, kaip dvibaičių simbolių rinkinio kalbas. Vietoj to, nurodantis, kiek simbolių, argumentai nurodyti baitų skaičių. Pavyzdžio kodas, naudojamas MidB, ieškokite antras pavyzdys pavyzdys temoje.

Pavyzdys

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ų.

Pirmoji pavyzdyje funkciją Mid grąžina nurodytą simbolių skaičių eilutėje.

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".

Antras pavyzdys naudoti MidB ir vartotojo apibrėžtos funkcijos (MidMbcs), taip pat grąžinti simbolius iš eilutės. Skirtumas čia, kad įvesties eilutė yra ANSI ir 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"

Pastaba : Mašininio vertimo atsakomybės atsisakymas: Šis straipsnis išverstas naudojant kompiuterinę sistemą be žmogaus įsikišimo. „Microsoft“ pateikia šiuos mašininius vertimus norėdama padėti anglų kalbos nesuprantantiems vartotojams perskaityti turinį apie „Microsoft“ produktus, paslaugas ir technologijas. Šis straipsnis išverstas mašininio vertimo būdu, todėl jame gali būti žodyno, sintaksės ar gramatikos klaidų.

Tobulinkite savo įgūdžius
Ieškoti mokymo
Pirmiausia gaukite naujų funkcijų
Prisijunkite prie „Office Insider“ dalyvių

Ar ši informacija buvo naudinga?

Dėkojame už jūsų atsiliepimus!

Dėkojame už jūsų atsiliepimą! Panašu, kad gali būti naudinga jus sujungti su vienu iš mūsų „Office“ palaikymo agentų.

×