تقييم الموضوع :
  • 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 ك ب / التحميلات : 4)
الرد
تم الشكر بواسطة: 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)

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


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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  سؤال بخصوص الداتا جريد فيو احمد خطاب 0 5 منذ 1 ساعه مضت
آخر رد: احمد خطاب
  سؤال فى التكست بوكس احمد خطاب 0 24 منذ 2 ساعة مضت
آخر رد: احمد خطاب
  سؤال :- فى كيغية ادراج بيانات فى الداتا جريد فيو احمد خطاب 1 65 أمس, 02:54 AM
آخر رد: EYADISMAIL
  سؤال فى الحفظ من الداتا جريد salah mansour 5 91 17-10-18, 06:31 AM
آخر رد: mero5000
  [سؤال] سؤال في vb.net و mysql في شبكة محلية بدون انترنت اللورد محمود 3 64 17-10-18, 04:31 AM
آخر رد: حريف برمجة
  سؤال مهم بالنسبة لي أرجوا الاجابة عليه nrkarat 1 46 16-10-18, 03:49 PM
آخر رد: DOX.1
  سؤال عن الاستعلام والبحث احمد خطاب 5 98 16-10-18, 02:20 AM
آخر رد: mero5000
  سؤال :- عن التيكست بوكس احمد خطاب 1 51 16-10-18, 12:43 AM
آخر رد: عبد العزيز البسكري
  سؤال عن التكست بوكس احمد خطاب 3 77 12-10-18, 08:34 PM
آخر رد: mustafa husaieen
  سؤال عن التكست بوكس احمد خطاب 1 59 12-10-18, 08:17 PM
آخر رد: asemshahen5

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


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