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

سلام عليكم

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

عندي هي كود

كود :

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> من سورس كود

كود :

        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)

اذا لم ينجح اعطني جزء من الصفحة
وهل النص المراد اخراجه عربي؟

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)

شكرا كيف خذف <title dir="ltr"> </title> من نتيجة يعني اريد بس يطلع اسم

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

sharo.azad

LoveVb

sami2015

sharo.azad