Trojan
05.02.2006, 18:07
Private Sub Command1_Click()
Dim scan As String
Dim h As String
Dim s As String
scan = Text2.Text
If scan = "" Then
MsgBox ("Hey dude , enter stuff")
Else
h = Dir("c:\Project CSO\logs\*.log")
While h <> ""
Open h For Input As #1
While EOF(1) = False
Line Input #1, s
If InStr(s, scan) Then
Text1.Text = Text1.Text & s
End If
Wend
Close #1
h = Dir()
Wend
End If
End Sub
///
почему оно пишет Wend without while , на первом Wend'e
да блин. давно я не програмил на нем :(
Dim scan As String
Dim h As String
Dim s As String
scan = Text2.Text
If scan = "" Then
MsgBox ("Hey dude , enter stuff")
Else
h = Dir("c:\Project CSO\logs\*.log")
While h <> ""
Open h For Input As #1
While EOF(1) = False
Line Input #1, s
If InStr(s, scan) Then
Text1.Text = Text1.Text & s
End If
Wend
Close #1
h = Dir()
Wend
End If
End Sub
///
почему оно пишет Wend without while , на первом Wend'e
да блин. давно я не програмил на нем :(