28-12-20, 11:44 PM
اخوي هذا يعتمد عليك لانك انت الوحيد اللي يعرف ايش الرابط
لكن لو كنت مثلا تريد ان يكون ينتهي الرابط بتنسيق zip او jpg
فانك من داخل الحلقة ومع كل رابط تتحقق هل ينتهي بـ zip او jpg فاذا كان الرابط فعلا ينتهي بالشرط السابق
فيمكنك حفظ الرابط والخروج من الحلقة باستخدام الجملة exit for او يمكنك اكمالها
عموما انت الوحيد الذي يعرف مواصفات الروابط التي تريدها
لكن زيادة في الايضاح الكود التالي mx.Value يحتوي على الروابط المستخرجة
فلو كنت تريد حفظ كل الروابط التي تنتهي بـzip فيجب ان تعرف نص الرابط المخزن في mx.Value
اليك هذا الكود وهو اللي اعطيتك لكن اضفت اليه مصفوفة ا myLinks حفظ فيها الروابط التي اريدها
واذا اردت يمكنك حفظ كل الروابط التي في المصفوفة الى جهازك في ملف نصي
لكن لو كنت مثلا تريد ان يكون ينتهي الرابط بتنسيق 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


