تقييم الموضوع :
  • 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
وشكرا للاستاذ سعود على ردو والاهتمام
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [كود] تعديل كود البحث بين تاريخينب hglogtd 2 44 29-11-16, 01:37 AM
آخر رد: hglogtd
  [VB.NET] طلب تعديل ع الكود ليصبح البرنامج جاهزاً 3asfa~mdmra 8 202 12-11-16, 02:30 AM
آخر رد: 3asfa~mdmra
  [VB.NET] تعديل بسيط على المشروع المرفق أبووسم 4 137 29-10-16, 03:42 PM
آخر رد: أبووسم
  [VB.NET] محتاج تعديل الاكواد . 0theghost0 3 98 18-10-16, 10:52 AM
آخر رد: mhmd_911
  [كود] تعديل في المشروع الخاص بي عبدالرحمن المكاوي 2 110 04-10-16, 08:25 PM
آخر رد: عبدالرحمن المكاوي
  تعديل على كود فتح ملف معين و إنشاء ملف جديد أبووسم 2 149 25-09-16, 02:14 PM
آخر رد: أبووسم
  تعديل الكود لرفع ملف على الانترنت anes 10 349 22-09-16, 04:20 PM
آخر رد: أبو عمر
Rainbow [سؤال] كيف يتم تعديل الكود من الفيجوال بيسك الى الفيجوال دوت نت محمد مسافر 2 190 17-09-16, 08:32 PM
آخر رد: محمد مسافر
  [VB.NET] طلب مشروع تعديل في قيم الريجستري محمد مسافر 2 123 17-09-16, 03:44 PM
آخر رد: محمد مسافر
  [vb6.0] ما هو كود قص او تعديل على الصورة ؟؟ proff2016 0 76 31-08-16, 05:03 PM
آخر رد: proff2016

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


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