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

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

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

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


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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Bug [سؤال] اريد تخزين عدة شيتات -sheet- بعد التعديل من sheet1 ferouk 2 38 منذ 6 ساعة مضت
آخر رد: elgokr
  [VB.NET] سؤال بسيط حول webbrowser trakktour 7 101 26-05-18, 05:40 AM
آخر رد: elgokr
  مشكلة بزر التعديل حافظ حافظ 21 277 20-05-18, 12:53 AM
آخر رد: حافظ حافظ
  [VB.NET] التعديل على صفحة html trakktour 1 68 09-05-18, 12:18 AM
آخر رد: viv
  [سؤال] عندى مشكله بكود التعديل فى قاعده البيانات waleedsss 3 200 28-03-18, 12:31 AM
آخر رد: عبدالله الدوسري
Photo ارجو مساعدتي في مشروع التعديل والحذف رسول555 6 183 25-03-18, 12:47 AM
آخر رد: رسول555
  التعديل على زر حفظ الصور أبووسم 5 259 14-03-18, 10:21 PM
آخر رد: أبووسم
  [VB.NET] ممكن استفسار بسيط وكود فترة تجريبي للبرنامج MOSTAFA.KAMEL 0 59 16-02-18, 10:36 PM
آخر رد: MOSTAFA.KAMEL
  [VB.NET] ممكن حل المشكلة التعديل على البيانات فى MYsql MOSTAFA.KAMEL 1 56 16-02-18, 02:02 AM
آخر رد: MOSTAFA.KAMEL
  [VB.NET] ممكن حل مشكلة التعديل من خلال البرنامج فى قاعدة البيانات MOSTAFA.KAMEL 7 77 14-02-18, 02:15 AM
آخر رد: MOSTAFA.KAMEL

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


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