تقييم الموضوع :
  • 2 أصوات - بمعدل 3
  • 1
  • 2
  • 3
  • 4
  • 5
[كود] طلب تعديل كود
#1
[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(astrSplitItemsstrFilterTextTrueCompareMethod.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]
الرد }}}}
تم الشكر بواسطة:
#2
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
الرد }}}}
تم الشكر بواسطة:
#3
(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 | يظهر
يعرض دا فى تكست بوكس لواحده الهدف انى مبتدئ فى البرمجه وبطبق هذا الاكواد وعندى كود تانى بيطب نفس الفكره بس بيبحث وبفضل مساعدة الاساتذه ناجى ابراهيم وسعود وجوكر وبفضل ربنا ثم حضرتك هتكملى المعلومه
الرد }}}}
تم الشكر بواسطة:
#4
اخي ابراهيم عندي سؤال لك بخصوص السؤال هذا
هل تنسيق النص اجباري؟
اعني هل يمكن ان نصيغ تنسيق معه نستطيع وضع معايير سهلة لاستخلاص النص المطلوب؟
أستودعكم الله الذي لا تضيع ودائعه أرجو ان تجدوا بمشاركاتي ما يجعلكم تدعون لي بخير ان تحتم غيابي.
رحمك الله أبا الليث
الرد }}}}
تم الشكر بواسطة:
#5
(23-03-14, 02:02 AM)سعود كتب : اخي ابراهيم عندي سؤال لك بخصوص السؤال هذا
هل تنسيق النص اجباري؟
اعني هل يمكن ان نصيغ تنسيق معه نستطيع وضع معايير سهلة لاستخلاص النص المطلوب؟

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] برجاء المساعدة فى تعديل هذا الكود (htmlDocument.DocumentNode.SelectNodes) الماجيك مسعد 16 256 أمس, 05:21 PM
آخر رد: alma2
  [VB.NET] احتاج تعديل الكود يخص تشغيل Button حسب user domin hglogtd 4 108 22-05-17, 09:25 AM
آخر رد: hglogtd
  منع تعديل التاريخ والوقت ريم النهاري 7 151 18-05-17, 09:28 AM
آخر رد: ريم النهاري
  [مشروع] ممكن تعديل علي المشروع دموع الوطن 12 209 15-05-17, 09:29 AM
آخر رد: دموع الوطن
  مساعده فى تعديل الكود ده لو سمحتوا يا جماعه نبيل كونكت 2 143 22-04-17, 06:16 PM
آخر رد: عبـدالله
  مساعده وارجو الرد فى ربط الصلاحيات بالبرنامج تعديل الكود بس فين الخطا نبيل كونكت 8 184 20-04-17, 01:41 PM
آخر رد: أسامة السالمي
  كيف يمكن تعديل كموبوكس داخل داتا جريد كفاح 0 72 14-04-17, 12:34 PM
آخر رد: كفاح
  [VB.NET] يرجى المساعدة في تعديل كود الطباعة dubai.eig 14 337 13-04-17, 09:40 PM
آخر رد: dubai.eig
  مساعدة في تعديل الكود المرفق للبحث Filter khaled12345 2 148 10-04-17, 11:41 PM
آخر رد: khaled12345
  طلب تعديل كود فراس محي 1 72 03-04-17, 02:08 PM
آخر رد: فراس محي

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم