[rabeh.ram]

ارجو منكم اخواني مساعدتي في تعديل الكود في البرنامج المرفق

------الجزء الاول----- عند عدم ادراج اي كلمة ( البحث عن ) النتيجة في رقم السطر 0 جيد  هذا ما ابحث عنه
-----الجزء الثاني----- عند ادراج اي كلمة في ( البحث عن) هنالك حالتين
حالة 1 :  الكلمة موجود ------------------------ استخراج رقم السطر
حالة 2 : الكلمة غير موجود رسالة ( الكلمة غير مدرجة في النص )

الاشكال الذي اواجهه هو في الجزء الثاني تكون الكلمة موجودة مثلا في السطر الخامس و مع هذا تظهر الرسالة ( الكلمة غير مدرجة في النص ) 5 مرات بعد الضغط على الرسائل الخمسة يظهر اناذاك رقم السطر
كيف لي ان لا اظهر الرسالة في حالة وجود الكلمة
كيف لي ان اظهر الرسالة مرة واحدة في حالة عدم وجود الكلمة

ارجو مساعدتكم حفظكم الله كما ارجو التطبيق على كلمة taha في الملف النصي المرفق مع البرنامج

[amgad525]

PHP كود :

Public Class Form1

   Dim allLines() As String

   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       Dim openfile1 = New OpenFileDialog()
       openfile1.Filter = "Text (*.txt)|*.txt"
       If (openfile1.ShowDialog() = System.Windows.Forms.DialogResult.OK) Then
           patch.Text = openfile1.FileName
           allLines = IO.File.ReadAllLines(patch.Text)
       End If
   End Sub

   Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
       tbox_line.Text = "0"
       For i = 0 To allLines.Count - 1
           If allLines(i).Contains(tbox_Search.Text.Trim) Then
               tbox_line.Text = i + 1
               Exit For
           End If
       Next
       If tbox_line.Text = "0" Then
           MsgBox("الكلمة غير مدرجة في النص ")
       End If
   End Sub

End Class 


[rabeh.ram]

شكرا لك اخي جزاك الله الف خير وجعله في ميزان حسناتك امين