+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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=472)
كيف نقرا هذا الجزء من الصفحة - سعود - 10-10-13
اخواني الكرام
امتدادا للسؤال السابق
[سؤال] احتاج مساعدة في نسخ مواضيع المنتدى (الصفحات : 1 2 )
كنت واجهت عدة مشاكل منها:
1- صلاحية تحميل المرفق
2- نوع امتداد الملف لكن لفت انتباهي انه مكتوب
فكيف نعرف او نقرا هذا الامتداد
RE: كيف نقرا هذا الجزء من الصفحة - @@أبورائد@@ - 10-10-13
السلام عليكم ورحمة الله وبركاته
عملت لك طريقة إن شاء الله تفي بالغرض، طبعاً هناك طرق أفضل ومنها استخدام Regex ولكني لا أتقنها.
قام أخي عبوووودي بإضافة موضوع (شرح التعابير القياسية Regex) إن شاء الله راح استفيد منه إن تحسنت ظروفي.
كود :
Dim htmlString = TextBox1.Text
Dim i1 As Integer = htmlString.IndexOf("attachment.php?aid=")
Dim attachmentURL As String = "http://vb4arb.com/vb/" & htmlString.Substring(i1, htmlString.IndexOf("""", i1) - i1)
i1 = htmlString.IndexOf(">", i1) + 1
Dim i2 As Integer = htmlString.IndexOf("<", i1)
Dim attachmentFilename As String = htmlString.Substring(i1, i2 - i1)
MsgBox(attachmentURL)
MsgBox(attachmentFilename)السلام عليكم ورحمة الله وبركاته
RE: كيف نقرا هذا الجزء من الصفحة - سعود - 11-10-13
احسها معقدة وغامضة يمكن مع الوقت تنحل العقد و تتضح المعالم.
بصراحة الان تعب مخي.
بصراحة الكود رائع ومذهل
اتمنى اقدر افهمه واكتبه بعد الفهم لان الان مضطر استخدمه بدون فهم
RE: كيف نقرا هذا الجزء من الصفحة - sooriaty03 - 11-10-13
السلام عليكم ورحمة الله وبركاته
انظر الرابط