(28-12-20, 11:44 PM)معاند الحظ كتب : اخوي هذا يعتمد عليك لانك انت الوحيد اللي يعرف ايش الرابط
لكن لو كنت مثلا تريد ان يكون ينتهي الرابط بتنسيق zip او jpg
فانك من داخل الحلقة ومع كل رابط تتحقق هل ينتهي بـ zip او jpg فاذا كان الرابط فعلا ينتهي بالشرط السابق
فيمكنك حفظ الرابط والخروج من الحلقة باستخدام الجملة exit for او يمكنك اكمالها
عموما انت الوحيد الذي يعرف مواصفات الروابط التي تريدها
لكن زيادة في الايضاح الكود التالي mx.Value يحتوي على الروابط المستخرجة
فلو كنت تريد حفظ كل الروابط التي تنتهي بـzip فيجب ان تعرف نص الرابط المخزن في mx.Value
اليك هذا الكود وهو اللي اعطيتك لكن اضفت اليه مصفوفة ا myLinks حفظ فيها الروابط التي اريدها
واذا اردت يمكنك حفظ كل الروابط التي في المصفوفة الى جهازك في ملف نصي
PHP كود :
Imports System.Net
Imports System.Text.RegularExpressions
Public Class Form1
Dim WithEvents wc As New WebClient
Dim myLinks As New List (Of String)
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
Dim url As String = "https://marketplace.visualstudio.com/"
wc.DownloadStringAsync(New Uri(url))
End Sub
Private Sub wc_DownloadStringCompleted(sender As Object, e As System.Net.DownloadStringCompletedEventArgs) Handles wc.DownloadStringCompleted
Dim pattern As String = "(?:(?:https?|ftp):\/\/|\b(?:[a-z\d]+\.))(?:(?:[^\s()<>]+|\((?:[^\s()<>]+|(?:\([^\s()<>]+\)))?\))+(?:\((?:[^\s()<>]+|(?:\(?:[^\s()<>]+\)))?\)|[^\s`!()\[\]{};:'"".,<>?«»""‘’]))?"
Dim mx As Match
For Each mx In Regex.Matches(e.Result, pattern, RegexOptions.Multiline + RegexOptions.Compiled)
If mx.Value.EndsWith("zip") Then
'حفظ الروابط المطابقة
myLinks.Add(mx.Value)
End if
Next
End Sub
End Class
شكرا لك ولكن حاولت اني استرد الروابط المنتهية مثلا بي png ولكن للاسف مش راضي يستردها
(29-12-20, 12:11 PM)ADAM12 كتب : حسب ما فهمت من سؤالك أن تريد ان تستخرج رابطا من موقع ما و هو قد يتغير الحل سهل
استخدام webclient او webrequest لقراءة محتوى الصفحة و regex لتعيين الرابط الذي تحتاجه من بين كل تلك الأكواد
اذا كان هذا ما تريده اعمل بحث عما اخبرتك و حاول التطبيق اذا لم تنجح سأساعدك
بص يا كبير انا شوفت الموضوع ده بتاع شخص هنا في المنتدي
http://vb4arb.com/vb/showthread.php?tid=36742
وانا عاوز اعمله نفس طريقته ولكن علي الموقع المذكور في الموضوع
وحاولت بالكود الموجود في الموضوع ده ولكن للاسف مش بيرضي يستردها او مش عارف اني استردها انا اريد ان استرد اي رابط مهما كان مثل هذا الموضوع
وشكرا ليك
