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"
