Question

vb 如何用MID函数处理如下问题

如何用MID函数处理得到只剩下从“你”到“吗”的这段数据。注意，我要的是任何数据都通用的，如果Text中没有“你”和“吗”则跳出提示

Answer 1

MID函数的格式：MID(S,n,k)
功能：返回字符串S中，从第n位字符开始的连续k个字符．
例如：
Dim s as string
s = "1234ABCD甲乙丙丁"
那么 MID(S,6,4)将返回字符串"BCD甲"
理解了它的格式与作用，你的问题应该自己可以回答了吧？
要注意，参数S,n,k都可以使用表达式。

补充说明一个定位函数：Instr()
格式：Instr(n,s1,s2)
功能：返回在字符串s1里，从它左起第n个字符开始寻找匹配字符串s2的位置。
例如：
Instr(1,"中国人民","人民")，返回3
Instr(3,"中国人民","人民")，返回3
Instr("中国人民","人民")，返回3，n = 1的时候，可以省略。
Instr(1,"中国人民","南京")，返回0
解决你的问题，要使用到这个函数！

追问

具体点，代码！

Answer 2

Dim m As Integer, n As Integer
m = InStr(Text1.Text, "你")
n = InStr(Text1.Text, "吗")
If m > 0 And n > m Then
Text1.Text = Mid(Text1.Text, m, n - m + 1)
Else
MsgBox "错误"
End If

追问

如果我不要“吗”这个字呢

追答

那要如何提取呢？是提取“你”后面的全部吗？

追问

不是，提取的时候连“吗”也一起去掉

追答

Text1.Text = Mid(Text1.Text, m, n - m + 1)

改为
Text1.Text = Mid(Text1.Text, m, n - m)

Answer 3

dim a as string,b as integer
a=text1.text '把文本的数据赋值给a
b=len(a) '计算a=长度 赋给b
for i =1 to b '循环a的长度数 也就是b次
c=mid$(a,i,1)
If c = "你" Or c = "到" Or c = "吗" Then
d = d & c
End If
next i
text1.text = d