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 märgid. Kui string sisaldab tühiväärtust, tagastatakse tühiväärtus . |
| start | Nõutav. Pikk täisarv. Märgi paigutus stringis , millest algab osa, millest algab. Kui argument start on suurem kui stringi mä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 kui pikkusemärke (sh märk alguses), tagastatakse kõik märgid alates asukohast start kuni stringi lõpuni. |
Kommentaarid
Stringis märkide arvu määramiseks 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 VBA näited näitavad selle funktsiooni kasutamist moodulis Visual Basic for Applications (VBA). 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"