Office

Функция Mid

Возвращает значение типа Variant (String), содержащее указанное число символов строки.

Синтаксис

Mid( строка, начало [, длина] )

Функция Mid имеет следующие аргументы:

Аргумент

Описание

строка

Обязательный. строковое выражение, из каких знаков будут возвращаться символы. Если строка содержит значение null, возвращается null .

начало

Обязательный аргумент. Типа. Позиции знака в строке , с которой начинается начало части. Если значение " Начало " больше, чем число знаков в строке, функция ПСТР возвращает пустую строку ("").

длина

Необязательный аргумент. Variant (Long). Число возвращаемых знаков. Если аргумент опущен или в тексте меньше, чем Длина (включая символ в начале), возвращаются все символы из начальной позиции до конца строки.


Замечания

Чтобы определить количество знаков в строке, используйте функцию Len.

Примечание: Используйте функцию MidB для работы с содержащимися в строке байтами, например в языках с двухбайтовыми кодировками (DBCS). Вместо количества знаков в аргументе этой функции указывается количество байтов. Образец кода с использованием функции MidB приведен во втором примере.

Примеры запросов

Выражение

Результаты:

ВЫБЕРИТЕ ProductID, ПСТР (ProductID; 5) как Выражение1 из Продуктсалес;

Возвращает значение ProductID и часть ProductID, начиная с позиции 1 знака 5, и отображает результаты в столбце Выражение1.

ВЫБЕРИТЕ ProductID, ПСТР (ProductID; 5; 4) как Тестмид из Продуктсалес;

Возвращает слово ProductID и часть ProductID, начиная с позиции 5, содержащей 4 символа, и отображает результаты в столбце Тестмид.

Примеры 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"

Примечание:  Эта страница переведена автоматически, поэтому ее текст может содержать неточности и грамматические ошибки. Для нас важно, чтобы эта статья была вам полезна. Была ли информация полезной? Для удобства также приводим ссылку на оригинал (на английском языке).

Совершенствование навыков работы с Office
Перейти к обучению
Первоочередный доступ к новым возможностям
Присоединиться к программе предварительной оценки Office

Были ли сведения полезными?

Спасибо за ваш отзыв!

Благодарим за отзыв! Возможно, будет полезно связать вас с одним из наших специалистов службы поддержки Office.

×