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 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 |
|
SELECT ProductID, Mid(ProductID,5) AS Expr1 FROM ProductSales; |
Tagastab väärtuse "ProductID" ja osa ProductID alates märgipositsioonist 5 ja kuvab tulemid veerus Avaldis1. |
|
SELECT ProductID, Mid(ProductID;5;4) AS testMid FROM ProductSales; |
Tagastab väärtuse "ProductID" ja toote ID osa alates märgipositsioonist 5, mis sisaldab nelja märki, ja kuvab tulemid veerus 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"
