Vraća vrijednost Variant (Niz) koja sadrži određeni broj znakova iz niza.
Sintaksa
Mid(niz, početak [, duljina ] )
Sintaksa funkcije MID sadrži ove argumente:
| Argument | Opis |
|---|---|
| niz | Obavezno. nizovni izraz iz kojeg se vraćaju znakovi. Ako niz sadrži vrijednost Null, vraća se vrijednost Null . |
| Početak | Obavezno. Dugo. Položaj znaka u nizu od kojeg počinje dio koji je potrebno izdvojiti. Ako je argument početak veći od broja znakova u nizu, funkcija Mid vraća niz nulte vrijednosti (""). |
| duljina | Neobavezno. Variant (dugo). Broj znakova koji će biti vraćen. Ako izostavite argument ili ako u tekstu ima manje znakova od duljine (uključujući znak na početku), vraćaju se svi znakovi od početnog položaja do kraja niza. |
Napomene
Da biste odredili broj znakova u nizu, koristite funkciju Lena .
Napomena
Funkciju MidB koristite s bajtovnim podacima u nizu, kao u jezicima s dvobajtnim skupom znakova. Umjesto određivanja broja znakova, argumenti određuju broj bajtova. Ogledni kod koji koristi MidB potražite u drugom primjeru u oglednoj temi.
Primjeri upita
| Izraz | Rezultati |
|---|---|
| SELECT IDProizvoda, Mid(IDProizvoda,5) AS Izraz1 FROM ProdajaProizvoda; | Vraća "IDProizvoda" i dio IDProizvoda počevši od položaja znaka 5 te prikazuje rezultate u stupcu Izraz1. |
| SELECT IDproizvoda, Mid(IDProizvoda,5,4) AS testMid FROM ProdajaProizvoda; | Vraća "IDProizvoda" i dio IDProizvoda počevši od položaja znaka 5 koji sadrži četiri znaka te prikazuje rezultate u stupcu testMid. |
Primjeri VBA kodova
Napomena
Primjeri VBA modula koji slijede prikazuju korištenje te funkcije u modulu jezika Visual Basic for Applications (VBA). Da biste pronašli dodatne informacije o radu s VBA-om, na padajućem popisu uz stavku Traži odaberite stavku Referenca za razvojne inženjere pa unesite jedan ili više izraza u okvir pretraživanja.
U prvom se primjeru koristi funkcija Mid za vraćanje navedenog broja znakova iz niza.
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".
U drugom se primjeru koristi MidB i korisnički definirana funkcija (MidMbcs) za vraćanje znakova iz niza. Razlika je u tome što je ulazni niz ANSI, a duljina 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"