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

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

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

PHP كود :

vbNewLine 

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

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

كود :

Space(1)

أو

" "

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

كود :

       OpenFileDialog2.ShowDialog()

        Dim streamer = IO.File.OpenText(OpenFileDialog2.FileName)

        Dim mystring = streamer.ReadToEnd.Split(Space(1))

        ListBox2.Items.AddRange(mystring)

تحياتى لك

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

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

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

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

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

كود :

       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)

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

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

تحياتى لك

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

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

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

لنا جميعاً

تحياتى لك

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

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

dametucorazon

elgokr

dametucorazon

elgokr

dametucorazon

elgokr