منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
سؤال حول تعديل على نص - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : سؤال حول تعديل على نص (/showthread.php?tid=26730)

سؤال حول تعديل على نص - trakktour - 01-10-18

السلام عليكم احبابي في الله
عندي سؤال بيسط 
كود :
#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
لو حد يصحح الخطأ و شكرا

RE: سؤال حول تعديل على نص - ابراهيم ايبو - 01-10-18

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


RE: سؤال حول تعديل على نص - rnmr - 01-10-18

جرب هذا
كود :
row(0) = line.Split(",")(1)


RE: سؤال حول تعديل على نص - ابراهيم ايبو - 01-10-18

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


RE: سؤال حول تعديل على نص - trakktour - 01-10-18

(01-10-18, 01:58 AM)ابراهيم ايبو كتب :
السلام عليكم اخي الكريم
مافهمته من كلامك انك تريد قص النص وتأخذ الجزء الذي بعد الفاصلة
هذا المثال يبين الطريقة و يمكنك الاستفادة منه في ماتريد
ارجو ان بكون طلبك قد تحقق

شكرا يا غالي تم حل المشكل الله يوفقك
(01-10-18, 02:03 AM)ابراهيم ايبو كتب :
بما ان الجزء الذي يأت بعد الفاصلة هو الأخير فسيكون العنصر الأخير في المصفوفة 

الله يحفظك اخي العزيز تم حل المشكل
(01-10-18, 02:02 AM)rnmr كتب : جرب هذا
كود :
row(0) = line.Split(",")(1)

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

RE: سؤال حول تعديل على نص - rnmr - 01-10-18

(01-10-18, 02:06 AM)trakktour كتب :
(01-10-18, 02:02 AM)rnmr كتب : جرب هذا
كود :
row(0) = line.Split(",")(1)

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


عفواً عمو