Функция Mid

Важно : Тази статия е преведена машинно – вижте отказа от отговорност. Английската версия на тази статия за справка можете да намерите тук .

Връща Variant (низ) съдържащ зададен брой знаци от низ.

Синтаксис

Mid ( низ, започнете [дължина ] )

Синтаксисът на функцията Mid има следните аргументи:

Аргумент

Описание

string

Изисква се. низов израз откъдето се връщат знаци. Ако низ съдържа Null, се връща Null .

стартиране

Изисква се. Дълъг. Характер позиция в низа , в която част, за да се предприемат започва. Ако започнете да е по-голямо от броя на знаците в низ, Mid Връща низ с нулева дължина ("").

length

По желание. Вариант (Дълъг). Брой на знаци за връщане. Ако е пропуснато или ако има по-малко от дължината знаци в текст (включително знака в стартиране), се връщат всички знаци от започнете позиция до края на низа.


Забележки

За да определите броя на знаците в низа, използвайте функцията 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 предлага тези машинни преводи, за да помогне на потребителите, които не говорят английски, да се възползват от съдържанието за продукти, услуги и технологии на Microsoft. Тъй като статията е преведена машинно, е възможно да съдържа грешки в речника, синтаксиса и граматиката.

Разширете уменията си
Преглед на обучението
Получавайте първи новите функции
Присъединете се към участниците в Office Insider

Беше ли полезна тази информация?

Благодарим ви за обратната връзка!

Благодарим ви за вашата обратна връзка. Изглежда, че ще бъде полезно да ви свържем с един от нашите агенти по поддръжката на Office.

×