[dametucorazon]

السلام عليكم ورحمة الله وبركاته
اريد ان اقوم بتصدير ملف تيكست يحتوي علي ارقام الى 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

[elgokr]

وعليكم السلام ورحمة الله وبركاته

الخطاء هنا فى هذه الكلمة 

PHP كود :

vbNewLine 


الملف يحتوى على بين كل رقم والاخر مسافة وليس سطر جديد

لذلك يجب ان تكون بدل هذه الجملة ان تكون

كود :

Space(1)
أو
" "

الكود كاملاً بالشكل الصحيح مع معالجة نقص السطر التانى

كود :

       OpenFileDialog2.ShowDialog()
       Dim streamer = IO.File.OpenText(OpenFileDialog2.FileName)
       Dim mystring = streamer.ReadToEnd.Split(Space(1))
       ListBox2.Items.AddRange(mystring)

تحياتى لك

وتمنياتى لك التوفيق

[dametucorazon]

اعتذر أخي لم أنتبه أنك جاوبت فقد كتبت كود التعديل 
جزيت خيرا كثيرا 
اعتذر عن انقطاعي الحمد لله علي كل حال
اخبرني عن حالك اخي الفاضل

[elgokr]

لا عليك اخى الحبيب

وليعم الفائدة وان يكون الكود لديك بصورة صحيحة كاملاً

يفضل استخدام الكود بهذه الطريقة

كود :

       Dim streamer As IO.StreamReader
       If OpenFileDialog2.ShowDialog() = DialogResult.OK Then
           streamer = IO.File.OpenText(OpenFileDialog2.FileName)
       Else
           Exit Sub
       End If
       Dim mystring As String() = streamer.ReadToEnd.Split(Space(1))
       ListBox2.Items.AddRange(mystring)

بحيث اذا تم تحديد الملف المطلوب

يقوم بتنفيذ باقي الكود واذا لم يتجاهل الزر ويقوم بتخطى كود الزر

تحياتى لك

وتمنياتى لك التوفيق

[dametucorazon]

جزيت خيرا كثيرا

[elgokr]

(02-09-18, 07:21 AM)dametucorazon كتب : جزيت خيرا كثيرا

لنا جميعاً

تحياتى لك

وتمنياتى لك التوفيق