السلام عليكم و رحمة الله و بركاته
لديا ليست فيو ب 9 صفوف اريد كود لتعبئتها من خلال تاكست من الرسورس او مجلد الديباق علما ان تلك التكست يتم حفضها من خلال الليست فيو نفسها
هل من مساعدة ؟
(03-02-21, 08:53 PM)asmarsou كتب : [ -> ]السلام عليكم و رحمة الله و بركاته
لديا ليست فيو ب 9 صفوف اريد كود لتعبئتها من خلال تاكست من الرسورس او مجلد الديباق علما ان تلك التكست يتم حفضها من خلال الليست فيو نفسها
هل من مساعدة ؟
وضح اكثر
هل التاكست في الرسورس عباره عن اسطر تريد توزيعها على عناصر الليست فيو
ضع عينه من محتوى ذلك التاكست الذي في الرسورس
باعتبار ان الموجود في المرفق هو سطر واحد تريد تقسيمه بال(,) على الاعمدة
هذا اذا كان من الرسورس
كود :
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
(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
و شكرا لك مجددا اخي الكريم