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