[samira2013]

السلام عليكم
السادة الافاضل 
لدي ملف فيه مجموعة اسطر اريد تقسيمه الى فقرات تبدأ بكلمة محددة و تنتهي بكلمة محددة 
لدي تابع و لكن يعطي فقرة واحدة 

كود :

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