[تم الحل ] عمل هذا الكود فى كلاس - نسخة قابلة للطباعة

[تم الحل ] عمل هذا الكود فى كلاس - نسخة قابلة للطباعة

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

[تم الحل ] عمل هذا الكود فى كلاس - ابو روضة - 09-04-19

السلام عليكم ورحمة الله وبركاته

لى طلب ووانا اسف والله لانى تعبتكم لكن بحاول والله كتير

كنت عاوز اعمل هذا الكود كما بموضوعى الاخير http://vb4arb.com/vb/showthread.php?tid=29289

أى اجعل هذا الكود اخل كلاس وانادى عليه

كود :

RichTextBox1.Text = WebBrowser1.Document.GetElementsByTagName("HTML").Item(0).OuterHtml

        For Each f As Match In Regex.Matches(RichTextBox1.Text, "href=""\/groups\/(\d+).+?refid=\d+"">+?(.*?)<\/a>", RegexOptions.Compiled + RegexOptions.Multiline)

            ListBox1.Items.Add(f.Groups(1).Value)

        Next

بعد المحاولة عملتها بفضل اله ثم الاستاذ بدرى فهو الذى سهل علىّ هذه الطريقة

كود :

Public Shared Sub post(wb As WebBrowser, Rich As String, List As ListBox)

        Rich = wb.Document.GetElementsByTagName("HTML").Item(0).OuterHtml

        For Each f As Match In Regex.Matches(Rich, "href=""\/groups\/(\d+).+?refid=\d+"">+?(.*?)<\/a>", RegexOptions.Compiled + RegexOptions.Multiline)

            List.Items.Add(f.Groups(1).Value)

        Next

    End Sub

Git_groups_facebook.Class1.post(WebBr, RichTextBox1.Text, ListBox1)

RE: عمل هذا الكود فى كلاس - بدري - 09-04-19

كنت اجهزه لك باسلوب اخر بحيث يكون لك الخيار ان تضعه في listbox او cpmbobox او اي قائمه

لكن سعدت بانك استطعت عمله بنفسك مع افاده الاخرين

Public Shared Function GetPosts(wb As WebBrowser) As Array
Dim txt = wb.Document.GetElementsByTagName("HTML").Item(0).OuterHtml
Dim lst As New List(Of String)
For Each f As Match In Regex.Matches(txt, "href=""\/groups\/(\d+).+?refid=\d+"">+?(.*?)<\/a>", RegexOptions.Compiled + RegexOptions.IgnoreCase)
lst.Add(f.Groups(1).Value)
Next
Return lst.ToArray
End Function

وفي المشروع
ListBox1.Items.AddRange(Git_groups_facebook.Class1.GetPosts(WebBrowser1))

RE: عمل هذا الكود فى كلاس - ابو روضة - 09-04-19

(09-04-19, 02:01 AM)بدري كتب : كنت اجهزه لك باسلوب اخر بحيث يكون لك الخيار ان تضعه في listbox او cpmbobox او اي قائمه

لكن سعدت بانك استطعت عمله بنفسك مع افاده الاخرين

Public Shared Function GetPosts(wb As WebBrowser) As Array
Dim txt = wb.Document.GetElementsByTagName("HTML").Item(0).OuterHtml
Dim lst As New List(Of String)
For Each f As Match In Regex.Matches(txt, "href=""\/groups\/(\d+).+?refid=\d+"">+?(.*?)<\/a>", RegexOptions.Compiled + RegexOptions.IgnoreCase)
lst.Add(f.Groups(1).Value)
Next
Return lst.ToArray
End Function

وفي المشروع
ListBox1.Items.AddRange(Git_groups_facebook.Class1.GetPosts(WebBrowser1))

تسلملى أخى الله ينور عليك والله سهلت عليا أشياء كتيرة بعمل هذه الكلاسات....
معلش انا اسف جدا والله هو ينفع عمل هذا الكود مثلهم أيضاً ؟
هذا انا عملته لكن مش عارف انادى عليه وعملتو كدة

كود :

Imports System.Windows.Forms

