01-10-18, 01:23 AM
السلام عليكم احبابي في الله
عندي سؤال بيسط
اريد حذف كل شيء مكتوب قبل الفاصل " , "
انا اعمل على هذا الكود
لو حد يصحح الخطأ و شكرا
عندي سؤال بيسط
كود :
#EXTINF:-1 tvg-id="" tvg-name="Bein2 1M" tvg-logo="" group-title="",Bein2 1M
اريد حذف كل شيء مكتوب قبل الفاصل " , "
انا اعمل على هذا الكود
كود :
Dim Lines As String() = IO.File.ReadAllLines("Playlist\FirAs-" & Form1.TextBox3.Text & ".m3u")
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