تقييم الموضوع :
  • 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 ك ب / التحميلات : 13)
الرد
تم الشكر بواسطة:
#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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] سلام سؤال تحويل رابط حاتمي 5 103 16-05-19, 02:29 PM
آخر رد: elgokr
  سؤال بخصوص نقل بيانات faysal13_13@hotmail.com 1 89 27-04-19, 10:32 PM
آخر رد: saoud2
  [VB.NET] سؤال بخصوص فتح الشاشات khalid475 3 98 25-04-19, 09:18 PM
آخر رد: elgokr
  [VB.NET] سؤال بخصوص datetimepicker في الداتا جريد فيو jassim316 7 160 25-04-19, 09:28 AM
آخر رد: elgokr
  مقارنة بين قيمتي textbox وحفظ الخطأ في جدول قاعدة بيانات ahmedfa71 0 71 24-04-19, 12:19 PM
آخر رد: ahmedfa71
  [VB.NET] سؤال بخصوص client server dubai.eig 3 100 23-04-19, 11:40 AM
آخر رد: elgokr
  سؤال حول تنسيق لون مربع نص المتألق9 3 108 19-04-19, 02:31 AM
آخر رد: المتألق9
  [نقاش] سؤال محير جداااااا وارجو المساعده faysal13_13@hotmail.com 6 134 18-04-19, 11:52 AM
آخر رد: اسامه الهرماوي
  سؤال بخصوص DOEVENTS ومشكله بالكود dametucorazon 5 182 15-04-19, 09:24 AM
آخر رد: elgokr
  سؤال حول TextBox مرتبط ب WebBrowser ارجو رد من الاخ DK-x وشكرا للاخ بدري حاتمي 4 110 09-04-19, 06:16 PM
آخر رد: حاتمي

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


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