Funkcija "Mid"

Pastaba:  Norėtume jums kuo greičiau pateikti naujausią žinyno turinį jūsų kalba. Šis puslapis išverstas automatiškai, todėl gali būti gramatikos klaidų ar netikslumų. Mūsų tikslas – padaryti, kad šis turinys būtų jums naudingas. Gal galite šio puslapio apačioje mums pranešti, ar informacija buvo naudinga? Čia yra straipsnis anglų kalba , kuriuo galite pasinaudoti kaip patogia nuoroda.

Pateikia variantą (eilutę), kuriame yra nurodytas simbolių skaičius 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 simbolis 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ų.

Pirmasis pavyzdys naudoja funkciją 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".

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"
Tobulinkite savo „Office“ į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ų.

×