تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
مساعدة كود تقسيم ملف الى فقرات تبدأ بكلمة محددة
#1
السلام عليكم
السادة الافاضل 
لدي ملف فيه مجموعة اسطر اريد تقسيمه الى فقرات تبدأ بكلمة محددة و تنتهي بكلمة محددة 
لدي تابع و لكن يعطي فقرة واحدة 
كود :
Function GetSubString(ByVal inText As String, ByVal firstWord As String, ByVal secondWord As String) As String
       Dim indexFirst As Integer = inText.IndexOf(firstWord)
       Dim indexSecond As Integer = inText.IndexOf(secondWord)
       Return inText.Substring(indexFirst, indexSecond - indexFirst + secondWord.Length)
   End Function
الرد }}}}
تم الشكر بواسطة:
#2
حاول شئ من هذا القبيل

PHP كود :
  Friend Function GetRepeatedString(source As StringfirstWord As String) As List(Of String)
 
       Dim list As List(Of String) = CType(Nothing, List(Of String))
 
       If Not String.IsNullOrEmpty(sourceThen
            Return 
New List(Of String)(source.Split({firstWord}, StringSplitOptions.RemoveEmptyEntries))
 
       End If
 
       Return CType(Nothing, List(Of String))
 
   End Function 



الاستخدام

PHP كود :
       Dim source As String "Fox Can you Read?  Fox Can you play? Fox Can you code?"
 
       Dim firstword As String "Fox" 

هنا تحديدا انا قمت بإضافة العناصر الموجودةفي التكست الي ليست بوكس من اجل التوضيح لا غير
PHP كود :
 For Each i As String In GetRepeatedString(sourcefirstword)
 
           ListBox1.Items.Add(i)
 
       Next 
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [كود] مساعدة في عمل عضوية مميزة عبدالرحمن المكاوي 0 31 21-09-17, 05:51 PM
آخر رد: عبدالرحمن المكاوي
  مساعدة safalo 3 65 19-09-17, 03:46 PM
آخر رد: أبو نوره
  تقسيم الطلاب الي مجموعات atefkhalf2004 2 83 16-09-17, 09:06 PM
آخر رد: أبو نوره
  [نقاش] مساعدة من حضراتكم salma.eg 1 51 15-09-17, 09:45 PM
آخر رد: أبو نوره
  [VB.NET] محتاج مساعدة من فضلكم asadtaif 2 84 15-09-17, 01:01 PM
آخر رد: asadtaif
  [VB.NET] مساعدة التكست بوكس محمد بوقزاحة 3 75 10-09-17, 03:31 AM
آخر رد: Rabeea Qbaha
  [VB.NET] مساعدة في Card Reader 0theghost0 2 106 09-09-17, 05:25 PM
آخر رد: ola
  مساعدة في كود البحث أبووسم 9 235 08-09-17, 09:44 PM
آخر رد: أبووسم
  [VB.NET] طلب مساعدة في جلب بيانات dubai.eig 1 112 06-09-17, 02:03 AM
آخر رد: سعود
  [VB.NET] مساعدة مع داتاجريد لمعرفة الكمية المتوفرة 0theghost0 4 129 29-08-17, 01:21 AM
آخر رد: حريف برمجة

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


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