[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

[silverlight]

حاول شئ من هذا القبيل

PHP كود :

  Friend Function GetRepeatedString(source As String, firstWord As String) As List(Of String)
        Dim list As List(Of String) = CType(Nothing, List(Of String))
        If Not String.IsNullOrEmpty(source) Then
            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(source, firstword)
            ListBox1.Items.Add(i)
        Next