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



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


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