Funkcija Mid

Svarīgi! :  Šis raksts ir mašīntulkots, skatiet atrunu. Lūdzu, skatiet šī raksta versiju angļu valodā šeit jūsu informācijai.

Atgriež Variant (virknes), kas satur norādīto rakstzīmju skaitu no virknes.

Sintakse

Mid ( virkne, sākums [garums ] )

Funkcijas Mid sintaksē ir šādi argumenti:

Arguments

Apraksts

virkne

Obligāts. virknes izteiksme no kuras tiek atgriezti rakstzīmes. Ja virkne ir Null, Null tiek atgriezta.

sākt

Obligāts. Garš. Rakstzīmju virkne , kurā daļa, kas veicami sākas pozīcijā. Ja Sākt ir lielāks nekā virknesrakstzīmju skaitam, Mid atgriež nulles garuma virkni ("").

garums

Pēc izvēles. Varianta (Garš). Atgriežamo rakstzīmju skaits. Ja izlaista vai ir mazāk nekā garums rakstzīmes (ieskaitot rakstzīmi, pie Sākt) teksts, tiek atgriezta visas rakstzīmes no sākuma pozīcijas virknes beigām.


Piebildes

Lai noteiktu rakstzīmju skaitu argumentā virkne, izmantojiet funkciju Len.

Piezīme : Izmantojiet funkciju MidB baita datiem, kas iekļauti virkni, kā iestatīt dubultbaitu rakstzīmju valodām. Tā vietā, norādot rakstzīmju skaitu, argumenti norādiet baitu skaitu. Parauga kodu, kas izmanto MidB, skatiet tēmā piemērs otrs piemērs.

Piemērs.

Piezīme : Turpmākajos piemēros redzama šīs funkcijas izmantošana Visual Basic for Applications (VBA) modulī. Lai iegūtu papildinformāciju par darbu ar VBA, nolaižamajā sarakstā atlasiet Uzziņas materiāli izstrādātājiem blakus meklēšanas lodziņam un ievadiet šajā lodziņā vienu vai vairākus vārdus.

Pirmajā piemērā funkcija Mid , lai atgrieztu norādīto rakstzīmju skaitu no virknes.

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".

Otrs piemērs izmantošana MidB un lietotāja definētie funkciju (MidMbcs) arī atgrieztu rakstzīmes no virknes. Atšķirība šeit ir tas, ka ievades virknei izmantots ANSI un garums ir norādīts baitos.

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"

Piezīme : Mašīntulkošanas atruna. Šo rakstu ir tulkojusi datorsistēma bez cilvēka iejaukšanās. Microsoft piedāvā šos mašīntulkojumus, lai palīdzētu angliski nerunājošajiem lietotājiem izmanot saturu par Microsoft produktiem, pakalpojumiem un tehnoloģijām. Tā kā šis raksts ir mašīntulkots, tajā var būt leksikas, sintakses un gramatikas kļūdas.

Paplašiniet savas prasmes
Iepazīties ar apmācību
Esiet pirmais, kas saņem jaunās iespējas
Pievienoties Office Insider programmai

Vai šī informācija bija noderīga?

Paldies par jūsu atsauksmēm!

Paldies par atsauksmēm! Šķiet, ka varētu būt noderīgi sazināties ar kādu no mūsu Office atbalsta aģentiem.

×