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 daju znakovi. Ako je argument niskaBez vrednosti, dobija se rezultat Bez vrednosti. |
početak |
Obavezno. Dugo. Položaj znaka u nisci od koje počinje deo koji treba zauzeti. Ako je argument početak veći od broja znakova u niski ,Mid daje nisku nulte dužine (""). |
length |
Opcionalno. Varijanta (Long). Broj znakova koje treba vratiti. Ako je izostavljen ili ako u tekstu ima manje od dužine znakova (uključujući znak na početku), daju se svi znakovi od početne pozicije do kraja niske. |
Primedbe
Da biste utvrdili broj znakova u argumentu niska, upotrebite funkciju Len.
Napomena: Koristite funkciju MidB sa podacima u bajtovima sadržanim u nisci, kao na jezicima skupa dvobajtnih znakova. Umesto da navedete broj znakova, argumenti navode brojeve bajova. Za uzorak koda koji koristi MidB pogledajte drugi primer u temi primera.
Primeri upita
Izraz |
Rezultati |
SELECT ProductID, Mid(ProductID,5) AS Izraz1 FROM ProductSales; |
Daje "ID proizvoda" i deo ID-a proizvoda počevši od pozicije znaka 5 i prikazuje rezultate u koloni Izraz1. |
SELECT ProductID, Mid(ProductID,5,4) AS testMid FROM ProductSales; |
Daje "ID proizvoda" i deo ID-a proizvoda počevši od pozicije znaka 5, koja sadrži 4 znaka i prikazuje rezultate u koloni testMid. |
VBA primeri
Napomena: 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 za dobijanje navedenog broja 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) da biste takođe vratili znakove iz niske. Razlika ovde je u tome što je ulazna niska ANSI, a dužina 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"