طلب التعديل في كود بسيط

تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] طلب التعديل في كود بسيط
#1
ارجو منكم اخواني مساعدتي في تعديل الكود في البرنامج المرفق

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

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

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


الملفات المرفقة
.rar   البرنامج.rar (الحجم : 66.96 ك ب / التحميلات : 28)
الرد
تم الشكر بواسطة:
#2
PHP كود :
Public Class Form1

   Dim allLines
() As String

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

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

End 
Class 
الرد
تم الشكر بواسطة:
#3
شكرا لك اخي جزاك الله الف خير وجعله في ميزان حسناتك امين
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  مساعده في كود التعديل فراس محي 7 108 09-08-18, 05:18 PM
آخر رد: elgokr
  [VB.NET] احتاج كود بسيط medomshakl20 7 112 08-08-18, 10:40 PM
آخر رد: elgokr
  كود التعديل على خلية فى datatgriedview atef_020 15 276 07-08-18, 05:13 PM
آخر رد: atef_020
  طلب تشغيل كود التعديل فراس محي 3 83 02-08-18, 12:07 PM
آخر رد: فراس محي
Star التعديل علي ملف في DropBox YousefOkasha 6 110 30-07-18, 08:37 PM
آخر رد: YousefOkasha
  مطلوب التعديل على نموذج البحث ZaerAllail 33 481 30-06-18, 10:09 PM
آخر رد: ZaerAllail
  عرض النموذج في وضع التعديل atefkhalf2004 1 97 29-06-18, 03:36 PM
آخر رد: فراس الغزي
  [سؤال] التعديل على ملف txt على dropbox او google drive mohamed haroon 4 556 20-06-18, 02:22 AM
آخر رد: YousefOkasha
  طلب كود التعديل علي قاعدة بيانات اكسس hatem555 3 121 15-06-18, 05:34 AM
آخر رد: elgokr
  احتاج مساعدة في كود التعديل maram2423 5 149 08-06-18, 03:53 PM
آخر رد: elgokr

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم