+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [VB.NET] طلب التعديل في كود بسيط (/showthread.php?tid=18198)
طلب التعديل في كود بسيط - rabeh.ram - 29-11-16
ارجو منكم اخواني مساعدتي في تعديل الكود في البرنامج المرفق
------الجزء الاول----- عند عدم ادراج اي كلمة ( البحث عن ) النتيجة في رقم السطر 0 جيد هذا ما ابحث عنه
-----الجزء الثاني----- عند ادراج اي كلمة في ( البحث عن) هنالك حالتين
حالة 1 : الكلمة موجود ------------------------ استخراج رقم السطر
حالة 2 : الكلمة غير موجود رسالة ( الكلمة غير مدرجة في النص )
الاشكال الذي اواجهه هو في الجزء الثاني تكون الكلمة موجودة مثلا في السطر الخامس و مع هذا تظهر الرسالة ( الكلمة غير مدرجة في النص ) 5 مرات بعد الضغط على الرسائل الخمسة يظهر اناذاك رقم السطر
كيف لي ان لا اظهر الرسالة في حالة وجود الكلمة
كيف لي ان اظهر الرسالة مرة واحدة في حالة عدم وجود الكلمة
ارجو مساعدتكم حفظكم الله كما ارجو التطبيق على كلمة taha في الملف النصي المرفق مع البرنامج
RE: طلب التعديل في كود بسيط - amgad525 - 29-11-16
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
RE: طلب التعديل في كود بسيط - rabeh.ram - 29-11-16
شكرا لك اخي جزاك الله الف خير وجعله في ميزان حسناتك امين