Funktsioon Mid

Tagastab andmetüübi Variant (String), mis sisaldab teatud arvu stringis olevaid tärke.

Süntaks

Mid( string, start [, length ] )

Funktsiooni Mid süntaksil on järgmised argumendid.

Argument

Kirjeldus

string

Nõutav. stringavaldis, kust märgid tagastatakse. Kui string sisaldab väärtust Null, tagastatakse Null.

start

Nõutav. Pikk täisarv. Stringis olev tärk, mille juurest algab toodav osa. Kui argumendi start väärtus on suurem kui stringi tärkide arv, tagastab funktsioon Mid nullpikkusega stringi ("").

length

Valikuline. Variant (Pikk täisarv). Tagastatavate tärkide arv. Kui see puudub või kui tekstis on vähem tärke, kui argumendis length (sh argumendi start tärk), tagastatakse kõik tärgid alates asukohast start kuni stringi lõpuni.


Kommentaarid

Märkide arvu määramiseks stringis, kasutage funktsiooni Len.

Märkus.: Stringis sisalduvate baitandmete jaoks (nt kahebaidist märgistikku kasutavate keelte korral) saate kasutada funktsiooni MidB. Tagastatavate tärkide arvu määramise asemel määravad argumendid baitide arvu. Funktsiooni MidB kasutav näidiskood on toodud teises näites.

Päringu näited

Avaldis

Tulemid

Valige väärtus tooteid, Mid (tooteid; 5) Expr1 alates ProductSales;

Tagastab väärtuse "tooteid" ja selle osa, alustades märgi positsioonist 5 ja kuvab tulemid veeru Expr1.

Valige väärtus tooteid, Mid (tooteid; 5; 4) testMid alates ProductSales;

Tagastab väärtuse "tooteid" ja osa tootest, alustades märgi positsioonist 5, mis sisaldab 4 märki ja kuvab tulemid veeru testMid.

VBA näited

Märkus.: Järgmised näited kujutavad selle funktsiooni kasutamist rakenduse Visual Basic for Applications (VBA) moodulis. Lisateabe saamiseks VBA-ga töötamise kohta valige välja Otsing kõrval kuvatavast ripploendist väärtus Tootearendusmaterjal ja sisestage otsinguväljale üks või mitu sõna.

Selles näites on kasutatud funktsiooni Mid, et tagastada stringist teatud arv tärke.

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

Teises näites on kasutatud funktsiooni MidB ja kasutaja määratletud funktsiooni (MidMbcs), et samuti stringist teatud arv tärke tagastada. Erinevus seisneb selles, et sisendstringis kasutatakse ANSI-märgistikku ja stringi pikkus on määratud baitides.

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"

Märkus.:  See leht on tõlgitud automaatselt ning sellel võib leiduda grammatikavigu ja ebatäpsusi. Tahame, et sellest sisust oleks teile abi. Andke meile teada, kui see teave oli teile abiks. Soovi korral saate ingliskeelset artiklit lugeda siit.​

Vt ka

Stringifunktsioonid ja nende kasutamine

Täiendage Office'i kasutamise oskusi
Tutvuge koolitusmaterjalidega
Kasutage uusi funktsioone enne teisi
Liituge Office Insideri programmiga

Kas sellest teabest oli abi?

Täname tagasiside eest!

Täname tagasiside eest! Tundub, et võiksime teid kokku viia ühega meie Office'i tugiagentidest, kes aitab teil probleemi lahendada.

×