27-08-19, 02:17 AM
(27-08-19, 02:07 AM)ابو روضة كتب :(27-08-19, 01:46 AM)ميدو الفنان كتب :(27-08-19, 01:11 AM)ابو روضة كتب :ضع الرابط أخى وقل مثلا أريد استخراج هذه الكلمة من هذاالسطر كى نرى جميعا ونحاول معك
تفضل اخي
https://pastebin.com/raw/WMa0u85r
اريد مثلا يتحقق من الرقم 1 ويجلب ما بعده
هذا يجلب لك أول نص لآن العدد يبدأ من ال0 فهنا رقم واحد هى كلمة " بيسك "PHP كود :
[align=center] Dim hwr As System.Net.HttpWebRequest = DirectCast(System.Net.WebRequest.Create("https://pastebin.com/raw/WMa0u85r"), System.Net.HttpWebRequest)[/align]
hwr.Method = "GET"
Dim names As List(Of String) = New List(Of String)()
Using hwResponse As System.Net.HttpWebResponse = DirectCast(hwr.GetResponse(), System.Net.HttpWebResponse)
Using stream As IO.Stream = hwResponse.GetResponseStream()
Using reader As StreamReader = New StreamReader(stream)
While Not reader.EndOfStream
names.Add(reader.ReadLine())
End While
End Using
End Using
End Using
TextBox1.Text = names(1)
ولو أردت السطر الثانى أو الثالث أو ما تريد غير فقط الرقم واحد فى أخر الكود بما يناسبك
والله اني احبك في الله اخي جزاك الله خيرا
