تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[تم الحل ] عمل هذا الكود فى كلاس
#1
السلام عليكم ورحمة الله وبركاته
لى طلب ووانا اسف والله لانى تعبتكم لكن بحاول والله كتير
كنت عاوز اعمل هذا الكود كما بموضوعى الاخير  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)


الرد }}}
تم الشكر بواسطة: بدري , elgokr
#2
كنت اجهزه لك باسلوب اخر بحيث يكون لك الخيار ان تضعه في 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))
الرد }}}
تم الشكر بواسطة: elgokr , ابو روضة
#3
(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


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

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

كود :
Dim smp As New sami
       smp.Login(TextBox1.Text)
الرد }}}
تم الشكر بواسطة:
#6
لا تحتاج الي تعريف الكلاس فقط ومباشرة استخدم الكود كالتالي

PHP كود :
Class1.Login(TextBox1.Text
Retired
الرد }}}
تم الشكر بواسطة:
#7
(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

لكن انا حبيت اعمله كلاس
الرد }}}
تم الشكر بواسطة:
#8
بالنسبه لازاله التشكيل تكون الداله بالشكل التالي

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 لم افهمه
الرد }}}
تم الشكر بواسطة: ابو روضة
#9
(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 لم افهمه


روح يا شيخ الله يزيدك من فضله وكرمه فعلا هذا نجح...
وموضوع التايمر حذفته اصلا مش وقته...
جزاك الله كل الخير أخى بدرى
الرد }}}
تم الشكر بواسطة: بدري


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  ممكن حل المشكلة فى الكود التالي - من مشاركة استاذنا القدير / عبدالله الدوسري new_programer 4 169 02-03-24, 07:36 PM
آخر رد: new_programer
  [VB.NET] تحديث بيانات فى كلاس من جدول سيكوال asdfar1977 6 184 26-02-24, 01:07 AM
آخر رد: asdfar1977
  ماهو حل هذا الخطأ في الكود melad2002 7 264 25-02-24, 12:25 AM
آخر رد: justforit
  كيفية انشاء سكريبت لقاعدة بيانات من خلال الكود heem1986 1 194 20-02-24, 12:00 AM
آخر رد: Kamil
  [VB.NET] أرغب فى استخدام هذا الكود بالتحديد على الإصدار 10 AmeenRashed 3 206 19-01-24, 12:42 PM
آخر رد: Taha Okla
  [VB.NET] ما الخطأ فى هذا الكود - كود البحث المتعدد Ashraf Elafify 7 464 27-12-23, 10:50 PM
آخر رد: Ashraf Elafify
  [VB.NET] اريد تعديل في الكود عند طباعة DGV abu_hisham7 1 431 03-12-23, 02:40 AM
آخر رد: abu_hisham7
  رجاء التعديل على الكود المرفق - كلاس لعرض كود المورد new_programer 4 357 13-10-23, 01:47 AM
آخر رد: new_programer
  كيفية التحكم فى حجم الفورم من خلال الكود Ahmed.vb 4 510 11-10-23, 07:17 PM
آخر رد: bidaya
  البرنامج لدي يعمل على ويندوز 11 والان لا يعمل على ويندوز 10 ماهو الحل moh61 1 280 01-09-23, 04:38 AM
آخر رد: اسامه الهرماوي

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


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