+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [VB.NET] سحب نص من رابط متغير (/showthread.php?tid=27242)
سحب نص من رابط متغير - XBOOBX - 01-11-18
السلام عليكم
كيف يمكن سحب نص من خلال هذا الرابط المتغير
وكيف التعامل مع المتغير لكي يتم سحب النص من كل حساب يتم تسجيل الدخول منة
الرابط
المتغير بالون الاحمر
https://hypixel.net/player/robodogkid/
وكيف التعامل مع المتغير لكي يتم سحب النص من كل حساب يتم تسجيل الدخول منة
الرابط
المتغير بالون الاحمر
https://hypixel.net/player/robodogkid/
والمشكلة عند وضع هذا الرابط داخل هذا الكود يسحب في داخل هذا الاسم وانا اريد سحب اليفل لكل اسم
كود :
Dim mm As String = req.Get("https://hypixel.net/player/robodogkid/", Nothing).ToString RE: سحب نص من رابط متغير - fouadhdfouad - 02-11-18
تفضل اخي
PHP كود :
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 gets = Regex.Matches(TextBox1.Text, "(?<=https://hypixel\.net/).+(?=/)", RegexOptions.Singleline)
For Each mes As Match In gets
TextBox2.Text = mes.Value
Next
End Sub
End Class
RE: سحب نص من رابط متغير - XBOOBX - 02-11-18
اعتقد لم تفهم قصدي
سوف اقوم بشرح طلبي لكي يتوضح للجميع
كود سحب الاسم الاعب من خلال الصفحة ووضعة في
هذا الرابط لكي يتم تنفيذ عملية الانتقال حسب الاسم وسحب level الاعب من داخل سورس الصفحة
كود الانتقال وسحب level الاعب
ولاكن عند عمل البرنامج لا يتم الانتقال الى الصفحة المراد سحب منها level
سوف اقوم بشرح طلبي لكي يتوضح للجميع
كود سحب الاسم الاعب من خلال الصفحة ووضعة في
كود :
Dim mm As String = req.Get("https://hypixel.net/", Nothing).ToString
Dim yy As String = New Regex("<strong class=""accountUsername"">(\w+)</strong>").Match(mm).Groups.Item(1).ToStringهذا الرابط لكي يتم تنفيذ عملية الانتقال حسب الاسم وسحب level الاعب من داخل سورس الصفحة
كود الانتقال وسحب level الاعب
كود :
Dim nn As String = req.Get("https://hypixel.net/player/" + yy.ToString , Nothing).ToString
Dim zz As String = New Regex("<div class=""levelChart"" title=""Player's Network Level & Experience"" data-percent=""71"">(.*?)</div>").Match(nn).Groups(1).ToStringولاكن عند عمل البرنامج لا يتم الانتقال الى الصفحة المراد سحب منها level
RE: سحب نص من رابط متغير - XBOOBX - 02-11-18
حسب مارئيت هذا الموقع لا يوجد فية حلول
ارجو حذف جميع طلباتي
وشكرا
وشكرا