تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
حذف جزء بسيط من النص
#1
السلام عليكم اخوتى
بحاول أتقدم فى تقنية الريجيكس والحمدلله بدأت أفهم بعض الشيئ
فبحاول أجلب أسم من هذه الاسماء الموجودة فى هذا الموقع لكن
هناك جزء بسيط زيادة فممكن اعرف ما هو الخطأ 
الموقع

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"

الصور




النتيجة

الرد }}}
تم الشكر بواسطة: elgokr
#2
وعليكم السلام اخي 

اخي لا تنسى وضع 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)
الرد }}}
تم الشكر بواسطة: ابو روضة , elgokr
#3
(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
الرد }}}
تم الشكر بواسطة: XBOOBX , elgokr , elgokr
#4
(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)

الرد }}}
تم الشكر بواسطة: ابو روضة , elgokr , elgokr
#5
(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>
الرد }}}
تم الشكر بواسطة: elgokr , elgokr , XBOOBX


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  بحث بالكومبو بوكس لا ى جزء من النص Lathe1 3 441 28-02-24, 02:59 AM
آخر رد: معاند الحظ
  سؤال بسيط يا احبتى فى الله خالد كامل1 4 314 07-01-24, 12:55 AM
آخر رد: Mujahef
  [VB.NET] استخلاص جزء محدد من نص وإضافته إلى بداية النص ؟ AmeenRashed 2 213 02-01-24, 10:06 AM
آخر رد: AmeenRashed
Tongue استفسار بسيط عن كريستال ريبورت waataanys 1 311 30-11-23, 04:44 PM
آخر رد: Taha Okla
  دالة ادخال ارقام فقط في مربع النص atefkhalf2004 7 809 20-08-23, 09:04 AM
آخر رد: atefkhalf2004
  اريد اضافة متغيراخر داخل Listbox1 احتاج تعديل بسيط moh61 0 350 05-08-23, 02:29 PM
آخر رد: moh61
  طريقة حذف حرف زيادة من مربع النص علاء الكبابي 2 553 19-06-23, 05:08 PM
آخر رد: Taha Okla
  اريد كود لمسح النص من textbox بمجرد الضغط على ال textebox للكتابة رهف العريفي 21 11,884 03-06-23, 04:56 AM
آخر رد: سعود
Rainbow [كود] النص المكتوب يكون على شكل وميض او تغير في الالوان محمد مسافر 1 460 13-05-23, 01:30 AM
آخر رد: عبدالله الدوسري
  مثال بسيط لربط قواعد mySql مع Vb.net atefkhalf2004 2 396 17-04-23, 01:03 AM
آخر رد: atefkhalf2004

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم