Question

VB程序当中，Mid(text1.Text, text1.SelStart + text1.SelLength + 1)什么意思？

是mid函数格式不是mid（string , n ,m ) 不是从字符串第n个开始向右取m个字符吗？谢谢

Answer 1

text1.SelStart text1文本框中选中的文本的起始位置，如果没有选中任何文本，那就是光标所在位置

text1.SelLength text1文本框中选中的文本的长度（字符数），如果没有选中任何文本，那就是0

Mid(text1.Text, text1.SelStart + text1.SelLength + 1) 也就是选中的文本之后的文本，例如"123456"总选中了34，那么出来的结果是"56",如果没有选中任何文字，而光标处在45之间，那么结果也是"56"

mid函数你的理解是对的

Answer 2

mid函数有两个，请注意：
若mid函数后面有=,则其为替换函数
如Mid(text1.Text, text1.SelStart + text1.SelLength + 1)=a
其意思为将text里光标后的字符改为a
例子：
Sub UseMid()
Dim s$
s = "12345"
Mid(s, 2, 1) = "d"
Debug.Print s '1d345 --替换1个字符,第2个字符被替换为d
s = "12345"
Mid(s, 2, 1) = "df"
Debug.Print s '1d345 --只替换1个字符,第2个字符被忽略
s = "12345"
Mid(s, 2, 2) = "df"
Debug.Print s '1df45 --替换2个字符
s = "12345"
Mid(s, 5, 1) = "df"
Debug.Print s '1234d --只替换1个字符,第2个字符被忽略
s = "12345"
Mid(s, 5, 2) = "df"
Debug.Print s '1234d --只替换1个字符,第2个字符超出s长度,被忽略
s = "12345"
Mid(s, 6, 1) = "d" '出错 --6超出s长度
Debug.Print s
End Sub

若=出现在mid的前面，则为截取函数
Mid(text1.Text, text1.SelStart + text1.SelLength + 1)，其意思为
截取text里的光标后面所有的内容

Answer 3

看下帮助文档，

Mid 语句mid（string , n ,m )中m是可以省略的。

//--------------------------------------------------
在一 Variant (String) 变量中以另一个字符串中的字符替换其中指定数量的字符。

语法

Mid(stringvar, start[, length]) = string

Mid 语句的语法具有下面几个部分：

部分 描述
stringvar 必要参数。被更改的字符串变量名。
start 必要参数；Variant (Long)。stringvar 中被替换的字符开头位置。
length 可选参数；Variant (Long)。被替换的字符数。如果省略，string将全部用上。
string 必要参数。字符串表达式，替换部分 stringvar 的字符串。

说明

被替换的字符数量总是小于或等于 stringvar 的字符数。

注意 MidB 语句作用于包含在字符串中的字节数据。在 MidB 语句中，start 指定 stringvar 中被替换的字节开头位置，而 length 为替换的字节数。

Answer 4

Mid(text1.Text, text1.SelStart + text1.SelLength + 1)可以理解为
mid(12345,2,3)的结果为234
在第2个字符开始取3个字符串。

Answer 5

参数 m 可被省略，省略则代表取从 n 到 string 结尾的字符串
另附：Text的Sel各属性含义：
SelStart：Text中的内容被选中的第一个字符的所在位置
SelLength：即选中的长度
SelText：即被选中的内容