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"
