[Meroo1809]

السلام عليكم

ازاي اسحب رابط من سطر كامل من داخل مربع نص كبير فيه سطور كتير مع العلم السطر في كلمة مميزة ثابتة وبعدها الرابط عايز اسحب الرابط ده يظهر في textbox ياريت حد يقدر يساعدني بالكود المناسب

مثال

 السطر وهذا النص الثابت "contentUrl":

كود :

"contentUrl": "https://www.arapenz.com/wp-content/uploads/2020/05/%D9%85%D9%88%D9%82%D8%B9-%D8%AA%D8%AD%D9%85%D9%8A%D9%84-%D8%A7%D9%84%D8%B5%D9%88%D8%B1-old-stock.jpg",

[aljzazy]

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

[Meroo1809]

---

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

(23-01-23, 01:40 PM)aljzazy كتب : سؤالك غير واضح
اذا كنت تقصد ان تقوم بتحميل صورة من موقع في picturebox
فهنا السؤال يختلف

لا انا لا اريد ربطها في picturebox , يا اخي هوضحلك دلوقتي انا عندي موقع بسحب الكود سورس بتاعه في صندوق نص عشان عايز منه رابط معين الرابط ده في قبله كلمة ثابتة انا عايز كود يخليني احدد الرابط من الكود سورس نفسه من خلال الكلمة الثابتة دي

[anes]

(23-01-23, 02:05 AM)Meroo1809 كتب :

السلام عليكم

ازاي اسحب رابط من سطر كامل من داخل مربع نص كبير فيه سطور كتير مع العلم السطر في كلمة مميزة ثابتة وبعدها الرابط عايز اسحب الرابط ده يظهر في textbox ياريت حد يقدر يساعدني بالكود المناسب

مثال

 السطر وهذا النص الثابت "contentUrl":

كود :

"contentUrl": "https://www.arapenz.com/wp-content/uploads/2020/05/%D9%85%D9%88%D9%82%D8%B9-%D8%AA%D8%AD%D9%85%D9%8A%D9%84-%D8%A7%D9%84%D8%B5%D9%88%D8%B1-old-stock.jpg",

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

[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" />

[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 


[trakktour]

(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" />

تفضل

كود :

       Try : Net.ServicePointManager.CheckCertificateRevocationList = False : Net.ServicePointManager.DefaultConnectionLimit = 300 : Net.ServicePointManager.UseNagleAlgorithm = False : Net.ServicePointManager.Expect100Continue = False : Net.ServicePointManager.SecurityProtocol = 3072
           Dim Encoding As New System.Text.UTF8Encoding
           Dim AJ As Net.HttpWebRequest = DirectCast(Net.WebRequest.Create("https://www.videezy.com/after-effects-templates/4596-simple-clean-lower-third-intro-4k-after-effects-template"), Net.HttpWebRequest)
           With AJ
               .Method = "GET"
               .Proxy = Nothing
               .UserAgent = "Mozilla/5.0 (Windows NT 10.0) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/109.0.0.0 Safari/537.36"
               .AutomaticDecompression = Net.DecompressionMethods.Deflate Or Net.DecompressionMethods.GZip
           End With
           Dim Response As Net.HttpWebResponse = DirectCast(AJ.GetResponse, Net.HttpWebResponse)
           Dim reader As New IO.StreamReader(Response.GetResponseStream) : Dim text As String = reader.ReadToEnd : reader.Dispose() : reader.Close() : Response.Dispose() : Response.Close()
           Dim src As String = System.Text.RegularExpressions.Regex.Match(text, "<source type=""video/mp4"" src=""(.*?)"" />").Groups(1).Value

           MsgBox(src)

       Catch ex As System.Net.WebException
       End Try

[Meroo1809]

(23-01-23, 10:09 PM)trakktour كتب :

(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" />

تفضل

كود :

       Try : Net.ServicePointManager.CheckCertificateRevocationList = False : Net.ServicePointManager.DefaultConnectionLimit = 300 : Net.ServicePointManager.UseNagleAlgorithm = False : Net.ServicePointManager.Expect100Continue = False : Net.ServicePointManager.SecurityProtocol = 3072
           Dim Encoding As New System.Text.UTF8Encoding
           Dim AJ As Net.HttpWebRequest = DirectCast(Net.WebRequest.Create("https://www.videezy.com/after-effects-templates/4596-simple-clean-lower-third-intro-4k-after-effects-template"), Net.HttpWebRequest)
           With AJ
               .Method = "GET"
               .Proxy = Nothing
               .UserAgent = "Mozilla/5.0 (Windows NT 10.0) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/109.0.0.0 Safari/537.36"
               .AutomaticDecompression = Net.DecompressionMethods.Deflate Or Net.DecompressionMethods.GZip
           End With
           Dim Response As Net.HttpWebResponse = DirectCast(AJ.GetResponse, Net.HttpWebResponse)
           Dim reader As New IO.StreamReader(Response.GetResponseStream) : Dim text As String = reader.ReadToEnd : reader.Dispose() : reader.Close() : Response.Dispose() : Response.Close()
           Dim src As String = System.Text.RegularExpressions.Regex.Match(text, "<source type=""video/mp4"" src=""(.*?)"" />").Groups(1).Value

           MsgBox(src)

       Catch ex As System.Net.WebException
       End Try

شكرا جدا لك اخي الكريم هذا فعلا المطلوب بارك الله فيك وزادك من علمه