10-10-13, 11:49 PM
(آخر تعديل لهذه المشاركة : 10-10-13, 11:55 PM {2} بواسطة @@أبورائد@@.)
السلام عليكم ورحمة الله وبركاته
عملت لك طريقة إن شاء الله تفي بالغرض، طبعاً هناك طرق أفضل ومنها استخدام Regex ولكني لا أتقنها.
قام أخي عبوووودي بإضافة موضوع (شرح التعابير القياسية Regex) إن شاء الله راح استفيد منه إن تحسنت ظروفي.
السلام عليكم ورحمة الله وبركاته
عملت لك طريقة إن شاء الله تفي بالغرض، طبعاً هناك طرق أفضل ومنها استخدام 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)السلام عليكم ورحمة الله وبركاته
