[السكر المغرور]

السلام عليكم ،،

كيفكم أخواني ،، اليوم كنت اتصفح مواقع أجنبيه و الصراحه أعجبني كود لقيته فقلت أشاركه هنا :
أولاً لبساطة الكود
ثانيا قد يستفيد منه أحد

المهم لا أطول بالحديث

فكرة عن عمل البرنامج من خلال الصورة



الكود البرمجي له

كود :

[align=left]
Imports System.Text.RegularExpressions

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        RichTextBox1.Text = IO.File.ReadAllText("C:\Users\Paul\Desktop\1.txt")
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim rx As New Regex("Imports|Public|Class|Private|Sub|End|ByVal|As|Handles|MyBase|Dim|New|For |Each|In |Next")
        For Each m As Match In rx.Matches(RichTextBox1.Text)
            RichTextBox1.SelectionStart = m.Index
            RichTextBox1.SelectionLength = m.Value.Length
            RichTextBox1.SelectionColor = Color.Blue
        Next
        rx = New Regex(""".+""")
        For Each m As Match In rx.Matches(RichTextBox1.Text)
            RichTextBox1.SelectionStart = m.Index
            RichTextBox1.SelectionLength = m.Value.Length
            RichTextBox1.SelectionColor = Color.Tomato
        Next
    End Sub

End Class
[/align]

[ربيع]

بارك الله فيك وجزاك كل خير

[سامى ابوسريع]

جزاك الله كل خير اخى

[abidin]

الله يجازيك خير

[Omar Mekkawy]

الله يعطيك العافية كود مميز فعلاً

[derbaliammar]

ما شاء الله ... شكرا كثيرا على المجهود

[abdoojh]

مشكورررررر وبارك الله فيك

[سعود]

ماشاء الله لاقوة الا بالله
من عام 2013 الموضوع موجود ولم اعلم به الا الان؟!
ابسط مثال يوضح كيفية استخدام الـ Regex

[tryold]

شكرا لك اخي على هذا الكود

لقد افادني جدا في مواضيع اخرى

يعطيم العافية

[farhat ali]

بارك الله فيك
لطالما بحث عنه