تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
سؤال حول تعديل على نص
#1
السلام عليكم احبابي في الله
عندي سؤال بيسط 
كود :
#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
لو حد يصحح الخطأ و شكرا
الرد
تم الشكر بواسطة:
#2
السلام عليكم اخي الكريم
مافهمته من كلامك انك تريد قص النص وتأخذ الجزء الذي بعد الفاصلة
هذا المثال يبين الطريقة و يمكنك الاستفادة منه في ماتريد
ارجو ان بكون طلبك قد تحقق


الملفات المرفقة
.rar   cut string.rar (الحجم : 64.97 ك ب / التحميلات : 10)
الرد
تم الشكر بواسطة: rnmr , trakktour
#3
جرب هذا
كود :
row(0) = line.Split(",")(1)
الرد
تم الشكر بواسطة: trakktour , ابراهيم ايبو
#4
بما ان الجزء الذي يأت بعد الفاصلة هو الأخير فسيكون العنصر الأخير في المصفوفة 
الرد
تم الشكر بواسطة: rnmr , rnmr , trakktour , trakktour
#5
(01-10-18, 01:58 AM)ابراهيم ايبو كتب :
السلام عليكم اخي الكريم
مافهمته من كلامك انك تريد قص النص وتأخذ الجزء الذي بعد الفاصلة
هذا المثال يبين الطريقة و يمكنك الاستفادة منه في ماتريد
ارجو ان بكون طلبك قد تحقق

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

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

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

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

شكرا حبيبي الله يحفظك تم حل المشكل
الرد
تم الشكر بواسطة: ابراهيم ايبو
#6
(01-10-18, 02:06 AM)trakktour كتب :
(01-10-18, 02:02 AM)rnmr كتب : جرب هذا
كود :
row(0) = line.Split(",")(1)

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


عفواً عمو
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] لو سمحتوا ممكن حد يفدني سؤال عن الداتا جرد فيو m.soft.01210 3 56 أمس, 11:33 PM
آخر رد: elgokr
Exclamation [VB.NET] سؤال من العبقريه لو سمحتو m.soft.01210 1 82 11-06-19, 08:39 PM
آخر رد: sniperjawadino
Lightbulb [VB.NET] الرجاء تعديل الكود بالملف المرفق الراس الكبيرة 2 95 01-06-19, 01:40 AM
آخر رد: الراس الكبيرة
  [VB.NET] حدث تعديل الخلية محمد اسماعيل 5 124 19-05-19, 03:57 AM
آخر رد: elgokr
  [سؤال] سلام سؤال تحويل رابط حاتمي 5 148 16-05-19, 02:29 PM
آخر رد: elgokr
  [VB.NET] تعديل اكتر من صف بقاعدة البيانات محمد اسماعيل 7 248 11-05-19, 09:21 PM
آخر رد: elgokr
  [VB.NET] تعديل على كود Split DK-x 3 135 11-05-19, 04:44 PM
آخر رد: elgokr
  [VB.NET] محتاج تعديل على الكود dubai.eig 2 120 07-05-19, 06:02 PM
آخر رد: dubai.eig
  سؤال بخصوص نقل بيانات faysal13_13@hotmail.com 1 123 27-04-19, 10:32 PM
آخر رد: saoud2
  [VB.NET] سؤال بخصوص فتح الشاشات khalid475 3 133 25-04-19, 09:18 PM
آخر رد: elgokr

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم