[asmarsou]

(23-01-23, 08:16 PM)Meroo1809 كتب :

(23-01-23, 07:11 PM)anes كتب :

من الاحسن وضع الرابط الصفحة الاصلية لكي يتم كتابة الكود الصحيح لسحب الرابط 

اتفضل رابط الموقع 

 https://www.videezy.com/after-effects-te...s-template

وده السطر اللي انا عايز منه الرابط من الكود سورس 

كود :

<source type="video/mp4" src="https://static.videezy.com/system/resources/previews/000/004/596/original/Clean_Lower_Third_-_M2.mp4" />

اذا كان قصدك اقتصاص بداية الرابط الكامل و نهايته و الابقاء على رابط يمكن توظيفه لعملية تحميل او تصدير او...او
و بما ان سؤالك تبدل من حيث نوع الملف المراد التعامل معه فيمكنك الاستفادة من هذا المثال الجامع المبسط

PHP كود :

Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim sSource As String = TextBox1.Text ' نص الرابط الكامل
        Dim sDelimStart As String = TextBox2.Text 'النص المهمل الاول
        Dim sDelimEnd As String = TextBox3.Text   'النص المهمل الثاني (الاخير)   
        Dim nIndexStart As Integer = sSource.IndexOf(sDelimStart) 'تحديد المهمل الاول
        Dim nIndexEnd As Integer = sSource.IndexOf(sDelimEnd) 'تحديد المهمل الاخير

        If nIndexStart > -1 AndAlso nIndexEnd > -1 Then 'لو تم تحديد المهملان ف
            Dim res As String = Strings.Mid(sSource, nIndexStart + sDelimStart.Length + 1, nIndexEnd - nIndexStart - sDelimStart.Length) 'اقتصاص النص بدون المهملين
            TextBox4.Text = res.Trim 'ناتج الاقتصاص
            Process.Start(res.Trim) 'للتأكد من عملية الاقتصاص
        Else
            MessageBox.Show("احد او كلا النصين المهملين غير موجود") 'نقيض السابق اي عدم تحديد احدى او كلا المهملين
        End If
    End Sub
End Class