Public Class Class1

    Public Shared Sub Login(remove As String)

        Dim i As Integer

        Dim AStr() As String = {"~", "َ", "ً", "ُ", "ٌ", "ٌ", "ِ", "ٍ", "ْ", "ٍ", "ّ", "ٌ", "،", ":", "•"}

        For i = 0 To UBound(AStr)

            Application.DoEvents()

            remove = remove.Replace(AStr(i), "")

            Application.DoEvents()

        Next

    End Sub

End Class

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

RE: عمل هذا الكود فى كلاس - silverlight - 09-04-19

هذه دالة Shared يمكن استدعاؤها بكتابة اسم الكلاس الموجودة فيه متبوعا بنقطة ثم اسم الدالة
لكن ان اردت تحويل الدالة نفسها الي كلاس بحيث يتم استدعاء الكلاس نفسه هنا الأمر يختلف قليلا

RE: عمل هذا الكود فى كلاس - ابو روضة - 09-04-19

(09-04-19, 10:43 AM)silverlight كتب : هذه دالة Shared يمكن استدعاؤها بكتابة اسم الكلاس الموجودة فيه متبوعا بنقطة ثم اسم الدالة
لكن ان اردت تحويل الدالة نفسها الي كلاس بحيث يتم استدعاء الكلاس نفسه هنا الأمر يختلف قليلا

لم اعرف المناداه عليها والله يا اخى وحاولت كذا مرة بهذ ولا تفعل اى شيئ

كود :

Dim smp As New sami

        smp.Login(TextBox1.Text)

RE: عمل هذا الكود فى كلاس - silverlight - 09-04-19

لا تحتاج الي تعريف الكلاس فقط ومباشرة استخدم الكود كالتالي

PHP كود :

Class1.Login(TextBox1.Text) 

RE: عمل هذا الكود فى كلاس - ابو روضة - 09-04-19

(09-04-19, 06:22 PM)silverlight كتب : لا تحتاج الي تعريف الكلاس فقط ومباشرة استخدم الكود كالتالي

PHP كود :

Class1.Login(TextBox1.Text)

جربته اخى ولكنه لم ينفذ الكود اللى بداخله وما بداخله كما تعرف وظيفته لازالة التشكيل من على النصوص
ولما استخدمت كود حضرتك Class1.Login(TextBox1.Text) لم يزيل اى تشكيل والكود الاساس اصلا هو

كود :

Dim i As Integer

        Dim AStr() As String = {"~", "َ", "ً", "ُ", "ٌ", "ٌ", "ِ", "ٍ", "ْ", "ٍ", "ّ", "ٌ", "،", ":", "•"}

        For i = 0 To UBound(AStr)

            Application.DoEvents()

            TextBox1.Text = TextBox1.Text.Replace(AStr(i), "")

            Application.DoEvents()

        Next

لكن انا حبيت اعمله كلاس

RE: عمل هذا الكود فى كلاس - بدري - 09-04-19

بالنسبه لازاله التشكيل تكون الداله بالشكل التالي

Public Shared Function Replacement(txt As String) As String
For Each c As Char In {"~", "َ", "ً", "ُ", "ٌ", "ٌ", "ِ", "ٍ", "ْ", "ٍ", "ّ", "ٌ", "،", ":", "•"}
txt = txt.Replace(c, "")
Next
Return txt
End Function

وفي المشروع

TextBox1.Text = Git_groups_facebook.Class1.Replacement(TextBox1.Text)

لكن الكود الذي فيه progreess وtimer لم افهمه

RE: عمل هذا الكود فى كلاس - ابو روضة - 09-04-19

(09-04-19, 08:57 PM)بدري كتب : بالنسبه لازاله التشكيل تكون الداله بالشكل التالي

Public Shared Function Replacement(txt As String) As String
For Each c As Char In {"~", "َ", "ً", "ُ", "ٌ", "ٌ", "ِ", "ٍ", "ْ", "ٍ", "ّ", "ٌ", "،", ":", "•"}
txt = txt.Replace(c, "")
Next
Return txt
End Function

وفي المشروع

TextBox1.Text = Git_groups_facebook.Class1.Replacement(TextBox1.Text)

لكن الكود الذي فيه progreess وtimer لم افهمه

روح يا شيخ الله يزيدك من فضله وكرمه فعلا هذا نجح...

وموضوع التايمر حذفته اصلا مش وقته...

جزاك الله كل الخير أخى بدرى