Mid 函数

返回一个 Variant (String)，其中包含字符串中的指定数量的字符。

语法

Mid(string, start, [ length ])

Mid 函数语法包含以下命名参数：

Part	说明
string	必需。 从中返回字符的字符串表达式。 如果字符串包含 Null，则返回 Null。
start	必需，Long。 字符串中被视为开始部分的字符位置。 如果 start 大于字符串中的字符数，则 Mid 返回零长度字符串 ("")。
Length	可选；Variant (Long)。 要返回的字符的数目。 如果省略此部分或此部分中的数目少于文本中的 length 字符数（包括 start 处的字符），则将返回从 start 位置到字符串末尾的所有字符。

注解

若要确定字符串中字符的数量，请使用 Len 函数。

注意

与在双字节字符集语言中一样，将 MidB 函数用于字符串中包含的字节数据。 参数将指定字节数，而不是指定字符数。 有关使用 MidB 的示例代码，请参阅示例主题中的第二个示例。

示例

第一个示例使用 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"

另请参阅

• 函数 (Visual Basic for Applications)

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。