27-12-17, 11:05 PM
هذا تعديل للكود
PHP كود :
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim arr() As String = IO.File.ReadAllLines("C:\Boo.txt")
If arr(1) = "open my file" Then
MsgBox("وجد في السطر الثاني")
ElseIf arr.Contains("open my file") Then
MsgBox("وجد في الملف")
Else
MsgBox("لا يوجد")
End If
End Sub

