Vraća vrijednost Variant (Niz) koja sadrži određeni broj znakova iz niza.
Sintaksa
Mid( niz, start [, 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. |
pocetak |
Obavezno. Dugo. Položaj znaka u nizu na kojem počinje dio koji treba uzeti. Ako je početni zaslon veći od broja znakova u nizu, Mid vraća niz nulte duljine (""). |
duljina |
Neobavezno. Variant (dugo). Broj znakova koji će biti vraćen. Ako se izostavi ili ako u tekstu ima manje znakova od duljine (uključujući znak na početku), vraćaju se svi znakovi od položaja početka do kraja niza. |
Napomene
Da biste odredili broj znakova u nizu, koristite funkciju Len.
Napomena: Koristite funkciju MidB s bajtnim podacima koji se nalaze u nizu, kao na jezicima skupa dvobajtnih znakova. Umjesto određivanja broja znakova, argumenti određuju brojeve bajtova. Primjer koda koji koristi MidB potražite u drugom primjeru u oglednoj temi.
Primjeri upita
Izraz |
Rezultati |
SELECT IDproizvoda, Mid(IDproizvoda,5) AS Izraz1 IZProdajeproizvoda; |
Vraća "IDproizvoda" i dio IDProizvoda počevši od položaja znaka 5 i prikazuje rezultate u stupcu Izraz1. |
SELECT IDproizvoda, mid(IDproizvoda;5;4) KAO testMid IZProdajeproizvoda; |
Vraća "IDproizvoda" i dio IDProizvoda počevši od položaja znaka 5, koji sadrži 4 znaka i prikazuje rezultate u testu stupcaMid. |
Primjeri VBA-a
Napomena: Primjeri 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 da bi se vratio određeni broj 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 znakovi iz niza vraćaju i pomoću funkcije MidB i korisnički definirane funkcije (MidMbcs). Razlika je u tome što je ulazni niz ANSI, a duljina 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"