Funkcija „Mid“

Važno : Ovaj članak je mašinski preveden, pogledajte odricanje odgovornosti. Pogledajte verziju ovog članka na engleskom jeziku ovde za referencu.

Daje na varijante (niska) koja sadrži određeni broj znakova iz niske.

Sintaksa

Mid ( niska, početak [Dužina ] )

Sintaksa funkcija Mid ima sledeće argumente:

Argument

Opis

niska

Obavezno. izraz niske iz koje se vraćaju znakova. Niska sadrži "null", "null" se vraća ako.

Počnite

Obavezno. Dugačke. Položaj znaka u nisci na kojoj počinje segment da biste otišli. Ako počnete je veći od broja znakova u niski, Mid daje niske nulte dužine ("").

dužina

Opcionalno. Varijante (Vremena). Broj znakova koji se vraćaju. Ako se izostavi, ili ako ima manje od dužine znakove u tekstu (uključujući znak na Početak), sve znakove iz Pokretanje pozicije do kraja niske se vraćaju.


Primedbe

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

Napomena : Koristite funkciju MidB sa bajt podataka koji se nalaze u niski, kao u dvobajtnih znakova postavljanje jezika. Umesto navođenja broja znakova, argumenti Navedite broj bajtova. Probni kôd koji koristi MidBpotražite u članku drugi primer u temi.

Primer

Napomena : Primeri koji slede pokazuju upotrebu ove funkcije u Visual Basic for Applications (VBA) modulu. Ako vam je potrebno više informacija o radu sa VBA modulom, izaberite stavku Referenca razvojnog programera sa padajuće liste pored stavke Pretraga i unesite jedan ili više termina u polje za pretragu.

Prvi primer koristi funkciju Mid da biste se vratili na određeni 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 MidB i korisnički definisana funkcija (MidMbcs) da biste i vraćanje znakova iz niske. Razlika je u da je ulazna niska ANSI i dužina 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"

Napomena : Odricanje odgovornosti za mašinski prevod: Ovaj članak je preveo računarski sistem bez ljudske intervencije. Microsoft nudi ove mašinske prevode da bi pomogao korisnicima koji ne govore engleski da uživaju u sadržaju o Microsoft proizvodima, uslugama i tehnologijama. Budući da je članak mašinski preveden, može da sadrži greške u rečniku, sintaksi ili gramatici.

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

Da li su vam ove informacije koristile?

Hvala vam na povratnim informacijama!

Hvala za povratne informacije! Zvuči da će biti od pomoći ako vas povežemo sa našim agentima Office podrške.

×