المشاركات : 197
المواضيع 37
الإنتساب : Feb 2017
السمعة :
26
الشكر: 129
تم شكره 254 مرات في 120 مشاركات
السلام عليكم احبابي في الله
عندي سؤال
كيف افتح ملف على ListView
هذا مثال للملف الذي سأفتحه
كود :
#EXTM3U
#EXTINF:-1,AR:Saudi Quran
http://167.99.193.120:8000/live/walidclasico/LbE7uZEk1m/4526.ts
#EXTINF:-1,AR:Salam TV
http://167.99.193.120:8000/live/walidclasico/LbE7uZEk1m/4569.ts
#EXTINF:-1,AR:Resala
http://167.99.193.120:8000/live/walidclasico/LbE7uZEk1m/4530.ts
#EXTINF:-1,AR:Makkah
http://167.99.193.120:8000/live/walidclasico/LbE7uZEk1m/4527.ts
حيث AR:Saudi Quran تكون في الخانة الاولى و الرابط في الثانية
المشاركات : 133
المواضيع 3
الإنتساب : Oct 2013
السمعة :
19
الشكر: 3
تم شكره 172 مرات في 91 مشاركات
هذا ملف قنوات IPTV m3u
يمكن قراءته كملف تكست
اعتقد هذا الكود سيفى بالغرض
كود :
Sub Read_m3u(txtfile As String, dgv As DataGridView)
Dim Lines As String() = IO.File.ReadAllLines("tv.m3u")
Dim dt As New DataTable
dgv.Columns.Clear()
dgv.ColumnCount = 2
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.Split(",")(1).Trim
row(0) = line.Replace("#EXTINF:-1,", "").Trim
ElseIf line.StartsWith("http://") Then
row(1) = line.Trim
dgv.Rows.Add(row)
End If
Next
End Sub
المشاركات : 197
المواضيع 37
الإنتساب : Feb 2017
السمعة :
26
الشكر: 129
تم شكره 254 مرات في 120 مشاركات
(12-05-18, 10:05 AM)mrnooo2000 كتب : هذا ملف قنوات IPTV m3u
يمكن قراءته كملف تكست
اعتقد هذا الكود سيفى بالغرض
كود :
Sub Read_m3u(txtfile As String, dgv As DataGridView)
Dim Lines As String() = IO.File.ReadAllLines("tv.m3u")
Dim dt As New DataTable
dgv.Columns.Clear()
dgv.ColumnCount = 2
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.Split(",")(1).Trim
row(0) = line.Replace("#EXTINF:-1,", "").Trim
ElseIf line.StartsWith("http://") Then
row(1) = line.Trim
dgv.Rows.Add(row)
End If
Next
End Sub
شكرا لك اخي
ممكن بأداة OpenFileDialog
و حذف #EXTINF:0,
يعني الاسم فقط يظهر
المشاركات : 3,815
المواضيع 36
الإنتساب : Mar 2014
السمعة :
724
الشكر: 7238
تم شكره 6709 مرات في 3265 مشاركات
قم باستخدام الكود التالى اعلى او اسفل Public Class Form1
كود :
Sub Read_m3u(dgv As DataGridView)
Dim result As DialogResult = OpenFileDialog1.ShowDialog()
Dim Lines As String() = IO.File.ReadAllLines(OpenFileDialog1.FileName)
Dim dt As New DataTable
dgv.Columns.Clear()
dgv.ColumnCount = 2
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
dgv.Rows.Add(row)
End If
Next
End Sub
قم بانشاء كلاً من
1- OpenFileDialog1
2- Button1
3- DataGridView1
ثم قم بالضغط مرتين على Button1 وقم بادراج السطر التالى
كود :
Read_m3u(DataGridView1)
قم بتشغيل المشروع واستمتع
بالتوفيق
المشاركات : 197
المواضيع 37
الإنتساب : Feb 2017
السمعة :
26
الشكر: 129
تم شكره 254 مرات في 120 مشاركات
(12-05-18, 08:38 PM)elgokr كتب :
قم باستخدام الكود التالى اعلى او اسفل Public Class Form1
كود :
Sub Read_m3u(dgv As DataGridView)
Dim result As DialogResult = OpenFileDialog1.ShowDialog()
Dim Lines As String() = IO.File.ReadAllLines(OpenFileDialog1.FileName)
Dim dt As New DataTable
dgv.Columns.Clear()
dgv.ColumnCount = 2
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
dgv.Rows.Add(row)
End If
Next
End Sub
قم بانشاء كلاً من
1- OpenFileDialog1
2- Button1
3- DataGridView1
ثم قم بالضغط مرتين على Button1 وقم بادراج السطر التالى
كود :
Read_m3u(DataGridView1)
قم بتشغيل المشروع واستمتع
بالتوفيق
شكرا لك اخي الغالي
لو ممكن تغيير DataGridView ب Listview
و حذف EXTINF يعني يبقى الاسم فقط
المشاركات : 3,815
المواضيع 36
الإنتساب : Mar 2014
السمعة :
724
الشكر: 7238
تم شكره 6709 مرات في 3265 مشاركات
13-05-18, 02:35 AM
(آخر تعديل لهذه المشاركة : 13-05-18, 02:42 AM {2} بواسطة elgokr.)
(13-05-18, 01:26 AM)trakktour كتب : شكرا لك اخي الغالي
لو ممكن تغيير DataGridView ب Listview
و حذف EXTINF يعني يبقى الاسم فقط
ولا يهمك اخى الكريم
تفضل الكود الخاص بـ Listview
كود :
Sub Read_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
كود الزر الخاص بـ button
تذكر عند انشاء Listview
قم بانشاء عدد 2 Columns
وليكن اسم الاول [اسم القناه] واسم الاخر [رابط القناه]
بخصوص EXTINF
هذا الشكل عند تطبيق الكود
وقم بالتجربة وسيعمل معك
تمنياتى لك التوفيق
المشاركات : 197
المواضيع 37
الإنتساب : Feb 2017
السمعة :
26
الشكر: 129
تم شكره 254 مرات في 120 مشاركات
(13-05-18, 02:35 AM)elgokr كتب : (13-05-18, 01:26 AM)trakktour كتب : شكرا لك اخي الغالي
لو ممكن تغيير DataGridView ب Listview
و حذف EXTINF يعني يبقى الاسم فقط
ولا يهمك اخى الكريم
تفضل الكود الخاص بـ Listview
كود :
Sub Read_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
كود الزر الخاص بـ button
تذكر عند انشاء Listview
قم بانشاء عدد 2 Columns
وليكن اسم الاول [اسم القناه] واسم الاخر [رابط القناه]
بخصوص EXTINF
هذا الشكل عند تطبيق الكود
وقم بالتجربة وسيعمل معك
تمنياتى لك التوفيق
شكرا لك اخي العزيز الله ينورك
كل شيء تمام
المشاركات : 3,815
المواضيع 36
الإنتساب : Mar 2014
السمعة :
724
الشكر: 7238
تم شكره 6709 مرات في 3265 مشاركات
(13-05-18, 03:14 AM)trakktour كتب : شكرا لك اخي العزيز الله ينورك
كل شيء تمام
الشكر لله وبالتوفيق لك
|