请教：command 按钮的click事件可否同时查找几个字符串的位置并显示？ - 编程论坛

#2

wmf20142016-01-20 08:20

楼主能不能举个例子？如你描述，应该不需要一个按钮都可以完成的。

#3

cclhw2016-01-20 16:46

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编辑过]

#4

cclhw2016-01-20 16:48

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

#5

cclhw2016-01-20 16:52

学习中。

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