Mid 函数

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

语法

Mid ( 字符串,开始 [、 长度] )

Mid函数语法具有以下参数︰

参数

说明

字符串

必填。返回字符字符串表达式 。如果字符串包含 Null,则返回Null

入门

必填。长。要执行的部分开始处的字符串中的字符位置。如果启动大于字符串中的字符数, 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 提供机器翻译是为了帮助非英语国家/地区用户方便阅读有关 Microsoft 产品、服务和技术的内容。由于机器翻译的原因,本文可能包含词汇、语法或文法方面的错误。

  • 请在 此处 中查找本文的英文版本以便参考。你和 Microsoft 社区的其他成员可以使用 Community Translation Framework (CTF) 来改进本文。只需将鼠标悬停在文章中的句子上,然后在 CTF 小组件中单击“IMPROVE TRANSLATION”即可。 单击此处了解有关 CTF 的详细信息。 使用 CTF 即表示你同意服务条款

扩展你的技能
了解培训
抢先获得新功能
加入 Office 预览体验计划

此信息是否有帮助?

谢谢您的反馈!

谢谢你的反馈! 可能需要转接到 Office 支持专员。

×