08-02-18, 04:58 AM
بسم الله الرحمن الرحيم وبه نستعين
هذا المثال سنستفيد منه التالي :
1- قراءة بيانات ملف نصي من مسار معين في الليست بوكس
2- البحث داخل اللبيت بوكس عن كلمة أو جزء من كلمة وتحديد السطر
3- حذف السطر المحدد من الليست بوكس
4 - كتابة بيانات الليست بوكس الى ملف نصي في مسار معين ( الحفظ )
* قم بإنشاء ملف نصي بإسم test.txt في القرص D
واكتب فيه ثلاث او اربع أسطر وقم بالحفظ
* قم بإدراج التالي من صندوق الأدوات :
ListBox1
TextBox1
Button1 = بحث
Button2 = ازالة السطر المحدد
Button3 = حفظ
في دخول الفورم ( Load ) نضع هذا الكود
لقراءة بيانات الملف النصي في ListBox1
لقراءة بيانات الملف النصي في 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)
المثال في المرفقات