Funkcija MID

Atgriež Variant (String), kurā ir norādītais rakstzīmju skaits no virknes.

Sintakse

Mid ( virkne, Sākums [, garums ] )

Funkcijas mid sintaksei ir šādi argumenti.

Arguments

Apraksts

virkne

Obligāts. virknes izteiksme, no kurām tiek atgrieztas rakstzīmes. Ja virknē ir Null, tiek atgriezta vērtība Null .

sākums

Obligāts. Ilgi. Rakstzīmju vieta virknē , kur sākas attiecīgā daļa. Ja sākuma vērtība ir lielāka par rakstzīmju skaitu virknē, funkcija MID atgriež nulles garuma virkni ("").

garums

Nav obligāts. Variants (Garš). Atgriežamo rakstzīmju skaits. Ja teksts tiek izlaists vai ir mazāks par garuma rakstzīmēm (ieskaitot rakstzīmi, kas atrodas sākumā), tiek atgrieztas visas rakstzīmes no sākuma pozīcijas līdz virknes beigām.


Piebildes

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

Piezīme.: Izmantojiet funkciju MIDB ar baitu datiem virknē, piemēram, dubultbaita rakstzīmju kopu valodām. Tā vietā, lai norādītu rakstzīmju skaitu, argumenti norāda baitu skaitu. Parauga kodam, kas izmanto funkciju MIDB, skatiet Otrajā piemērā tēmā.

Vaicājumu piemēri

Izteiksme

Rezultāti

ATLASIET ProductID, Mid (ProduktaID, 5) kā Izteiksme1 no ProductSales;

Atgriež "ProductID" un produkta ProductID daļu no 5. pozīcijas un parāda rezultātus kolonnā Izteiksme1.

ATLASIET ProductID, Mid (ProduktaID, 5, 4) kā testMid no ProductSales.

Atgriež "ProductID" un produkta ProductID daļu no 5. pozīcijas, kas satur 4 rakstzīmes, un rezultātus parāda kolonnā testMid.

VBA piemēri

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 ir izmantota, 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".

Otrajā piemērā izmantojiet MIDB un lietotāja definētu funkciju (MidMbcs), lai atgrieztu arī rakstzīmes no virknes. Atšķirība ir tāda, ka ievades virkne ir ANSI un garums ir 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.:  Šī lapa ir tulkota automatizēti, un tajā var būt gramatiskas kļūdas un neprecizitātes. Mūsu nolūks ir šo saturu padarīt jums noderīgu. Vai jūs varat mūs informēt, vai informācija bija noderīga? Šeit ir raksts angļu valodā jūsu atsaucei.​

Paplašiniet savas Office 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 jums varētu būt noderīgi sazināties ar kādu no mūsu Office atbalsta speciālistiem.

×