[كود] طلب تعديل كود - نسخة قابلة للطباعة

[كود] طلب تعديل كود - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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=2335)

طلب تعديل كود - ابراهيم مراد - 22-03-14

[b]السلام عليكم اخوانى اريد تعديل على هذا الكود الكود يعمل على console
انا اريد استخدام الكود على فورم باستخدام تكستات بوكس وبوتن

PHP كود :

Dim strInputString As String
        Dim strFilterText As String
        Dim astrSplitItems() As String
        Dim astrFilteredItems() As String
        Dim strFilteredString As String
        Dim intX As Integer
 
        Console.Write("Enter a comma-delimited string of items: ")
        strInputString = Console.ReadLine()
        Console.Write("Enter Filter: ")
        strFilterText = Console.ReadLine()
 
        Console.WriteLine("Original Input String: " & strInputString)
        Console.WriteLine()
        Console.WriteLine("Split Items:")
        astrSplitItems = strInputString.Split(",")
        For intX = 0 To UBound(astrSplitItems)
            Console.WriteLine("Item(" & CStr(intX) & "): " & astrSplitItems(intX))
        Next
        Console.WriteLine()
        Console.WriteLine("Filtered Items (using '" & strFilterText & "'):")
        astrFilteredItems = Filter(astrSplitItems, strFilterText, True, CompareMethod.Text)
        For intX = 0 To UBound(astrFilteredItems)
            Console.WriteLine("Item(" & CStr(intX) & "): " & astrFilteredItems(intX))
        Next
        Console.WriteLine()
        strFilteredString = String.Join(",", astrFilteredItems)
        Console.WriteLine("Filtered Output String: " & strFilteredString)
 
        Console.WriteLine("")
        Console.WriteLine("(Press Enter to close this window.)")
        Console.ReadLine() 

<img src='http://istoreimg.com/upload/big/2014/03/23/532dc52c7ed8d.jpg' alt='image' /></a>
واريد ياخد سطر مش ياخد يقسم الكلمات يعنى لو السطر يجد فى مثلا كلمة ابل يعرض كل الاسطر اللى فيها كلمة ابل ودى صورة للكود على الكنسول[/b]

RE: طلب تعديل كود - Aly El-Haddad - 22-03-14

TextBox1 للـInput String
TextBox2 للـFilter
TextBox3 للـOutput String

كود :

Dim astrSplitItems() As String

        Dim astrFilteredItems() As String

        Dim strFilteredString As String

        TextBox3.Text = "Original Input String: " & TextBox1.Text & vbCrLf

        TextBox3.Text &= vbCrLf

        TextBox3.Text &= "Split Items:" & vbCrLf

        astrSplitItems = TextBox1.Text.Split(",")

        For I As Integer = 0 To astrSplitItems.Length - 1

            TextBox3.Text &= "Item(" & CStr(I) & "): " & astrSplitItems(I) & vbCrLf

        Next

        TextBox3.Text &= vbCrLf

        TextBox3.Text &= "Filtered Items (using '" & TextBox2.Text & "'):" & vbCrLf

        astrFilteredItems = Filter(astrSplitItems, TextBox2.Text, True, CompareMethod.Text)

        For I As Integer = 0 To astrFilteredItems.Length - 1

            TextBox3.Text &= "Item(" & CStr(I) & "): " & astrFilteredItems(I) & vbCrLf

        Next

        TextBox3.Text &= vbCrLf

        strFilteredString = String.Join(",", astrFilteredItems)

        TextBox3.Text &= "Filtered Output String: " & strFilteredString

RE: طلب تعديل كود - ابراهيم مراد - 23-03-14

(22-03-14, 11:08 PM)Aly El-Haddad كتب : TextBox1 للـInput String
TextBox2 للـFilter
TextBox3 للـOutput String

كود :

Dim astrSplitItems() As String Dim astrFilteredItems() As String Dim strFilteredString As String TextBox3.Text = "Original Input String: " & TextBox1.Text & vbCrLf TextBox3.Text &= vbCrLf TextBox3.Text &= "Split Items:" & vbCrLf astrSplitItems = TextBox1.Text.Split(",") For I As Integer = 0 To astrSplitItems.Length - 1 TextBox3.Text &= "Item(" & CStr(I) & "): " & astrSplitItems(I) & vbCrLf Next TextBox3.Text &= vbCrLf TextBox3.Text &= "Filtered Items (using '" & TextBox2.Text & "'):" & vbCrLf astrFilteredItems = Filter(astrSplitItems, TextBox2.Text, True, CompareMethod.Text) For I As Integer = 0 To astrFilteredItems.Length - 1 TextBox3.Text &= "Item(" & CStr(I) & "): " & astrFilteredItems(I) & vbCrLf Next TextBox3.Text &= vbCrLf strFilteredString = String.Join(",", astrFilteredItems) TextBox3.Text &= "Filtered Output String: " & strFilteredString

بشكر حضرتك جدآ على اهتمامك وردك والكود فعلا شغال ولكن انا اريد يفلتر بالكلمه وسطر تحت سطر لاكن هذا الكود بيفلتر بالحرف ومن سطر واحد على سبيل المثال
| 1200 | hazem | 25 |
| 3200 | mohaned | 56 |
| 560 | nader | 78 |
اريد اكتب مثلا حازم
| 1200 | hazem | 25 | يظهر
يعرض دا فى تكست بوكس لواحده الهدف انى مبتدئ فى البرمجه وبطبق هذا الاكواد وعندى كود تانى بيطب نفس الفكره بس بيبحث وبفضل مساعدة الاساتذه ناجى ابراهيم وسعود وجوكر وبفضل ربنا ثم حضرتك هتكملى المعلومه

RE: طلب تعديل كود - سعود - 23-03-14

اخي ابراهيم عندي سؤال لك بخصوص السؤال هذا
هل تنسيق النص اجباري؟
اعني هل يمكن ان نصيغ تنسيق معه نستطيع وضع معايير سهلة لاستخلاص النص المطلوب؟

RE: طلب تعديل كود - ابراهيم مراد - 23-03-14

(23-03-14, 02:02 AM)سعود كتب : اخي ابراهيم عندي سؤال لك بخصوص السؤال هذا
هل تنسيق النص اجباري؟
اعني هل يمكن ان نصيغ تنسيق معه نستطيع وضع معايير سهلة لاستخلاص النص المطلوب؟

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

RE: طلب تعديل كود - ابراهيم مراد - 23-03-14

تم التعديل على الكود شكرا لكل الاساتذه الذى سعدتنى والاستاذ المحترف شكرا جدا على تعديل الكود بفضل ربنا ثم حضرتك تم تكملة الفكرة Aly El-Haddad
وشكرا للاستاذ سعود على ردو والاهتمام