26-09-18, 08:13 PM
السلام عليكم
عندي مجموعة ملفات نصية مختلفة في الاعمدة اقوم بتصديرها من الجداول بالاكسيس
احد الملفات بالمرفقات
اريد تصدير كل ملف من مجموعة الملفات الي الداتا جريد فيو بحيث ياخذ صف بالداتا جريد مع اعتبار ان اول عمود ياخذ اسم الملف
انا حاولت مع ملف واحد بالكود التالي وظبط معايا مع عدم المقدرة علي وضع اسم الملف بالعمود الاول بالداتا جريد فكيف اقوم بهذا مع مجموعة ملفات
عندي مجموعة ملفات نصية مختلفة في الاعمدة اقوم بتصديرها من الجداول بالاكسيس
احد الملفات بالمرفقات
اريد تصدير كل ملف من مجموعة الملفات الي الداتا جريد فيو بحيث ياخذ صف بالداتا جريد مع اعتبار ان اول عمود ياخذ اسم الملف
انا حاولت مع ملف واحد بالكود التالي وظبط معايا مع عدم المقدرة علي وضع اسم الملف بالعمود الاول بالداتا جريد فكيف اقوم بهذا مع مجموعة ملفات
كود :
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