تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] كيف بامكاني جلب نص معين من خلال موقع pastebin
#1
سلام الله عليكم
طلبي هو كيف اجلب نص معين مرفوع علي موقع 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
الرد
تم الشكر بواسطة:
#2
ضع الرابط أخى وقل مثلا أريد استخراج هذه الكلمة من هذا
 السطر كى نرى جميعا ونحاول معك
الرد
تم الشكر بواسطة: ميدو الفنان , asemshahen5 , ابراهيم ايبو
#3
(27-08-19, 01:11 AM)ابو روضة كتب :
ضع الرابط أخى وقل مثلا أريد استخراج هذه الكلمة من هذا
 السطر كى نرى جميعا ونحاول معك

تفضل اخي
https://pastebin.com/raw/WMa0u85r
اريد مثلا يتحقق من الرقم 1 ويجلب ما بعده
الرد
تم الشكر بواسطة: ابو روضة , asemshahen5 , ابراهيم ايبو
#4
(27-08-19, 01:46 AM)ميدو الفنان كتب :
(27-08-19, 01:11 AM)ابو روضة كتب :
ضع الرابط أخى وقل مثلا أريد استخراج هذه الكلمة من هذا
 السطر كى نرى جميعا ونحاول معك

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

هذا يجلب لك أول نص لآن العدد يبدأ من ال0 فهنا رقم واحد هى كلمة " بيسك "
PHP كود :
[align=centerDim 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


ولو أردت السطر الثانى أو الثالث أو ما تريد غير فقط الرقم واحد فى أخر الكود بما يناسبك
الرد
تم الشكر بواسطة: ميدو الفنان , asemshahen5 , ابراهيم ايبو
#5
(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=centerDim 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


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

والله اني احبك في الله اخي جزاك الله خيرا
الرد
تم الشكر بواسطة: ابو روضة , asemshahen5 , ابراهيم ايبو
#6
إقتباس :والله اني احبك في الله اخي جزاك الله خيرا

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

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Exclamation [VB.NET] كود يقوم بتحميل الكومبو بوكس من موقع ويدخلها في الكومبو بوكس في البرنامج SnTnt 10 260 13-09-19, 02:23 AM
آخر رد: SnTnt
  [VB.NET] كيف بامكاني معرفة الاشخاص اللى فاتحين البرنامج ميدو الفنان 3 186 11-09-19, 10:57 PM
آخر رد: ميدو الفنان
  [VB.NET] كيف بامكاني تنفيذ مثل هذه الفكرة ؟ ميدو الفنان 20 475 07-09-19, 06:51 PM
آخر رد: ابراهيم ايبو
  [سؤال] لدي جدول به اسعار اريد السعر من خلال رقم الكلاس مرفق الكود dametucorazon 5 187 01-09-19, 03:44 PM
آخر رد: dametucorazon
Star [سؤال] انبثاق قائمة البحث المطابق خلال عملية البحث الرائد 2 131 24-08-19, 11:04 AM
آخر رد: الرائد
  [VB.NET] عرض الصور في الليست فيو و إجراء البحث من خلال الضغط على الصورة المعروضة larbihamri 6 221 22-08-19, 10:57 PM
آخر رد: ابراهيم ايبو
  جلب كلمة مميزة من كوكيز موقع مدفوع حاتمي 0 71 17-08-19, 02:57 PM
آخر رد: حاتمي
  [سؤال] كيفية التحكم في ادوات وخصائص برنامج من خلال مشروعك الرائد 0 93 17-08-19, 02:54 AM
آخر رد: الرائد
  [سؤال] اريد كيفية عمل اتصال بموقع معين ramygamalvb 3 695 13-08-19, 02:24 PM
آخر رد: dasktop
  [سؤال] اظهار DataGridView1 من اليمين الى اليسار خلال امر الطباعة الرائد 11 344 12-08-19, 08:31 PM
آخر رد: asemshahen5

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم