Funkcija Mid

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 kojih se znakova vraćaju. Ako Niska sadrži vrednost NULL, vraća se Null .

početak

Obavezno. Dugaиko. Pozicija znakova u okviru Niska na kojoj je deo koji treba da se uzme počinje. Ako je početni ekran veći od broja znakova u niski, Mid daje nisku nulte dužine ("").

length

Opcionalno. Varijanta (Long). Broj znakova za povraćaj. Ako je izostavljen ili ako ima manje od dužine znakova u tekstu (uključujući znak na početnomsajtu), vraćaju se svi znakovi iz pozicije početka na kraj niske.


Primedbe

Da biste utvrdili broj znakova u argumentu niska, upotrebite funkciju Len.

Napomena: Koristite funkciju MIDB sa podacima o bajtovima koji se nalaze u niskom, kao što su jezici za podešavanje dvobajtnih znakova. Umesto da precizira broj znakova, argumenti navode brojeve bajtova. Za probni kôd koji koristi MIDB, pogledajte drugi primer u temi primera.

Primeri upita

Izraz

Rezultati

Izaberite stavku ID-ovi, Mid (ID proizvoda, 5) kao Izraz1 iz proizvoda proizvodi.

Daje "ID proizvoda" i deo ProductID počevši od pozicije znaka 5 i prikazuje rezultate u koloni Izraz1.

Izaberite stavke ID-ovi, Mid (ID-ova, 5, 4) kao testMid iz prodaje proizvode;

Daje "ID proizvoda" i deo ProductID počevši od pozicije znaka 5, koji sadrži 4 znaka i prikazuje rezultate u testMid koloni.

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 da bi se dao navedeni broj 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 koristite stavke MIDB i korisnički definisana funkcija (midmb) da biste takođe vratili znakove iz niske. Razlika ovde je da je ulazna niska ANSI i da je 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"

Takođe pogledajte

Funkcije za rad sa niskama i kako ih koristiti

Potrebna vam je dodatna pomoć?

Razvijte Office veštine
Istražite obuku
Prvi nabavite nove funkcije
Pridružite se Office Insider korisnicima

Da li su vam ove informacije koristile?

×