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 arguments. Virknes izteiksme, no kuras tiek atgrieztas rakstzīmes. Ja virkne satur vērtību Null, tiek atgriezta vērtība Null . |
| Sākt | Obligāts arguments. Garš. Rakstzīmes pozīcija virknē , no kuras sākas izmantojamā daļa. Ja sākums ir lielāks par rakstzīmju skaitu virknē, Mid atgriež nulles garuma virkni (""). |
| garums | Neobligāts arguments. Variants (Garš). Atgriežamo rakstzīmju skaits. Ja tekstā izlaistas vai ir mazāk rakstzīmju nekā garums (ietverot rakstzīmi sākumā), tiek atgrieztas visas rakstzīmes no sākuma pozīcijas līdz virknes beigām. |
Piezīmes
Lai noteiktu rakstzīmju skaitu virknē, izmantojiet funkciju Len .
Piezīme
Izmantojiet funkciju MidB baitu datiem, kas iekļauti virknē, tāpat kā dubultbaitu rakstzīmju kopu valodās. Argumenti norāda nevis rakstzīmju skaitu, bet baitu skaitu. Parauga kodu, kas izmanto MidB, skatiet piemēra tēmas otrajā piemērā.
Vaicājumu piemēri
| Izteiksme | Rezultāti |
|---|---|
| SELECT ProductID, Mid(ProductID,5) AS Expr1 FROM ProductSales; | Atgriež "ProduktaID" un ProduktaID daļu, sākot ar 5. rakstzīmes pozīciju, un parāda rezultātus kolonnā Expr1. |
| SELECT ProductID, Mid(ProductID,5,4) AS testMid FROM ProductSales; | Atgriež "Produkta_ID" un ProduktaID daļu, sākot ar 5. rakstzīmes pozīciju, kas satur 4 rakstzīmes, un parāda rezultātus kolonnā testMid. |
VBA piemēri
Piezīme
Tālāk esošajos VBA 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ā tiek izmantota funkcija Mid , lai no virknes atgrieztu norādīto rakstzīmju skaitu.
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ā tiek izmantota MidB un lietotāja definēta funkcija (MidMbcs), lai atgrieztu rakstzīmes arī no virknes. Atšķirība ir tāda, ka ievades virkne ir ANSI, bet 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"