Функція Mid

Увага! : Цю статтю перекладено за допомогою служби машинного перекладу; див. застереження. Версію цієї статті англійською мовою див. тут для отримання довідки.

Повертає значення типу Variant (String), яке містить указану кількість символів у рядку.

Синтаксис

Mid ( рядок, початок [довжина ] )

Синтаксис функції Mid має такі аргументи:

Аргумент

Опис

рядок

Обов'язковий аргумент. рядковий вираз з якої буде повернуто значення символів. Якщо рядок містить Null-значення, Null повертається.

start

Обов'язковий аргумент. Довгий. Характер положення в рядку починається частину, щоб перейти. Якщо запустити перевищує кількість символів у рядку, функція Mid повертає рядок нульової довжини ("").

довжина

Необов'язково. Варіант (Довгий). Кількість символів, щоб повернути. Якщо не вказано, або якщо є менше за довжину символів у тексті (включно з шуканий почати), буде повернуто всі символи з почати розташування до кінця рядка.


Примітки

Щоб визначити кількість символів в аргументі рядок, скористайтеся функцією Len.

Примітка : Функція MidB із байт дані, які містяться в рядку, як однобайтовий набір мов. Замість, яке Задає кількість символів, аргументи визначення кількості байтів. Приклади коду, який використовує MidBнаведено в другому прикладі на прикладі розділ.

Приклад

Примітка : У прикладах нижче показано використання цієї функції в модулі 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"

Примітка : Застереження про машинний переклад: Цю статтю перекладено комп’ютерною системою без втручання людини. Корпорація Майкрософт пропонує таку послугу, щоб іншомовні користувачі могли дізнаватися про продукти, служби й технології Microsoft. Оскільки статтю перекладено за допомогою служби машинного перекладу, вона може містити смислові, синтаксичні або граматичні помилки.

Отримуйте нові функції раніше за інших
Приєднайтеся до оцінювачів Office

Ця інформація корисна?

Дякуємо за ваш відгук!

Дякуємо за відгук! Схоже, вам може стати в нагоді допомога одного з наших спеціалістів служби підтримки Office, з яким ми вас можемо з’єднати.

×