想要在文本框中同时查找几个字符串的位置并显示，通过1个command 按钮的click事件实现，笨办法是查找几个字符串就设置几个command 按钮的click事件，界面很不好看。可否通过1个command 按钮的click事件实现？琢磨了几天，在click事件中嵌入多次循环并不可行，虽然调试没有错误，但是显示不出想要的结果。请教大家~谢谢！！

Private Sub Command3_Click()

Dim s As String

Open path & "\11.OUT" For Input As #1 '打开OUT文件'

Dim M As Integer
Dim Ru As Integer

M = 1

Do
Line Input #1, s
If InStr(1, s, "距离") <> 0 Then '查找位置'
Ru = M + 7
Exit Do
Else
M = M + 1
End If
Loop While Not EOF(1)

Text2.Text = Ru

Close #1

End Sub

Private Sub Command4_Click()

Dim s As String

Open path & "\11.OUT" For Input As #1 '打开OUT文件'

Dim N As Integer
Dim Rd As Integer

N = 1

Do
Line Input #1, s
If InStr(1, s, "最大1小时") <> 0 Then '查找位置'
Rd = N - 3
Exit Do
Else
N = N + 1
End If
Loop While Not EOF(1)

Text3.Text = Rd

Close #1

End Sub

 

[此贴子已经被作者于2016-1-20 16:53编辑过]

其实两个事件是一样的，就是为了找不同的字符串，但是我没办法通过一个command 的click事件解决。请指点。谢谢！

学习中。

[此贴子已经被作者于2016-1-20 16:54编辑过]