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"
另请参阅
支持和反馈
有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。