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

عندي مجموعة ملفات نصية مختلفة في الاعمدة  اقوم بتصديرها من الجداول بالاكسيس

احد الملفات بالمرفقات

اريد تصدير كل ملف من مجموعة الملفات الي الداتا جريد فيو بحيث ياخذ صف بالداتا جريد مع اعتبار ان اول عمود ياخذ اسم الملف

انا حاولت مع ملف واحد بالكود التالي وظبط معايا مع عدم المقدرة علي وضع اسم الملف بالعمود الاول بالداتا جريد  فكيف اقوم بهذا مع مجموعة ملفات


كود :
Try
           Dim fname As String = "D:\file.txt"
           Dim fileContents = IO.File.ReadAllLines(fname).ToList
           For i = fileContents.Count - 1 To 0 Step -1
               If fileContents(i).Contains("--------") Then
                   fileContents.RemoveAt(i)
                   i -= 1
               End If
           Next
           IO.File.WriteAllLines(fname, fileContents.ToArray)
           Dim sw = System.Diagnostics.Stopwatch.StartNew()
           Using stream As System.IO.FileStream = System.IO.File.OpenRead(fname)
               Using reader As New System.IO.StreamReader(stream)
                   Dim line As String = reader.ReadLine()
                   While (line IsNot Nothing)
                       Dim columns = line.Split("|")
                       line = reader.ReadLine()
                       Dim index = Me.DataGridView1.Rows.Add()
                       Me.DataGridView1.Rows(index).SetValues(columns)
                   End While

               End Using
           End Using
           sw.Stop()
           DataGridView1.Refresh()
       Catch ex As Exception

       End Try


الملفات المرفقة
.rar   TB_WESITESERVER.rar (الحجم : 183 بايت / التحميلات : 10)
الرد
تم الشكر بواسطة:



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


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