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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Star [VB.NET] السلام عليكم اخوتي ف المنتدى احتاج الي مساعدة انا اصمم منظومة لشؤون العاملين بعد اض fatma anari 2 93 04-12-16, 11:04 AM
آخر رد: أبوبكر سويدان
  طلب مساعدة ناتج طرح عددين قيمة سالبه khalaroy 2 54 01-12-16, 03:09 AM
آخر رد: khalaroy
  [سؤال] مساعدة في الفيجوال بيسك عبدالرحمن المكاوي 1 64 28-11-16, 02:11 PM
آخر رد: عبدالرحمن المكاوي
  مساعدة في عمل برنامج rabeh.ram 4 175 27-11-16, 12:29 AM
آخر رد: rabeh.ram
  مساعدة في انشاء ثيم عبدالرحمن المكاوي 11 300 25-11-16, 11:57 AM
آخر رد: العزابي
  تقسيم text الى عدة listbox rabeh.ram 4 106 22-11-16, 12:06 AM
آخر رد: rabeh.ram
  مساعدة في عرض البيانات في التقرير haiderkh 1 75 21-11-16, 11:24 PM
آخر رد: السرور
  مساعدة بخصوص Listbox CLARO 3 81 16-11-16, 06:15 PM
آخر رد: silverlight
  [VB.NET] مساعدة بسيطة في الكمبوبكس . أبووسم 3 88 16-11-16, 11:58 AM
آخر رد: أبووسم
  [VB.NET] تقسيم ملف نصي rabeh.ram 3 150 16-11-16, 02:02 AM
آخر رد: rabeh.ram

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


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