+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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=27505)
استخراج رقم من صفحة - dasktop - 18-11-18
مرحبا
انا لدي مشروع لمعرفة عدد تحميلات ملف على مركز تحميل
استخدمت كود استخراج td من html ونجح
ولاكن يستخرج بيانات ليس لها داعي وتشوه منضر التكست بوك
مثال على ذالك
المطلوب استخراجه Downloaded: 36 times
والمشكلة ان جميع الكلمات في الصوره تبدا ب وسم td وتنتهي ب <td/>
يعني عند استخراج td الفلتره تستخرج التاريخ وكل شي وهاذي مشكلة
فهل الحل نعمل فلتره للبيانات بعد استخراجها ام كيف الطريقة لستخراج فقط هذة الكلمة Downloaded: 36 times
هاذا كود html في الصفحة
كود :
<tr>
<td><b>Downloaded:</b></td>
<td>
36 times</td>
</tr>
<tr>RE: استخراج رقم من صفحة - trakktour - 18-11-18
مرحبا
تفضل اخي
كود :
Dim iddownload As String = ""
Sub main()
Using req As New HttpRequest
With req
.UserAgent = Http.ChromeUserAgent
.Cookies = New CookieDictionary
.AddParam("op", "download1")
.AddParam("method_free", "Free Download")
.AddParam("id", iddownload)
Dim res As String = .Post(TextBox1.Text).ToString
Dim downloaded As String = Regex.Match(res, " (.*?)<\/td>").Groups(1).Value
'Label2.Text = "Downloaded :- " + downloaded
End With
End Using
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim add = TextBox1.Text + "Trakktour"
iddownload = Regex.Match(add, "net\/(.*?)Trakktour").Groups(1).Value
main()
End Sub