+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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=32781)
RE: اين الخطأ في هذا الكود - اليوم السابع - 06-01-20
(06-01-20, 11:32 AM)3booody كتب : انطيني رابط الصفحة خلي اجربلك ان شاء الله اتوصل لنتيجة
ده الرابط هو رابط صفحه اعضاء الجروب علي الفيس بوك
https://www.facebook.com/groups/aexaqar/members/
RE: اين الخطأ في هذا الكود - جميل - 06-01-20
الخطأ أن أداة TextBox لا تستطيع أن تضع فيها أكثر من 32768 حرف،
ومصدر الصفحة DocumentText يتجاوز الحد الأقصى للأداة،
لهذا لا داعي لوضع محتوى DoumentText في أداة TextBox،
فإما أن تتعامل مع DoumentText مباشرة أو تضعها في متغير نصي ثم تتعامل مع المتغير.
لأن المتغير النصي يتحمل حتى 2 جيجا حرف.
PHP كود :
Dim member_id = System.Text.RegularExpressions.Regex.Matches(WebBrowser1.DocumentText, "member_id=(.+)&")
For Each txt As System.Text.RegularExpressions.Match In member_id
If ListBox1.FindStringExact(txt.Groups(1).Value) = -1 Then
ListBox1.Items.Add(txt.Groups(1).Value)
End If
Next
Label1.Text = ListBox1.Items.Count