[سعود]

اخواني الكرام
امتدادا للسؤال السابق
[سؤال] احتاج مساعدة في نسخ مواضيع المنتدى (الصفحات : 1 2 )


كنت واجهت عدة مشاكل منها:
1- صلاحية تحميل المرفق
2- نوع امتداد الملف لكن لفت انتباهي انه مكتوب


فكيف نعرف او نقرا هذا الامتداد

[@@أبورائد@@]

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


عملت لك طريقة إن شاء الله تفي بالغرض، طبعاً هناك طرق أفضل ومنها استخدام 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)

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

[سعود]

احسها معقدة وغامضة يمكن مع الوقت تنحل العقد و تتضح المعالم.
بصراحة الان تعب مخي.

---

بصراحة الكود رائع ومذهل
اتمنى اقدر افهمه واكتبه بعد الفهم لان الان مضطر استخدمه بدون فهم

[sooriaty03]

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

انظر الرابط