السلام عليكم اخوتى
بحاول أتقدم فى تقنية الريجيكس والحمدلله بدأت أفهم بعض الشيئ
فبحاول أجلب أسم من هذه الاسماء الموجودة فى هذا الموقع لكن
هناك جزء بسيط زيادة فممكن اعرف ما هو الخطأ
الموقع
https://www.noor-book.com/كتب-الت...رية-pdf
الكود
كود :
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").Value
RichTextBox1.Text = (patren)
الباترين
"title="".+?pdf"
الصور
النتيجة
وعليكم السلام اخي
اخي لا تنسى وضع 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, 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>