تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[مثال] قراءة بيانات ملف نصي في الليست بوكس والبحث داخلها والحفظ
#1
بسم الله الرحمن الرحيم وبه نستعين


هذا المثال سنستفيد منه التالي :

1- قراءة بيانات ملف نصي من مسار معين في الليست بوكس
2- البحث داخل اللبيت بوكس عن كلمة أو جزء من كلمة وتحديد السطر
3- حذف السطر المحدد من الليست بوكس
4 - كتابة بيانات الليست بوكس الى ملف نصي في مسار معين ( الحفظ )

* قم بإنشاء ملف نصي بإسم test.txt في القرص D

واكتب فيه ثلاث او اربع أسطر وقم بالحفظ

* قم بإدراج التالي من صندوق الأدوات :

ListBox1
TextBox1
Button1 = بحث
Button2 = ازالة السطر المحدد
Button3 = حفظ

في دخول الفورم ( Load ) نضع هذا الكود
لقراءة بيانات الملف النصي في ListBox1

كود :
       'Read
       Dim Lines() As String = My.Computer.FileSystem.ReadAllText("D:\test.txt").Split(vbCrLf)
       ListBox1.Items.AddRange(Lines)


في زر Button1 نضع هذا الكود
وهو يقوم بالبحث عن النص الذي بداخل  TextBox1 في أسطر أو عناصر ListBox1
وتحديد السطر اذا تطابقت النتيجة سواء النص كامل او جزء منه وإلغاء التحديد إذا لم يتطابق

كود :
  Dim count As Integer = (ListBox1.Items.Count - 1)
       Dim words As String
       For a = 0 To count
           words = ListBox1.Items.Item(a)
           If InStr(words.ToLower, TextBox1.Text.ToLower) Then
               ListBox1.SelectedItem = words

               Return
           Else

               ListBox1.SelectedItem = Nothing

           End If

       Next


في زر Button2 نضع هذا الكود وهو يقوم بإزالة السطر أو الأسطر المحددة


كود :
If ListBox1.SelectedItem = Nothing Then

           MsgBox("Select the line first", MsgBoxStyle.Critical, Me.Text)

       Else

           For i As Integer = ListBox1.SelectedIndices.Count - 1 To 0 Step -1
               ListBox1.Items.RemoveAt(ListBox1.SelectedIndices.Item(i))

           Next


       End If


في زر Button3  نضع هذا الكود
ويقوم بكتابة أسطر أو عناصر ListBox1 في ملف نصي في مسار معين


كود :
     'Write
       Dim OutText As String = ""
       For Each S As String In ListBox1.Items
           OutText &= S & vbCrLf
       Next
       My.Computer.FileSystem.WriteAllText("D:\test.txt", OutText, False)



المثال في المرفقات


الملفات المرفقة
.zip   Search_for_text_in_ListBox.zip (الحجم : 222.01 ك ب / التحميلات : 207)
الرد
تم الشكر بواسطة: عبد العزيز البسكري , asemshahen5
#2
جزاك الله خيرا عمل رائع استمرررررر
الرد
تم الشكر بواسطة: asemshahen5


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [مشروع] اضافة وعرض اى نوع من الملفات داخل قاعدة بيانات SQL elgokr 11 2,913 29-09-20, 07:05 PM
آخر رد: kiki
Video [درس فيديو] طريقة طباعة النص من تكست بوكس او الصورة من بكتشر بوكس ahmadpal 3 454 06-09-20, 08:05 AM
آخر رد: Ali 2020
  [سؤال] سؤال بخصوص الليست بوكس منه 3 242 28-08-20, 05:43 PM
آخر رد: Anas Mahmoud
  [مثال] عمل نسخة احتياطية لقاعدة بيانات اكسس واسترجاعها ibraheam 3 3,092 24-08-20, 09:18 PM
آخر رد: ADNANBARZNJI
Video [مشروع] لعبة إختبر معلوماتك [أسئلة عشوائية]+[قاعدة بيانات xml] + [تأثيرات صوتية] عبدالله الدوسري 9 3,563 12-08-20, 04:07 AM
آخر رد: مصمم هاوي
  كيفية تحويل قاعدة بيانات من MS Access الى SQL ibra9009 2 364 10-08-20, 08:03 PM
آخر رد: ibra9009
  اسناد بينات الاتصال برمجياً عبر المعالج - نص الاتصال-السيرفر-القاعدة-بيانات اخرى ابو ليلى 9 8,022 22-06-20, 02:16 AM
آخر رد: ابو ليلى
Video اضافة الصور في قاعدة بيانات وعرضها في datagridview ggtt17121985 0 365 21-06-20, 08:52 PM
آخر رد: ggtt17121985
Video [درس فيديو] تصميم نظام لحجز تذاكر طيران بقاعدة بيانات اكسس mazentq 0 332 15-06-20, 09:57 AM
آخر رد: mazentq
Video مشروع لتحليل الصور ومعرفة محتوياتها داخل قاعدة بيانات ahmadpal 0 292 13-05-20, 04:31 PM
آخر رد: ahmadpal

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


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