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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  تعديل الكود (ظهور مسج بوكس عند عدم وجود الاسم) Namer 10 413 04-01-17, 01:12 AM
آخر رد: Namer
  [سؤال] تعديل html قبل عرضه في WebBrowser ali.alfoly 16 301 24-12-16, 11:48 AM
آخر رد: Basil Abdallah
Information [VB.NET] تعديل بيسط على الكود 3asfa~mdmra 6 123 18-12-16, 04:31 AM
آخر رد: 3asfa~mdmra
  [كود] تعديل كود البحث بين تاريخينب hglogtd 2 100 29-11-16, 01:37 AM
آخر رد: hglogtd
  [VB.NET] طلب تعديل ع الكود ليصبح البرنامج جاهزاً 3asfa~mdmra 8 233 12-11-16, 02:30 AM
آخر رد: 3asfa~mdmra
  [VB.NET] تعديل بسيط على المشروع المرفق أبووسم 4 171 29-10-16, 03:42 PM
آخر رد: أبووسم
  [VB.NET] محتاج تعديل الاكواد . 0theghost0 3 137 18-10-16, 10:52 AM
آخر رد: mhmd_911
  [كود] تعديل في المشروع الخاص بي عبدالرحمن المكاوي 2 151 04-10-16, 08:25 PM
آخر رد: عبدالرحمن المكاوي
  تعديل على كود فتح ملف معين و إنشاء ملف جديد أبووسم 2 200 25-09-16, 02:14 PM
آخر رد: أبووسم
  تعديل الكود لرفع ملف على الانترنت anes 10 420 22-09-16, 04:20 PM
آخر رد: أبو عمر

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


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