تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] القراءة من ملف txt واضافته في Listview
#1
السلام عليكم ممكن مساعدة 

اريد قراءة ملف txt وعرضه في listview وجدت الكود هذا ولكن يقراء فقط السطر الاول ويتوقف واريد كذلك ان يقراء الجزء معين من الملف
للتوضيح اكثر المثال على الصور



الملفات المرفقة
.rar   txtfile_to_listview.rar (الحجم : 57.18 ك ب / التحميلات : 14)
الرد }}}
تم الشكر بواسطة:
#2
تخلص من الليست فيو 
واضف داتاقريدفيو ثم ضع الكود التالي في الفورم 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
الرد }}}
تم الشكر بواسطة:
#3
شكرا اخي على المتابعة ولكن يوجد خطا في الوقت وكذلك لا اريد عرض الاسطر المحدد التى بين( +CMGLSmile


اريد ان تظهر هكذا  Smile


الرد }}}
تم الشكر بواسطة: Zuhare , Zuhare
#4

.rar   Form1.rar (الحجم : 856 بايت / التحميلات : 13)
الرد }}}
تم الشكر بواسطة: salamandal , salamandal
#5
(19-10-24, 03:00 PM)aminesori كتب : شكرا اخي على المتابعة ولكن يوجد خطا في الوقت وكذلك لا اريد عرض الاسطر المحدد التى بين( +CMGLSmile


اريد ان تظهر هكذا  Smile



الصور لم تعط نفس النتائج لان ملف text.txt  الذي تعمل عليه ليس نفسه الموجود في المشاركة الاولى

الصورة للبرنامج عندي ويظهر فيها الوقت والحقول الاخرى ( 5 حقول والصورة التي ارفقتها في مشاركتك فيها 6 حقول مختلفة وكلمات اخرى)


   

(19-10-24, 03:35 PM)Zuhare كتب :  Rolleyes Smile

Nice Code
الرد }}}
تم الشكر بواسطة: Zuhare



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


يقوم بقرائة الموضوع: