تقييم الموضوع :
  • 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 ك ب / التحميلات : 353)
الرد }}}
#2
جزاك الله خيرا عمل رائع استمرررررر
الرد }}}
تم الشكر بواسطة: asemshahen5 , سعود , سعود


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  انشاء قاعدة بيانات اكسس بالكود Kamil 0 179 17-02-24, 10:43 PM
آخر رد: Kamil
  طريقة سهلة للاتصال بقاعدة بيانات SQL مع اضافة ايقونات للتحكم في تدفق البيانات ggtt17121985 0 542 06-11-23, 10:16 AM
آخر رد: ggtt17121985
  مشروع تعدد لغات للبرنامج من قاعدة بيانات MsAccess asemshahen5 6 3,653 18-05-23, 03:39 AM
آخر رد: mohamed gida
Lightbulb عمل Attach و Detach و Backup و Restore لقاعدة بيانات MS Sql Server asemshahen5 19 8,873 19-03-23, 09:01 PM
آخر رد: atefkhalf2004
Photo [VB.NET] أحتاج مساعدتكم لطباعة بيانات الفورم في كرستال ربورت Sidiki 1 637 25-02-23, 08:36 PM
آخر رد: Taha Okla
Lightbulb خطوة خطوة بالكود كورس كامل للربط بين فيجوال بيسك دوت نت مع قاعدة بيانات MYSQL ggtt17121985 0 1,003 06-01-23, 09:04 AM
آخر رد: ggtt17121985
Rainbow [مشروع] محول بيانات الانترنت محمد مسافر 0 704 14-11-22, 02:52 AM
آخر رد: محمد مسافر
Video [مشروع] لعبة إختبر معلوماتك [أسئلة عشوائية]+[قاعدة بيانات xml] + [تأثيرات صوتية] عبدالله الدوسري 12 18,081 30-10-22, 05:52 PM
آخر رد: ibra9009
  برنامج لإدارة قواعد بيانات SQL Server ggtt17121985 0 1,169 17-10-22, 06:16 PM
آخر رد: ggtt17121985
  الاتصال بقاعدة بيانات SQL بدون تنصيب البرنامج كامل ملهمـ 0 1,335 23-09-22, 12:28 AM
آخر رد: ملهمـ

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


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