[asmarsou]

(03-02-21, 09:50 PM)fghj4 كتب : باعتبار ان الموجود في المرفق هو سطر واحد تريد تقسيمه بال(,) على الاعمدة

هذا اذا كان من الرسورس

كود :

For Each t As String In My.Resources.TextFile1.Split(vbNewLine)
   Dim i As New ListViewItem(t.Split(","))
   ListView1.Items.Add(i)
Next

---

وهذا اذا كان من ملف

كود :

For Each t As String In IO.File.ReadAllLines("C:\textfile.txt")
   Dim i As New ListViewItem(t.Split(","))
   ListView1.Items.Add(i)
Next

بارك الله لك
نعم هو الاول و كني اخطات بمكان حفض التكست المراد التعبئة منه فهو في ال Debug
و شكرا لك مجددا اخي الكريم