منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[VB.NET] كيف بامكاني جلب نص معين من خلال موقع pastebin - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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] كيف بامكاني جلب نص معين من خلال موقع pastebin (/showthread.php?tid=31092)

كيف بامكاني جلب نص معين من خلال موقع pastebin - ميدو الفنان - 26-08-19

سلام الله عليكم
طلبي هو كيف اجلب نص معين مرفوع علي موقع pastebin يعني مثلا عندي ملف مرفوع مكتوب فيه
فيجوال
بيسك
لكلل
العرب
كيف بامكاني اجلب نص واحد فقط منهم بدل جلب الكل لان الكود المنتشر هو يقوم بجلب النص كامل
هذا هو الكود
كود :
         Dim txt As String = "link"
           Dim WC As WebClient = New WebClient()
           Dim Read As StreamReader = New StreamReader(WC.OpenRead(txt))
           Dim STR As String = Read.ReadToEnd
           textbox1.Text = STR


RE: كيف بامكاني جلب نص معين من خلال موقع pastebin - ابو روضة - 27-08-19

ضع الرابط أخى وقل مثلا أريد استخراج هذه الكلمة من هذا
 السطر كى نرى جميعا ونحاول معك


RE: كيف بامكاني جلب نص معين من خلال موقع pastebin - ميدو الفنان - 27-08-19

(27-08-19, 01:11 AM)ابو روضة كتب :
ضع الرابط أخى وقل مثلا أريد استخراج هذه الكلمة من هذا
 السطر كى نرى جميعا ونحاول معك

تفضل اخي
https://pastebin.com/raw/WMa0u85r
اريد مثلا يتحقق من الرقم 1 ويجلب ما بعده

RE: كيف بامكاني جلب نص معين من خلال موقع pastebin - ابو روضة - 27-08-19

(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) 


ولو أردت السطر الثانى أو الثالث أو ما تريد غير فقط الرقم واحد فى أخر الكود بما يناسبك


RE: كيف بامكاني جلب نص معين من خلال موقع pastebin - ميدو الفنان - 27-08-19

(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) 


ولو أردت السطر الثانى أو الثالث أو ما تريد غير فقط الرقم واحد فى أخر الكود بما يناسبك

والله اني احبك في الله اخي جزاك الله خيرا

RE: كيف بامكاني جلب نص معين من خلال موقع pastebin - ابو روضة - 27-08-19

إقتباس :والله اني احبك في الله اخي جزاك الله خيرا

أحبك الله الذى أحببتنى فيه أخى....

جزانا واياكم كل الخير.....