Atgriež Variant (String), kurā ir norādītais rakstzīmju skaits no virknes.
Sintakse
Mid( virkne, sākums [, garums ] )
Funkcijas Mid sintaksē ir šādi argumenti:
|
Arguments |
Apraksts |
|
virkne |
Obligāts. virknes izteiksme, no kurām tiek atgrieztas rakstzīmes. Ja virkne ietver vērtību Null, tiek atgriezta vērtība Null. |
|
sākums |
Obligāts arguments. Garš. Rakstzīmes pozīcija virknē , no kuras sākas daļa, kuru vēlaties izmantot. Ja vērtība sākums ir lielāka 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 par garuma rakstzīmēm (ietverot rakstzīmi 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 baitu datiem, kas iekļauti virknē kā dubultbaita rakstzīmju kopu valodās. Tā vietā, lai norādītu rakstzīmju skaitu, argumenti norāda baitu skaitu. Parauga kodu, kas izmanto MidB, skatiet otro piemēru tēmas paraugā.
Vaicājumu piemēri
|
Izteiksme |
Rezultāti |
|
SELECT ProductID, Mid(ProductID,5) AS Expr1 FROM ProductSales; |
Atgriež "Produkta_ID" un ProductID daļu, sākot no 5. rakstzīmes, un parāda rezultātus kolonnā Expr1. |
|
SELECT ProductID, Mid(ProductID,5,4) AS testMid FROM ProductSales; |
Atgriež "Produkta_ID" un ProductID daļu, sākot no 5. rakstzīmes, kas satur 4 rakstzīmes, un parāda rezultātus kolonnas 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 tiek 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ā tiek izmantota funkcija MidB un lietotāja definēta funkcija (MidMbcs), lai arī atgrieztu 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"
