2025-06-27 04:23:34
这个使用mid函数很方便,无需编代码
例如:
Mid("12345A011111111,",6,10) 返回 A011111111
Mid("12345A011111111,",6) 返回 A011111111,
Mid("12345A011111111",6,10) 返回 A011111111
Mid("12345A011111111",6) 返回 A011111111
被截取的字符串也可以是变量,例如
Dim a As String
a="12345A011111111"
MsgBox Mid(a,6) '截取第六位开始剩余的字符串
'会弹出消息框,显示 A011111111
下图是Mid()函数的联机帮助说明,供参考
2025-06-27 04:47:10
您好!!根据您的问题,请看如下代码:
Dim str, a() As String
str = "12345A011111111"
a = Split(str, "5")
MsgBox a(1)
这段代码的关键部分是使用Split函数,该函数用于分割字符串,提取出指定字符串中包含规定字符串后面或者前面的内容。
如果上面的代码的最后一句改成 MsgBox a(0) 的话则消息框的内容就是“1234”。
如果您对我的回答满意的话请采纳!
不好意思 不能用拆分的方式 因为前面和后面的数都是变量