[XBOOBX]

(29-10-18, 04:21 PM)ابو روضة كتب :

(29-10-18, 03:51 PM)XBOOBX كتب :

وعليكم السلام اخي 

اخي لا تنسى وضع Groups

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

كود :

 Dim wc As New WebClient
       wc.Encoding = Encoding.UTF8
       Dim sourceString As String = wc.DownloadString(TextBox4.Text)
       Dim patren As String = Regex.Match(sourceString, "title=""(.+?pdf)").Groups.Item(1).ToString 'Groups تحديد النص ما بين القوسين
       RichTextBox1.Text = (patren)

الله يسعد قلبك أخى الكريم ويبارك بعمرك...

فعلا نجحت جزاك الله كل الخير.

---

ليه يا أخى لو سمحت لما حبيت أجلب كل الأسماء تكررو

كود :

Dim web As New WebClient()
       web.Encoding = Encoding.UTF8
       Dim result As String = web.DownloadString(TextBox1.Text)
       Dim a12 As MatchCollection = Regex.Matches(result, "title=""(.+?pdf)", RegexOptions.IgnoreCase)
       For i = 0 To a12.Count - 1
           ListBox1.Items.Add(a12(i).Groups(1).Value)
       Next

اشكرك اخي ودلل ويجزيك الله الخير ان شاء الله


اتفضل اخي جرب هذا الباترن

كود :

<a class=""img-a"" title=""(.+?pdf)