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

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

كود :

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

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

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 

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

samira2013

silverlight