تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] سؤال حول القراءة من textbox
#1
السلام عليكم احبابي في الله
ممكن مساعدة في اصلاح هذا الخطأ
كود :
Private Sub Read_trak()



       Try
           Dim rdr As New StringReader(TextBox1.Text)

           Dim lines As String = rdr.ReadLine()

           'Dim Lines As String() = IO.File.ReadAllLines(TextBox1.Text)
           Dim row(1) As String
           For Each line As String In Lines
               If line.Trim.StartsWith("#EXTINF") Then
                   row(0) = line.Split(",")(1)

               ElseIf line.Trim.StartsWith("http://") Then
                   row(1) = line.Trim
                   originalItems.Add(New ListViewItem(row))
               End If
           Next
           Me.ListView1.Items.AddRange(originalItems.ToArray)
       Catch ex As Exception

       End Try

   End Sub

انا كنت استعمل الكود لقرائة ملف خارجي 
كود :
Dim Lines As String() = IO.File.ReadAllLines("Playlist\trak.m3u")
الان اريده القراءة من textbox
الرد
تم الشكر بواسطة:
#2
وعليكم السلام ورحمة الله وبركاته

فقط كل ما عليك استخدام الكود بهذا الشكل
كود :
   Private Sub Read_trak()
       Try
           Dim Lines As String() = TextBox1.Text.Split(vbNewLine)
           Dim row(1) As String
           For Each line As String In Lines
               If line.Trim.StartsWith("#EXTINF") Then
                   row(0) = line.Split(",")(1)
               ElseIf line.Trim.StartsWith("http://") Then
                   row(1) = line.Trim
                   originalItems.Add(New ListViewItem(row))
               End If
           Next
           Me.ListView1.Items.AddRange(originalItems.ToArray)
       Catch ex As Exception
           MsgBox(ex.Message)
       End Try
   End Sub

وكل ما عليك ان تجعل الـ TextBox1 مفعل به الـ Multiline
وكل ما عليك وضع محتوى الملف داخلا لـ TextBox1 

وسيعمل الكود معك بدون اى مشكلة

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

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


 شرح كيفية عمل قاعدة بيانات تعمل على اكثر من جهاز على الشبكة الداخلية
الرد
تم الشكر بواسطة: trakktour
#3
(28-10-18, 10:26 PM)elgokr كتب :
وعليكم السلام ورحمة الله وبركاته

فقط كل ما عليك استخدام الكود بهذا الشكل
كود :
   Private Sub Read_trak()
       Try
           Dim Lines As String() = TextBox1.Text.Split(vbNewLine)
           Dim row(1) As String
           For Each line As String In Lines
               If line.Trim.StartsWith("#EXTINF") Then
                   row(0) = line.Split(",")(1)
               ElseIf line.Trim.StartsWith("http://") Then
                   row(1) = line.Trim
                   originalItems.Add(New ListViewItem(row))
               End If
           Next
           Me.ListView1.Items.AddRange(originalItems.ToArray)
       Catch ex As Exception
           MsgBox(ex.Message)
       End Try
   End Sub

وكل ما عليك ان تجعل الـ TextBox1 مفعل به الـ Multiline
وكل ما عليك وضع محتوى الملف داخلا لـ TextBox1 

وسيعمل الكود معك بدون اى مشكلة

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

للاسف لم يعمل اخي 
هذا هو المشروع ألقي نظرة عليه


الملفات المرفقة
.rar   WindowsApplication29.rar (الحجم : 89.23 ك ب / التحميلات : 11)
الرد
تم الشكر بواسطة:
#4
تفضل كود الفورم كاملاً

كود :
Public Class Form1
   Dim originalItems As New List(Of ListViewItem)

   Private Sub Read_m3u()
       Try
           Dim Lines As String() = TextBox1.Text.Split(vbNewLine)
           Dim row(1) As String
           For Each line As String In Lines
               If line.Trim.StartsWith("#EXTINF") Then
                   row(0) = line.Split(",")(1)

               ElseIf line.Trim.StartsWith("http://") Then
                   row(1) = line.Trim
                   originalItems.Add(New ListViewItem(row))
               End If
           Next
           Me.ListView1.Items.AddRange(originalItems.ToArray)
       Catch ex As Exception
           MsgBox(ex.Message)
       End Try
   End Sub
   Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
       Read_m3u()
   End Sub
End Class

فقط استبدل الكود بالفورم كاملاً وقوم بتشغيل المشورع وسيعمل معك

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

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


 شرح كيفية عمل قاعدة بيانات تعمل على اكثر من جهاز على الشبكة الداخلية
الرد
تم الشكر بواسطة: trakktour , trakktour
#5
(28-10-18, 11:40 PM)elgokr كتب :
تفضل كود الفورم كاملاً

كود :
Public Class Form1
   Dim originalItems As New List(Of ListViewItem)

   Private Sub Read_m3u()
       Try
           Dim Lines As String() = TextBox1.Text.Split(vbNewLine)
           Dim row(1) As String
           For Each line As String In Lines
               If line.Trim.StartsWith("#EXTINF") Then
                   row(0) = line.Split(",")(1)

               ElseIf line.Trim.StartsWith("http://") Then
                   row(1) = line.Trim
                   originalItems.Add(New ListViewItem(row))
               End If
           Next
           Me.ListView1.Items.AddRange(originalItems.ToArray)
       Catch ex As Exception
           MsgBox(ex.Message)
       End Try
   End Sub
   Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
       Read_m3u()
   End Sub
End Class

فقط استبدل الكود بالفورم كاملاً وقوم بتشغيل المشورع وسيعمل معك

تحياتى لك
وتمنياتى لك التوفيق
شكرا لك يا غالي الله يحفظك
شغااال روعة
الرد
تم الشكر بواسطة: elgokr , elgokr
#6
الشكر لله

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

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


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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  سؤال في الداتا جريد فيو Emam emam 3 51 منذ 9 ساعة مضت
آخر رد: elgokr
  [VB.NET] مشكلة فى عرض محتويات DataGridView فى TextBox mr_hso 8 169 18-02-19, 10:52 PM
آخر رد: nabil.1710
  سؤال في الفورم الذي يظهر فيه التقرير Emam emam 2 52 17-02-19, 03:59 PM
آخر رد: Emam emam
  سؤال فى صفوف الداتا جريد فيو احمد خطاب 1 83 07-02-19, 03:51 AM
آخر رد: حريف برمجة
  [كود] سؤال لأهل الخبرة كيف يمكن استدعاء شااشة لبرنامج تم برمجتة بالجافا dametucorazon 1 90 06-02-19, 10:35 AM
آخر رد: dametucorazon
  سؤال حول امر الطباعة الفورية Osama Bayoumy 6 606 02-02-19, 01:08 PM
آخر رد: atef_020
  القراءة من ملف text و البحث فيه احمد كبه 2 118 25-01-19, 11:18 AM
آخر رد: احمد كبه
  مساعدة بخصوص الارقام في Textbox Adata 2 144 25-01-19, 02:35 AM
آخر رد: ابراهيم ايبو
  سؤال BackgroundWorker new_programer 5 207 23-01-19, 06:50 PM
آخر رد: %Eman%
  سؤال بخصوص تشيك ليست بوكس نور الهدى الهدى 3 145 22-01-19, 07:51 AM
آخر رد: حريف برمجة

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


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