Връща стойност от тип Variant (String), съдържаща указан брой знаци от низ.
Синтаксис
Mid(string, start [, length] )
Синтаксисът на функцията Mid има следните аргументи:
| Аргумент | Описание |
|---|---|
| низ | Задължително. израз във формата на низ, от който се връщат знаци. Ако string съдържа Null, се връща Null . |
| "Старт" | Задължително. Дълго. Позиция на знака в низа, откъдето започва частта, която трябва да се вземе. Ако начало е по-голямо от броя на знаците в низ, Mid връща низ с нулева дължина (""). |
| дължина | Незадължително. Variant (Long). Брой знаци за връщане. Ако се пропусне или ако в текста има по-малко знаци от дължина (включително знака в началото), всички знаци от началната позиция до края на низа се връщат. |
Забележки
За да определите броя на знаците в низа, използвайте функцията Len .
Забележка
Използвайте функцията MidB за байтове данни, съдържащи се в низ, както в езиците с набори от двубайтови знаци. Вместо да задават броя на знаците, аргументите указват брой байтове. За примерен код, който използва MidB, вижте втория пример в темата с примера.
Примери за заявки
| Израз | Резултати |
|---|---|
| SELECT ProductID, Mid(ProductID,5) AS Expr1 FROM ProductSales; | Връща "ИД на продукт" и частта от ИД на продукт, започвайки от позиция на знака 5, и показва резултатите в колоната "Израз1". |
| SELECT ProductID, Mid(ProductID,5,4) AS testMid FROM ProductSales; | Връща "ProductID" и частта от ProductID, започвайки от знакова позиция 5, съдържаща 4 знака, и показва резултатите в колоната testMid. |
Примери на VBA
Забележка
Примерите за VBA, които следват, илюстрират използването на тази функция във Visual Basic for Applications (VBA). За повече информация относно работата с VBA изберете Справочни материали за разработчици в падащия списък до Търсене и въведете един или няколко термина в полето за търсене.
Първият пример използва функцията Mid за връщане на зададен брой знаци от низ.
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".
Вторият пример използва MidB и дефинирана от потребителя функция (MidMbcs), за да се върнат също знаци от низ. Разликата тук е, че входният низ е ANSI, а дължината е в байтове.
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"