تمت الإجابة سؤال حول القراءة من textbox

تم تحميل الصفحة في 0,5901832 ثانية
سؤال حول القراءة من textbox
الحالة
مغلق و غير مفتوح للمزيد من الردود.
إنضم
17 نوفمبر 2016
المشاركات
98
الإعجابات
77
النقاط
18
العمر
25
السلام عليكم احبابي في الله
ممكن مساعدة في اصلاح هذا الخطأ

كود:
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
 

Spawner Freezo

.:: مُساعد مُشرف أقسام البرمجة ::.
rankrank
إنضم
12 أبريل 2015
المشاركات
355
الإعجابات
533
النقاط
93
العمر
22
الإقامة
Morocco
الكود يشتغل ...

يمكنك أيضاً برمجته بهاته الطريقة

----


C#:
            for (int index = 0; index < textBox1.Lines.Count() - 1; index++)
            {
                var currLine = textBox1.Lines[index];
                var nextLine = textBox1.Lines[index + 1];

                if (currLine.StartsWith("#EXTINF")  &&
                    nextLine.StartsWith("http") )
                {
                    listView1.Items.Add(currLine.Split(',')[1] )
                             .SubItems.Add(nextLine);
                }
            }
----


كود:
For index As Integer = 0 To textBox1.Lines.Count() - 2
    Dim currLine = textBox1.Lines(index)
    Dim nextLine = textBox1.Lines(index + 1)

    If currLine.StartsWith("#EXTINF") AndAlso nextLine.StartsWith("http") Then
        listView1.Items.Add(currLine.Split(","C)(1)).SubItems.Add(nextLine)
    End If
Next
 
إنضم
17 نوفمبر 2016
المشاركات
98
الإعجابات
77
النقاط
18
العمر
25
الكود يشتغل ...

يمكنك أيضاً برمجته بهاته الطريقة

----


C#:
            for (int index = 0; index < textBox1.Lines.Count() - 1; index++)
            {
                var currLine = textBox1.Lines[index];
                var nextLine = textBox1.Lines[index + 1];

                if (currLine.StartsWith("#EXTINF")  &&
                    nextLine.StartsWith("http") )
                {
                    listView1.Items.Add(currLine.Split(',')[1] )
                             .SubItems.Add(nextLine);
                }
            }
----


كود:
For index As Integer = 0 To textBox1.Lines.Count() - 2
    Dim currLine = textBox1.Lines(index)
    Dim nextLine = textBox1.Lines(index + 1)

    If currLine.StartsWith("#EXTINF") AndAlso nextLine.StartsWith("http") Then
        listView1.Items.Add(currLine.Split(","C)(1)).SubItems.Add(nextLine)
    End If
Next
شكرا لك يا غالي
الان شغال الله يعطيك العافية
 
الحالة
مغلق و غير مفتوح للمزيد من الردود.

الأعضاء النشطين حاليآ الذين يشاهدون هذا الموضوع (1 عضو و 0 ضيف)

خيارات الاستايل

نوع الخط
مودك
اخفاء السايدر بار OFF
توسيط المنتدى OFF
فصل الأقسام OFF
الأقسام الفرعية OFF
عرض المشاركات
حجم الخط
معلومات العضو OFF
إخفاء التوقيع OFF

إرجاع خيارات الإستايل