السلام عليكم ممكن مساعدة
اريد قراءة ملف txt وعرضه في listview وجدت الكود هذا ولكن يقراء فقط السطر الاول ويتوقف واريد كذلك ان يقراء الجزء معين من الملف
للتوضيح اكثر المثال على الصور
تخلص من الليست فيو
واضف داتاقريدفيو ثم ضع الكود التالي في الفورم 1
كود :
Public Class Form1
Dim db As String
Dim dt As New DataTable
Private Sub Button4_Click(sender As System.Object, e As System.EventArgs) Handles Button4.Click
OpenFileDialog2.FileName = Nothing
OpenFileDialog2.Title = "Open a Text File"
OpenFileDialog2.Filter = "Text files (*.txt)|*.txt|All files (*.*)|*.*"
If OpenFileDialog2.ShowDialog = System.Windows.Forms.DialogResult.OK Then
TextBox2.Text = Me.OpenFileDialog2.FileName
db = IO.Path.GetDirectoryName(TextBox2.Text) & "\texte.txt"
gd()
Else
End If
End Sub
Public Function loadtxt() As DataTable
dt.Clear()
If dt.Columns.Count = 0 Then
dt.Columns.Add("tname")
dt.Columns.Add("tphone")
dt.Columns.Add("Date")
dt.Columns.Add("Time")
End If
Dim lines() As String = IO.File.ReadAllLines(db)
For Each line As String In lines
If line.Contains("+CMGL:") = True Then
Dim row() As String = {Split(line, ",")(1), Split(line, ",")(2), Split(line, ",")(4), Split(line, ",")(5)}
dt.Rows.Add(row)
Else
Dim row() As String = {line}
dt.Rows.Add(row)
End If
Next
Return dt
End Function
Private Sub gd(Optional pos As Integer = 0)
If loadtxt.Rows.Count > 0 Then
DataGridView1.DataSource = loadtxt()
If DataGridView1.Rows.Count > 0 Then
DataGridView1.Rows(pos).Selected = True
DataGridView1.Columns(0).Width = 120
End If
End If
End Sub
End Class
(19-10-24, 03:00 PM)aminesori كتب : [ -> ]شكرا اخي على المتابعة ولكن يوجد خطا في الوقت وكذلك لا اريد عرض الاسطر المحدد التى بين( +CMGL
اريد ان تظهر هكذا
الصور لم تعط نفس النتائج لان ملف text.txt الذي تعمل عليه ليس نفسه الموجود في المشاركة الاولى
الصورة للبرنامج عندي ويظهر فيها الوقت والحقول الاخرى ( 5 حقول والصورة التي ارفقتها في مشاركتك فيها 6 حقول مختلفة وكلمات اخرى)
[
attachment=29837]
(19-10-24, 03:35 PM)Zuhare كتب : [ -> ] 
Nice Code