تمت الإجابة عرض ملف m3u8 على lisbox او textbox

تم تحميل الصفحة في 0,2831320 ثانية
عرض ملف m3u8 على lisbox او textbox
الحالة
مغلق و غير مفتوح للمزيد من الردود.
إنضم
29 مايو 2017
المشاركات
21
الإعجابات
14
النقاط
3
العمر
27
السلام عليكم اخوتي الكرام

لدي مشكل اذا تقدرون على مساعدتي

الفكرة هي ان لدي ملف بصيغة M3U


و ملف به قنوات بهاذ الشكل

الذي اريده انا هو عرض هذه القنواات على COMBOBOX او LISTBOX

و لكن ليس هاذ فقط المشكل الاكبر اريد ان تظهر فقط اسماء القنوات

على سبيل المثال

تكون شبيهة لبرنامج VLC

و للتذكير انا سةف استعمل المشغل VLC PLGIN
اعلم انا الامر سعب ة لكن ليس صعب عليكم يا ابطال


من فضلك اكواد VB.NET
 
إنضم
17 نوفمبر 2016
المشاركات
98
الإعجابات
77
النقاط
18
العمر
25
تفظل هذه ل listbox
ستحتاج listbox & openfiledialog & button
كود:
Sub Read_m3u()
        OpenFileDialog1.FileName = ""
        OpenFileDialog1.Filter = "HamDane|*.m3u"
        Dim result As DialogResult = OpenFileDialog1.ShowDialog()
        Dim Lines As String() = IO.File.ReadAllLines(OpenFileDialog1.FileName)
        Dim dt As New DataTable
        Dim row(1) As String
        For i As Integer = 0 To Lines.Length - 1
            Dim line As String = Lines(i).ToString.Trim
            If line.StartsWith("#EXTINF") Then
                row(0) = line.Replace("#EXTINF:-1,", "").Trim
            ElseIf line.StartsWith("http://") Then
                row(1) = line.Trim
                Dim a As ListViewItem
                a = ListView1.Items.Add(row(0))
                a.SubItems.Add(row(1))
            End If
        Next
    End Sub
    
       Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
      
       Read_m3u()
    End Sub
 
إنضم
29 مايو 2017
المشاركات
21
الإعجابات
14
النقاط
3
العمر
27
تفظل هذه ل listbox
ستحتاج listbox & openfiledialog & button
كود:
Sub Read_m3u()
        OpenFileDialog1.FileName = ""
        OpenFileDialog1.Filter = "HamDane|*.m3u"
        Dim result As DialogResult = OpenFileDialog1.ShowDialog()
        Dim Lines As String() = IO.File.ReadAllLines(OpenFileDialog1.FileName)
        Dim dt As New DataTable
        Dim row(1) As String
        For i As Integer = 0 To Lines.Length - 1
            Dim line As String = Lines(i).ToString.Trim
            If line.StartsWith("#EXTINF") Then
                row(0) = line.Replace("#EXTINF:-1,", "").Trim
            ElseIf line.StartsWith("http://") Then
                row(1) = line.Trim
                Dim a As ListViewItem
                a = ListView1.Items.Add(row(0))
                a.SubItems.Add(row(1))
            End If
        Next
    End Sub
   
       Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
     
       Read_m3u()
    End Sub

جميل جدا حبيبي حليت لي مشكل كبير
من فضلك لو سمحت تكمل خيرك
و اريد حين يختار الشخص مثلا القناة المعينة تشتغل على vlcplugin
يعني كيف ???
 
إنضم
29 مايو 2017
المشاركات
21
الإعجابات
14
النقاط
3
العمر
27
تفظل هذه ل listbox
ستحتاج listbox & openfiledialog & button
كود:
Sub Read_m3u()
        OpenFileDialog1.FileName = ""
        OpenFileDialog1.Filter = "HamDane|*.m3u"
        Dim result As DialogResult = OpenFileDialog1.ShowDialog()
        Dim Lines As String() = IO.File.ReadAllLines(OpenFileDialog1.FileName)
        Dim dt As New DataTable
        Dim row(1) As String
        For i As Integer = 0 To Lines.Length - 1
            Dim line As String = Lines(i).ToString.Trim
            If line.StartsWith("#EXTINF") Then
                row(0) = line.Replace("#EXTINF:-1,", "").Trim
            ElseIf line.StartsWith("http://") Then
                row(1) = line.Trim
                Dim a As ListViewItem
                a = ListView1.Items.Add(row(0))
                a.SubItems.Add(row(1))
            End If
        Next
    End Sub
   
       Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
     
       Read_m3u()
    End Sub


