02-09-18, 06:34 AM
(آخر تعديل لهذه المشاركة : 02-09-18, 06:57 AM {2} بواسطة dametucorazon.)
السلام عليكم ورحمة الله وبركاته
اريد ان اقوم بتصدير ملف تيكست يحتوي علي ارقام الى listBOX
ولكني اريد ان يقوم القراءه داخل الليست بوكس كل رقم داخل سطر
استعمل هذا الكود اين الخطأ
الملف مرفق
تم بفضل الله بهذا الكود
اريد ان اقوم بتصدير ملف تيكست يحتوي علي ارقام الى listBOX
ولكني اريد ان يقوم القراءه داخل الليست بوكس كل رقم داخل سطر
استعمل هذا الكود اين الخطأ
الملف مرفق
كود :
OpenFileDialog2.ShowDialog()
streamer = IO.File.OpenText(OpenFileDialog2.FileName)
Dim mystring = streamer.ReadToEnd.Split(vbNewLine)
ListBox2.Items.AddRange(mystring)
تم بفضل الله بهذا الكود
كود :
ListBox2.Items.Clear()
OpenFileDialog2.ShowDialog()
For Each line As String In File.ReadLines(OpenFileDialog2.FileName)
Dim dolphin As String() = line.Split(" ")
ListBox2.Items.AddRange(data)
Next