小女生为什么喜欢大叔:急,vb字符串问题

来源:百度文库 编辑:高考问答 时间:2024/05/10 08:27:22
请问我用vb进行字符串的查找提取,
首先如果仅仅使用以下语句:
dim i,j,strName1 as String
i = InStr(strString, "来电号码:") + 6
Text3.Text = i
j = InStr(i, strString, "用户姓名:")
Text2.Text = j
查找到起始和末尾的位置,看到text3和text2分别返回了20和30

但当我加上了以下语句
strName1 = Mid(strString, i, j - i)
Text4.Text = strName1
将20到30之间的字符串提取的时候报错,i和j-i的值都为0,如果光写前面四行语句的话,i和j就有数值,这是为什么呢?我很着急,谢谢啦!qq:173635235
Dim strName1 As String
Dim i, j As Long
strString = Text1.Text
i = InStr(strString, "来电号码:") + 168
Text3.Text = i
j = InStr(i, strString, "用户姓名:") - 19
Text2.Text = j
strName1 = Mid(strString, i, j - i)
Text4.Text = strName1
我很着急,谢谢啦!

不会吧,你把改后的代码完整地贴上来看看?