[trakktour]

السلام عليكم احبابي في الله
عندي سؤال بيسط 

كود :

#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

لو حد يصحح الخطأ و شكرا

[ابراهيم ايبو]

السلام عليكم اخي الكريم

مافهمته من كلامك انك تريد قص النص وتأخذ الجزء الذي بعد الفاصلة

هذا المثال يبين الطريقة و يمكنك الاستفادة منه في ماتريد

ارجو ان بكون طلبك قد تحقق

[rnmr]

جرب هذا

كود :

row(0) = line.Split(",")(1)

[ابراهيم ايبو]

بما ان الجزء الذي يأت بعد الفاصلة هو الأخير فسيكون العنصر الأخير في المصفوفة 

[trakktour]

(01-10-18, 01:58 AM)ابراهيم ايبو كتب :

السلام عليكم اخي الكريم

مافهمته من كلامك انك تريد قص النص وتأخذ الجزء الذي بعد الفاصلة

هذا المثال يبين الطريقة و يمكنك الاستفادة منه في ماتريد

ارجو ان بكون طلبك قد تحقق

شكرا يا غالي تم حل المشكل الله يوفقك

---

(01-10-18, 02:03 AM)ابراهيم ايبو كتب :

بما ان الجزء الذي يأت بعد الفاصلة هو الأخير فسيكون العنصر الأخير في المصفوفة 

الله يحفظك اخي العزيز تم حل المشكل

---

(01-10-18, 02:02 AM)rnmr كتب : جرب هذا

كود :

row(0) = line.Split(",")(1)

شكرا حبيبي الله يحفظك تم حل المشكل

[rnmr]

(01-10-18, 02:06 AM)trakktour كتب :

(01-10-18, 02:02 AM)rnmr كتب : جرب هذا

كود :

row(0) = line.Split(",")(1)

شكرا حبيبي الله يحفظك تم حل المشكل

عفواً عمو