Funktsioon Mid

NB! :  See artikkel on masintõlgitud, vaadake lahtiütlust. Selle artikli ingliskeelse versiooni leiate aadressilt (viiteks).

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, millest tagastatakse kõige vasakpoolsemad märgid. 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.

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. : Masintõlke lahtiütlus. Selle artikli tõlkis arvutisüsteem ilma inimese sekkumiseta. Microsoft pakub selliseid masintõlkeid, et inglise keelt mittekõnelevad kasutajad saaksid vaadata sisu Microsofti toodete, teenuste ja tehnoloogiate kohta. Kuna artikkel on masintõlgitud, võib see sisaldada sõnavara-, süntaksi- või grammatikavigu.

Täiendage oma 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.

×