Возвращает значение типа Variant (String), содержащее указанное число символов строки.
Синтаксис
Mid(строка; начало [; длина ] )
Функция Mid имеет следующие аргументы:
| Аргумент | Описание |
|---|---|
| строка | — обязательный аргумент. строковое выражение, из которого возвращаются символы. Если строка содержит значение NULL, возвращается значение NULL . |
| начало | — обязательный аргумент. Длинный. Позиция символа в строке , с которой начинается исполняемая часть. Если значение start превышает количество знаков в строке, функция Mid возвращает пустую строку (""). |
| длина | Необязательный аргумент. Variant (Long). Количество возвращаемых символов. Если они опущены или если в тексте меньше символов длины (включая знак в начале), возвращаются все знаки от начальной позиции до конца строки. |
Замечания
Чтобы задать количество знаков в строке, используйте функцию Len .
Примечание
Используйте функцию MidB для работы с содержащимися в строке байтами, например в языках с двухбайтовыми кодировками (DBCS). Вместо количества знаков в аргументе этой функции указывается количество байтов. Образец кода с использованием функции MidB приведен во втором примере.
Примеры запросов
| Выражение | Результаты |
|---|---|
| SELECT ProductID, Mid(ProductID,5) AS Expr1 FROM ProductSales; | Возвращает код товара и часть кода товара, начиная с позиции символа 5, и отображает результаты в столбце Выраж1. |
| SELECT ProductID, Mid(ProductID,5,4) AS testMid FROM ProductSales; | Возвращает код товара и часть кода товара, начиная с позиции 5, содержащую 4 символа, и отображает результаты в столбце testMid. |
Примеры VBA
Примечание
Приведенные ниже примеры VBA демонстрируют использование этой функции в модуле Visual Basic для приложений (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"