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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Video [مشروع] لعبة إختبر معلوماتك [أسئلة عشوائية]+[قاعدة بيانات xml] + [تأثيرات صوتية] عبدالله الدوسري 7 2,829 15-05-20, 02:28 AM
آخر رد: elsha3r2012
Video مشروع لتحليل الصور ومعرفة محتوياتها داخل قاعدة بيانات ahmadpal 0 44 13-05-20, 04:31 PM
آخر رد: ahmadpal
Wink [مشروع] انشاء فورم تسجيل وتسجيل دخول باستخدام قاعدة بيانات فايربيس بالفيجوال ستوديو vb. net ahmadpal 1 185 12-05-20, 05:10 PM
آخر رد: alraed
Heart كود سحب بيانات صف من قاعدة البيانات في datagridview بناء على قيمة خلية في نفس الصف ggtt17121985 0 74 04-05-20, 02:15 AM
آخر رد: ggtt17121985
  حفظ اى ملف على قاعدة بيانات MySQL keromero 1 80 03-05-20, 01:31 AM
آخر رد: ابراهيم ايبو
  مثال بسيط : التعامل مع الصور في قاعدة بيانات اكسس ابو ليلى 0 76 01-05-20, 01:46 AM
آخر رد: ابو ليلى
  كيفية تحويل قاعدة البيانات sql server لملف script يمكن تحويله لقاعدة بيانات أخرى ببيا ggtt17121985 0 110 21-04-20, 12:54 AM
آخر رد: ggtt17121985
  [مشروع] اضافة وعرض اى نوع من الملفات داخل قاعدة بيانات SQL elgokr 8 1,904 17-04-20, 11:07 AM
آخر رد: محمد كريم 313
Wink [مشروع] مشروع قراءة النصوص التي بالصورة ahmadpal 0 144 07-04-20, 03:17 AM
آخر رد: ahmadpal
  [مثال] إنشاء قاعدة بيانات اكسس بالكود ابو ليلى 7 2,288 06-04-20, 06:37 AM
آخر رد: ahmedtag

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


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