+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [سؤال] اريد كود استخراج كلمة من سورس كود موقع (/showthread.php?tid=17573)
اريد كود استخراج كلمة من سورس كود موقع - sharo.azad - 07-10-16
سلام عليكم
اريد استخراج كلمة من سورس كود موقع
عندي هي كود
كود :
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> من سورس كود
RE: اريد كود استخراج كلمة من سورس كود موقع - LoveVb - 07-10-16
كود :
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)اذا لم ينجح اعطني جزء من الصفحة
وهل النص المراد اخراجه عربي؟
RE: اريد كود استخراج كلمة من سورس كود موقع - sami2015 - 07-10-16
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)
RE: اريد كود استخراج كلمة من سورس كود موقع - sharo.azad - 07-10-16
شكرا كيف خذف <title dir="ltr"> </title> من نتيجة يعني اريد بس يطلع اسم