[asmarsou]

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

[fghj4]

(03-02-21, 08:53 PM)asmarsou كتب : السلام عليكم و رحمة الله و بركاته
لديا ليست فيو ب 9 صفوف اريد كود لتعبئتها من خلال تاكست من الرسورس او مجلد الديباق علما ان تلك التكست يتم حفضها من خلال الليست فيو نفسها
هل من مساعدة ؟

وضح اكثر
هل التاكست في الرسورس عباره عن اسطر تريد توزيعها على عناصر الليست فيو

ضع عينه من محتوى ذلك التاكست الذي في الرسورس

[asmarsou]

(03-02-21, 08:54 PM)fghj4 كتب :

(03-02-21, 08:53 PM)asmarsou كتب : السلام عليكم و رحمة الله و بركاته
لديا ليست فيو ب 9 صفوف اريد كود لتعبئتها من خلال تاكست من الرسورس او مجلد الديباق علما ان تلك التكست يتم حفضها من خلال الليست فيو نفسها
هل من مساعدة ؟

وضح اكثر
هل التاكست في الرسورس عباره عن اسطر تريد توزيعها على عناصر  الليست فيو

ضع عينه من محتوى ذلك التاكست الذي في الرسورس

---

(03-02-21, 09:41 PM)asmarsou كتب :

(03-02-21, 08:54 PM)fghj4 كتب :

(03-02-21, 08:53 PM)asmarsou كتب : السلام عليكم و رحمة الله و بركاته
لديا ليست فيو ب 9 صفوف اريد كود لتعبئتها من خلال تاكست من الرسورس او مجلد الديباق علما ان تلك التكست يتم حفضها من خلال الليست فيو نفسها
هل من مساعدة ؟

وضح اكثر
هل التاكست في الرسورس عباره عن اسطر تريد توزيعها على عناصر  الليست فيو

ضع عينه من محتوى ذلك التاكست الذي في الرسورس

[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

[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
و شكرا لك مجددا اخي الكريم