افضل اجابة شكرا لك حبيبي تستاهل كل الخير ربي يجعل الافضل في الميدان
 
إنضم
17 نوفمبر 2016
المشاركات
98
الإعجابات
77
النقاط
18
العمر
25
جميل جدا حبيبي حليت لي مشكل كبير
من فضلك لو سمحت تكمل خيرك
و اريد حين يختار الشخص مثلا القناة المعينة تشتغل على vlcplugin
يعني كيف ???
تفضل اخي

كود:
 Private Sub ListView1_MouseClick(sender As Object, e As MouseEventArgs) Handles ListView1.MouseClick
        Dim channel As String = ListView1.SelectedItems(0).SubItems(0).Text
        Dim lien As String = ListView1.SelectedItems(0).SubItems(1).Text
        AxVLCPlugin21.Visible = True
        AxVLCPlugin21.playlist.stop()
        AxVLCPlugin21.playlist.clear()
        AxVLCPlugin21.playlist.add(lien, Missing.Value, Missing.Value)
        AxVLCPlugin21.playlist.play()

    End Sub
 
إنضم
29 مايو 2017
المشاركات
21
الإعجابات
14
النقاط
3
العمر
27
تفضل اخي

كود:
 Private Sub ListView1_MouseClick(sender As Object, e As MouseEventArgs) Handles ListView1.MouseClick
        Dim channel As String = ListView1.SelectedItems(0).SubItems(0).Text
        Dim lien As String = ListView1.SelectedItems(0).SubItems(1).Text
        AxVLCPlugin21.Visible = True
        AxVLCPlugin21.playlist.stop()
        AxVLCPlugin21.playlist.clear()
        AxVLCPlugin21.playlist.add(lien, Missing.Value, Missing.Value)
        AxVLCPlugin21.playlist.play()

    End Sub

يعطيني خطا في كلمة ;missing كيف احلها
 
إنضم
29 مايو 2017
المشاركات
21
الإعجابات
14
النقاط
3
العمر
27
تفضل اخي

كود:
 Private Sub ListView1_MouseClick(sender As Object, e As MouseEventArgs) Handles ListView1.MouseClick
        Dim channel As String = ListView1.SelectedItems(0).SubItems(0).Text
        Dim lien As String = ListView1.SelectedItems(0).SubItems(1).Text
        AxVLCPlugin21.Visible = True
        AxVLCPlugin21.playlist.stop()
        AxVLCPlugin21.playlist.clear()
        AxVLCPlugin21.playlist.add(lien, Missing.Value, Missing.Value)
        AxVLCPlugin21.playlist.play()

    End Sub
شكرا شكرا شكرا حبيبي و الله انت الاحسن عيدك مبروك و جزاك الله خيرا
اريد طريقة للتواصل معاك
 
إنضم
29 مايو 2017
المشاركات
21
الإعجابات
14
النقاط
3
العمر
27
تفضل اخي

كود:
 Private Sub ListView1_MouseClick(sender As Object, e As MouseEventArgs) Handles ListView1.MouseClick
        Dim channel As String = ListView1.SelectedItems(0).SubItems(0).Text
        Dim lien As String = ListView1.SelectedItems(0).SubItems(1).Text
        AxVLCPlugin21.Visible = True
        AxVLCPlugin21.playlist.stop()
        AxVLCPlugin21.playlist.clear()
        AxVLCPlugin21.playlist.add(lien, Missing.Value, Missing.Value)
        AxVLCPlugin21.playlist.play()

    End Sub


حبيبي اريد منك اخر شيء اخر شيء يا رب لا تبخلني
انت سةيت لي كل شيء ابي شيء اخييير و هو اضافية
خاصية البحث serch
ة جزاك الله بالف خير
 
إنضم
17 نوفمبر 2016
المشاركات
98
الإعجابات
77
النقاط
18
العمر
25
حبيبي اريد منك اخر شيء اخر شيء يا رب لا تبخلني
انت سةيت لي كل شيء ابي شيء اخييير و هو اضافية
خاصية البحث serch
ة جزاك الله بالف خير
عيد مبارك اخي و كل سنة و انت ب ألف خير
كود:
  Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox5.TextChanged
         For Each ITM As ListViewItem In ListView1.Items
            If ITM.SubItems(0).Text = TextBox1.Text Then
                ITM.BackColor = Color.Blue
            End If
        Next
      
    End Sub
 
الحالة
مغلق و غير مفتوح للمزيد من الردود.

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

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

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

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