+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : مساعدة كود تقسيم ملف الى فقرات تبدأ بكلمة محددة (/showthread.php?tid=15266)
مساعدة كود تقسيم ملف الى فقرات تبدأ بكلمة محددة - samira2013 - 30-03-16
السلام عليكم
السادة الافاضل
لدي ملف فيه مجموعة اسطر اريد تقسيمه الى فقرات تبدأ بكلمة محددة و تنتهي بكلمة محددة
لدي تابع و لكن يعطي فقرة واحدة
كود :
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 FunctionRE: مساعدة كود تقسيم ملف الى فقرات تبدأ بكلمة محددة - silverlight - 30-03-16
حاول شئ من هذا القبيل
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