Funkcija Mid

Važno :  Ovaj je članak strojno preveden. Pogledajteizjavu o odricanju od odgovornosti. Verziju ovog članka na engleskom potražite ovdje.

Vraća varijante (niz) koji sadrži određeni broj znakova iz niza.

Sintaksa

Mid ( niza, start [Duljina ] )

Sintaksa funkcije Mid sadrži sljedeće argumente:

Argument

Opis

niz

Obavezan. nizovni izraz iz kojeg se vraćaju znakova. Ako niz sadrži vrijednost Null, vraća se vrijednost Null .

pokretanje

Obavezan. Dugi. Položaj znaka u nizu počinje dio da bi se otvorila. Ako je pokrenuti veći broj znakova u nizu, Mid vraća niz nulte duljine ("").

duljina

Neobavezno. Variant (Long). Broj znakova koji se vraćaju. Ako se ispusti, ili ako su manji od duljine znakove u tekstu (uključujući znak na Početak), vraćaju se svi znakovi s položaja pokretanje do kraja niza.


Napomene

Da biste odredili broj znakova u nizu, koristite funkciju Len.

Napomena : Koristite funkciju MidB s bajt podataka koji se nalaze u nizu, kao jezike sa skupom dvobajtnih dvobajtnim znakovima. Umjesto određivanje broja znakova, argumenti određuju broj bajtova. Na primjer, kod koji koristi MidB, pogledajte drugi primjer u temi primjeri.

Primjer

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.

Prvi primjer koristi funkcija Mid vraća 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".

Drugi primjer pomoću MidB i korisnički definirane funkcije (MidMbcs) i vraćanje znakova iz niza. Razlika ovdje je da je niz unosa ANSI i duljina u bajtova.

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 : Izjava o odricanju od odgovornosti za strojni prijevod: ovaj je članak preveo računalni sustav bez ljudske intervencije. Microsoft nudi strojne prijevode da bi korisnicima koji ne razumiju engleski omogućio čitanje sadržaja o Microsoftovim proizvodima, uslugama i tehnologijama. Budući da je preveden strojno, članak možda sadrži pogreške u vokabularu, sintaksi ili gramatici.

Proširite svoje vještine
Istražite osposobljavanje

Jesu li vam ove informacije bile korisne?

Hvala vam na povratnim informacijama!

Hvala vam na povratnim informacijama! Čini se da bi vam pomoglo kad bismo vas povezali s nekim od naših agenata podrške za Office.

×