Daje tip podataka Varijanta (Niska) koji sadrži navedeni broj znakova iz niske.
Sintaksa
Mid(niska, početak [, dužina ] )
Sintaksa funkcije Mid ima sledeće argumente:
| Argument | Opis |
|---|---|
| niska | Obavezno. izraz niske iz kojeg se dobijaju znakovi. Ako niska sadrži vrednost Null, vraća se vrednost Null . |
| Meni "Start" | Obavezno. Dugo. Položaj znaka u niski od kog počinje deo koji se uzima. Ako je argument start veći od broja znakova u niski, funkcija Mid daje nisku nulte dužine (""). |
| length | Opcionalno. Varijanta (Long). Broj znakova koji se dobijaju. Ako se izostavi ili ako ima manje znakova od dužine u tekstu (uključujući znak na početku), daju se svi znaci od početne pozicije do kraja niske. |
Napomene
Da biste utvrdili broj znakova u nisci, koristite funkciju Len .
Napomena
Koristite funkciju MidB sa podacima u bajtovima sadržanim u nisci, kao u jezicima sa skupovima dvobajtnih znakova. Umesto navođenja broja znakova, argumenti navode broj bajtova. Uzorak koda koji koristi MidB potražite u drugom primeru u temi primera.
Primeri upita
| Izraz | Rezultati |
|---|---|
| SELECT ProductID, Mid(ProductID,5) AS Expr1 FROM ProductSales; | Daje "ID proizvoda" i deo polja "ID proizvoda" počevši od pozicije znaka 5 i prikazuje rezultate u koloni Expr1. |
| SELECT ProductID, Mid(ProductID,5,4) AS testMid FROM ProductSales; | Daje "ID proizvoda" i deo polja "ID proizvoda" počevši od pozicije znaka 5 koji sadrži 4 znaka i prikazuje rezultate u koloni testMid. |
VBA primeri
Napomena
VBA primeri koji slede pokazuju upotrebu ove funkcije u Visual Basic for Applications (VBA) modulu. Za više informacija o radu sa VBA modulom izaberite stavku Referenca razvojnog programera sa padajuće liste pored stavke Pretraga i unesite termine u polje za pretragu.
Prvi primer koristi funkciju Mid kako bi vratio navedeni broj znakova iz niske.
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".
Drugi primer koristi MidB i korisnički definisanu funkciju (MidMbcs) za takođe vraćanje znakova iz niske. Razlika je u tome što je ulazna niska ANSI, a dužina je u bajtovima.
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"