تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] اريد كود استخراج كلمة من سورس كود موقع
#1
سلام عليكم   

اريد استخراج  كلمة   من   سورس كود  موقع  

عندي  هي  كود 
كود :
Imports System.Text.RegularExpressions

Public Class Form1

   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
كود :
       Dim request As System.Net.HttpWebRequest = System.Net.HttpWebRequest.Create("http://example.com")
كود :
       Dim response As System.Net.HttpWebResponse = request.GetResponse

       Dim sr As System.IO.StreamReader = New System.IO.StreamReader(response.GetResponseStream())

       Dim rssourcecode As String = sr.ReadToEnd

       Dim r As New System.Text.RegularExpressions.Regex("")
       Dim matches As MatchCollection = r.Matches(rssourcecode)

       For Each itemcode As Match In matches

           ListBox1.Items.Add(itemcode.Value.Split("""").GetValue(5))

       Next

   End Sub

End Class


اريد  استخرج   <title dir="ltr">[A-Z]</title>  من سورس كود 
الرد }}}}
تم الشكر بواسطة:
#2
كود :
        Dim Scode As String = ""
        Using wb = New Net.WebClient
            Scode = wb.DownloadString("http://example.com")
        End Using
        Dim Value As String = Regex.Match(Scode, "(?<=<title dir=""ltr"">)\w+?(?=</title>)").Value
        MsgBox(Value)

اذا لم ينجح اعطني جزء من الصفحة 
وهل النص المراد اخراجه عربي؟
الْلَّهُم صَلِّ وَسَلِم وَبَارِك عَلَى سَيِّدِنَا مُحَمَّد
الرد }}}}
تم الشكر بواسطة:
#3
Dim website As String = "http://vb4arb.com/"
Dim html As String = System.Text.Encoding.UTF8.GetString(New Net.WebClient().DownloadData(website))
Dim title As String = System.Text.RegularExpressions.Regex.Match(html, "(?<=<title*?>)[^*]*(?=</*?title>)").Value

MsgBox(title)

Dim website As String = "http://vb4arb.com/"
Dim html As String = New Net.WebClient() With {.Encoding = System.Text.Encoding.UTF8}.DownloadString(website)
Dim title As String = System.Text.RegularExpressions.Regex.Match(html, "(?<=<title*?>)[^*]*(?=</*?title>)").Value

MsgBox(title)
الرد }}}}
تم الشكر بواسطة:
#4
شكرا كيف خذف <title dir="ltr"> </title> من نتيجة يعني اريد بس يطلع اسم
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  برجاء المساعدة في سورس كود اله حاسبة scientific calculator khaled12345 3 125 20-09-17, 12:11 AM
آخر رد: ابوثامر الحربي
  اريد كود لتحقق ان كان الفورم مفتوح ام لا The Light Fire 2 85 11-09-17, 06:57 PM
آخر رد: The Light Fire
  اريد طريقة دمج صورة مع صورة وحفظها كصورة واحدة soper 1 83 27-08-17, 12:01 PM
آخر رد: khodor1985
  [سؤال] اريد طريقة لمنع تكرار عناصر listbox riad21 3 324 26-08-17, 03:55 PM
آخر رد: حسن ايت حدو
  [VB.NET] اريد رابط مباشر لبرنامج السيكول سيرفر 2010 امل عوض 1 84 25-08-17, 12:01 PM
آخر رد: سعود الشامان
  [سؤال] جلب قيم من موقع ابو روضة 0 66 24-08-17, 06:54 PM
آخر رد: ابو روضة
  ارجو المساعدة من اهل الخبرة اريد كود لعمل فورم نقل او تحويل الاصناف من مخزن الى مخزن احمد الامين 8 265 24-08-17, 06:23 AM
آخر رد: احمد الامين
  اريد طريقة الاتصال المباشر بقاعدة بيانات اكسس abudawoodd 1 302 22-08-17, 02:03 PM
آخر رد: نبيل كونكت
  [سؤال] ياجماعة اريد كود ارتباط الكاميرا والتصوير المباشر عن طريق النقر على زر تصوير بالفورم محمد فرحان محمد 1 92 10-08-17, 01:11 AM
آخر رد: طـلال
  [VB.NET] اريد تعديل ع هذا الكود الرجاء مساعدتي e-coder 1 87 09-08-17, 06:25 AM
آخر رد: e-coder

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


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