تقييم الموضوع :
  • 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 بايت / التحميلات : 2)
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] داتا جريد فيو M.SOFT 0 49 08-12-18, 03:51 PM
آخر رد: M.SOFT
  تغيير لغة الجداول فى الداتا جريد احمد خطاب 3 100 06-12-18, 09:27 PM
آخر رد: Emam emam
  سؤال بخصوص الكتابة داخل داتا جريد احمد خطاب 3 88 05-12-18, 11:35 AM
آخر رد: احمد خطاب
  [VB.NET] سؤال عن الداتا جريد فيو M.SOFT 1 75 04-12-18, 04:31 AM
آخر رد: محمد كريّم
  الاضافة والتعديل والحذف من خلال الداتا جريد فيوا makky 2 135 01-12-18, 12:48 AM
آخر رد: حريف برمجة
  الاضافة والتعديل والحذف من خلال الداتا جريد فيوا makky 2 108 30-11-18, 10:36 PM
آخر رد: Rabeea Qbaha
  التننقل خلال الداتا جريد makky 2 113 28-11-18, 02:54 PM
آخر رد: makky
  سؤال بخصوص القيد فى الداتا جريد احمد خطاب 4 107 24-11-18, 11:31 AM
آخر رد: احمد خطاب
Photo ضبط صفوف الداتا جريد فيو nabil.1710 1 101 24-11-18, 02:48 AM
آخر رد: rmnr
  داتا جريد فيو SonBasel 1 106 19-11-18, 04:22 PM
آخر رد: SonBasel

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


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