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

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

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

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


الملفات المرفقة
.rar   البرنامج.rar (الحجم : 66.96 ك ب / التحميلات : 29)
الرد }}}
تم الشكر بواسطة:
#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
شكرا لك اخي جزاك الله الف خير وجعله في ميزان حسناتك امين
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  ارجو التعديل على الدالة المرفقة - الدالة تعيد الرقم -1 new_programer 4 91 20-03-24, 01:18 PM
آخر رد: تركي الحلواني
  [VB.NET] مساعدة في استدعاء البيانات معينه من form الأول إلى form 2 بدون التعديل loay775 2 275 18-01-24, 05:04 PM
آخر رد: loay775
  سؤال بسيط يا احبتى فى الله خالد كامل1 4 314 07-01-24, 12:55 AM
آخر رد: Mujahef
  [VB.NET] كود التعديل Abdellatif 6 396 21-12-23, 02:01 PM
آخر رد: Abdellatif
  كود التعديل لم ينجح معي melad2002 4 298 16-12-23, 12:22 AM
آخر رد: anes
Tongue استفسار بسيط عن كريستال ريبورت waataanys 1 311 30-11-23, 04:44 PM
آخر رد: Taha Okla
  رجاء التعديل على الكود المرفق - كلاس لعرض كود المورد new_programer 4 357 13-10-23, 01:47 AM
آخر رد: new_programer
  اريد اضافة متغيراخر داخل Listbox1 احتاج تعديل بسيط moh61 0 349 05-08-23, 02:29 PM
آخر رد: moh61
  اريد التعديل على كود اذا كان القيمة المدخلة مكررة بDataGridView يتم فقط زيادة العدد moh61 6 822 26-07-23, 10:41 AM
آخر رد: تركي الحلواني
  مثال بسيط لربط قواعد mySql مع Vb.net atefkhalf2004 2 396 17-04-23, 01:03 AM
آخر رد: atefkhalf2004

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


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