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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  مشكلة في تصدير الداتا الى PDF alshandodi 0 4 منذ 1 ساعه مضت
آخر رد: alshandodi
  سؤال فى صفوف الداتا جريد فيو احمد خطاب 1 76 07-02-19, 03:51 AM
آخر رد: حريف برمجة
  [VB.NET] مشكلة في تصدير بيانات الى إكسيل محمد بوقزاحة 3 134 26-01-19, 11:29 PM
آخر رد: محمد بوقزاحة
  [VB.NET] تصدير بيانات من DGV الى ملف اكسيل محمد بوقزاحة 1 95 24-01-19, 03:52 PM
آخر رد: sendbad100
  قسمة صف فى داتا جريد فيو nabil.1710 1 104 24-01-19, 03:31 AM
آخر رد: حريف برمجة
  شرط ديتا جريد فيو dasktop 1 82 20-01-19, 01:00 PM
آخر رد: sendbad100
  مشكلة ظهور مفاجيء للأخطاء عند تصدير الداتاجريدفيو كملف PDF ..[تم الحل] Hazem1 0 107 08-01-19, 11:48 AM
آخر رد: Hazem1
  ما هو كود حفظ البيانات من الداتا جريد فيو إلى قاعدة البيانات kofa 5 1,923 07-01-19, 01:49 AM
آخر رد: EYADISMAIL
  اريد كود الحذف والتعديل بدون الداتا جريد فيو سمير جمال 2 149 06-01-19, 07:31 PM
آخر رد: سمير جمال
  سؤال فى الداتا جريد فيو احمد خطاب 5 239 03-01-19, 08:59 PM
آخر رد: احمد خطاب

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


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