منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

(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)

---

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

(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

(29-10-18, 04:52 PM)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)

---

---

معلش يا غالى الله يكرمك اصلى بتدرب والله عليها لسة

بحاول أجلب من بين علامتى <> لكن مش عارف انا عرفت بفضل الله ثم انت اجلب ما
بين الاقواس لكن هذه لسة

<font color="#800000">انطلق في ميدان حياتك</font>

الباترين

<font color="#800000"(>.+?<\/font>)

---

عرفت بعد المحاولة بفضل الله

<font color="#800000">(.+?)<\/font>