المشاركات : 1,468
المواضيع 351
الإنتساب : Apr 2016
السمعة :
334
الشكر: 3379
تم شكره 2456 مرات في 1124 مشاركات
09-04-19, 12:48 AM
(آخر تعديل لهذه المشاركة : 09-04-19, 09:30 PM {2} بواسطة ابو روضة.)
السلام عليكم ورحمة الله وبركاته
لى طلب ووانا اسف والله لانى تعبتكم لكن بحاول والله كتير
أى اجعل هذا الكود اخل كلاس وانادى عليه
كود :
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)
المشاركات : 100
المواضيع 1
الإنتساب : Jan 2019
السمعة :
35
الشكر: 189
تم شكره 249 مرات في 107 مشاركات
كنت اجهزه لك باسلوب اخر بحيث يكون لك الخيار ان تضعه في 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))
المشاركات : 1,468
المواضيع 351
الإنتساب : Apr 2016
السمعة :
334
الشكر: 3379
تم شكره 2456 مرات في 1124 مشاركات
09-04-19, 04:35 AM
(آخر تعديل لهذه المشاركة : 09-04-19, 05:21 PM {2} بواسطة ابو روضة.)
(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
لو نفعت يبقى كدة انت تخطيت مرحلة الابداع والله وسمجنى تعبتك
المشاركات : 1,486
المواضيع 101
الإنتساب : Sep 2012
السمعة :
127
الشكر: 71
تم شكره 6155 مرات في 1035 مشاركات
هذه دالة Shared يمكن استدعاؤها بكتابة اسم الكلاس الموجودة فيه متبوعا بنقطة ثم اسم الدالة
لكن ان اردت تحويل الدالة نفسها الي كلاس بحيث يتم استدعاء الكلاس نفسه هنا الأمر يختلف قليلا
Retired
المشاركات : 1,468
المواضيع 351
الإنتساب : Apr 2016
السمعة :
334
الشكر: 3379
تم شكره 2456 مرات في 1124 مشاركات
09-04-19, 05:22 PM
(آخر تعديل لهذه المشاركة : 09-04-19, 05:24 PM {2} بواسطة ابو روضة.)
(09-04-19, 10:43 AM)silverlight كتب : هذه دالة Shared يمكن استدعاؤها بكتابة اسم الكلاس الموجودة فيه متبوعا بنقطة ثم اسم الدالة
لكن ان اردت تحويل الدالة نفسها الي كلاس بحيث يتم استدعاء الكلاس نفسه هنا الأمر يختلف قليلا
لم اعرف المناداه عليها والله يا اخى وحاولت كذا مرة بهذ ولا تفعل اى شيئ
كود :
Dim smp As New sami
smp.Login(TextBox1.Text)
المشاركات : 1,486
المواضيع 101
الإنتساب : Sep 2012
السمعة :
127
الشكر: 71
تم شكره 6155 مرات في 1035 مشاركات
لا تحتاج الي تعريف الكلاس فقط ومباشرة استخدم الكود كالتالي
PHP كود :
Class1.Login(TextBox1.Text)
Retired
المشاركات : 1,468
المواضيع 351
الإنتساب : Apr 2016
السمعة :
334
الشكر: 3379
تم شكره 2456 مرات في 1124 مشاركات
09-04-19, 07:28 PM
(آخر تعديل لهذه المشاركة : 09-04-19, 07:30 PM {2} بواسطة ابو روضة.)
(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
لكن انا حبيت اعمله كلاس
المشاركات : 100
المواضيع 1
الإنتساب : Jan 2019
السمعة :
35
الشكر: 189
تم شكره 249 مرات في 107 مشاركات
09-04-19, 08:57 PM
(آخر تعديل لهذه المشاركة : 09-04-19, 08:58 PM {2} بواسطة بدري.)
بالنسبه لازاله التشكيل تكون الداله بالشكل التالي
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 لم افهمه
المشاركات : 1,468
المواضيع 351
الإنتساب : Apr 2016
السمعة :
334
الشكر: 3379
تم شكره 2456 مرات في 1124 مشاركات
(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 لم افهمه
روح يا شيخ الله يزيدك من فضله وكرمه فعلا هذا نجح...
وموضوع التايمر حذفته اصلا مش وقته...
جزاك الله كل الخير أخى بدرى
|