تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] كيفيه عمل split لملف من نوع تيكست وتصديره داخل LISTBOX
#1
السلام عليكم ورحمة الله وبركاته
اريد ان اقوم بتصدير ملف تيكست يحتوي علي ارقام الى 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


الملفات المرفقة
.txt   New Text Document.txt (الحجم : 45 بايت / التحميلات : 6)
الرد
تم الشكر بواسطة:
#2
وعليكم السلام ورحمة الله وبركاته

الخطاء هنا فى هذه الكلمة 
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 , dametucorazon
#3
اعتذر أخي لم أنتبه أنك جاوبت فقد كتبت كود التعديل 
جزيت خيرا كثيرا 
اعتذر عن انقطاعي الحمد لله علي كل حال
اخبرني عن حالك اخي الفاضل
الرد
تم الشكر بواسطة: elgokr
#4
لا عليك اخى الحبيب

وليعم الفائدة وان يكون الكود لديك بصورة صحيحة كاملاً
يفضل استخدام الكود بهذه الطريقة
كود :
       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
#5
جزيت خيرا كثيرا
الرد
تم الشكر بواسطة: elgokr , elgokr
#6
(02-09-18, 07:21 AM)dametucorazon كتب : جزيت خيرا كثيرا


لنا جميعاً


تحياتى لك
وتمنياتى لك التوفيق
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]

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


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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] كيفيه ارسال احداثيات النقطه حسن الجلب 0 31 , 02:02 AM
آخر رد: حسن الجلب
  مساعدة في اضافة زر داخل خلية في الداتا جريد فيو MustafaShaker 3 124 15-01-21, 04:26 PM
آخر رد: moosa_alabri
  [VB.NET] تقنية linq اختيار عدد معين من ListBox الماجيك مسعد 6 212 26-12-20, 08:10 PM
آخر رد: الماجيك مسعد
Exclamation [VB.NET] استدعاء برنامج من الريسروس وفتحه داخل الفورم .. ( عباقرة البرمجة ) ادخلو XVIMTO 2 234 18-12-20, 11:58 PM
آخر رد: bidaya
  [سؤال] ازاي اضيف البوم صور داخل قاعدة بيانات الاكسس حسن الجلب 1 265 05-12-20, 01:39 AM
آخر رد: سعود
  [سؤال] اضافة كومبوبكس داخل داتاقريد فيو معبئ من قاعدة البيانات KIKO1992 2 267 02-12-20, 11:50 AM
آخر رد: KIKO1992
  كلمة مكتوبة داخل نص البحث؟ Abuzakria 5 320 01-12-20, 04:27 PM
آخر رد: Abuzakria
  دمج بين حقلين ودمج بين تيكست بالفجيوال بيسك sherf 1 151 01-12-20, 03:51 AM
آخر رد: Anas Mahmoud
  كيفيه جعل عمود في الداتا قريد ياخد لون خاص؟ Abuzakria 2 248 28-11-20, 11:13 PM
آخر رد: Abuzakria
  [سؤال] الحفظ و التعديل و الحذف داخل datagridview and databases Sql server mo.fathi 1 303 10-11-20, 04:32 PM
آخر رد: mmali127

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم