تمت الإجابة طلب كود يجيب كلام من صفحة ويب l يوجد شرح

تم تحميل الصفحة في 0,4561636 ثانية
طلب كود يجيب كلام من صفحة ويب l يوجد شرح
الحالة
مغلق و غير مفتوح للمزيد من الردود.
إنضم
3 مارس 2014
المشاركات
588
الإعجابات
633
النقاط
93
الإقامة
أ‡أ،أ‡أ“أںأ¤أڈأ‘أ­أ¥ - أ£أ•أ‘
السلام عليكم كنت شفت نفس الطلب ده من فتره ف موضوع و للاسف عمال ادور عليه مش لاقى الموضوع

الطلب ان عاوز كود يجيب كلام من صفحه ويب بس الكلام متغير

بمعنى مثلا

My name is Mohamed

انا ضغطت على الزر يقوم جايب الكلام اللى من بعد كلمه Is و يحطها ف تيكست بوكس { Mohamed }

جربت كذا طريقه بس للاسف منفعوش
واحده جابت العنوان بس اللى هوا اول كلمه My
و واحده جابت كلام كتير تقريبا السطر كله و شويه اكواد كده


ياريت افاده
 
إنضم
3 مارس 2014
المشاركات
588
الإعجابات
633
النقاط
93
الإقامة
أ‡أ،أ‡أ“أںأ¤أڈأ‘أ­أ¥ - أ£أ•أ‘
Dim str As System.IO.Stream
Dim stread As System.IO.StreamReader
Try
Dim req As System.Net.WebRequest = System.Net.WebRequest.Create("Google")
Dim resp As System.Net.WebResponse = req.GetResponse

str = resp.GetResponseStream
stread = New System.IO.StreamReader(str)
TextBox1.Text = stread.Read


Catch ex As Exception
TextBox1.Text = "nothing to read"
Finally
'close

End Try




 

Ahmed Al'jabari

إداري أقسام البرمجة
rankrankrankrank
إنضم
24 يونيو 2017
المشاركات
1,772
الإعجابات
1,543
النقاط
123
الإقامة
iraq
لم افهم ماتريد بالضبط
اذا ممكن توضح بالصور مكان الكود الي تريد تسحبه
 
إنضم
8 سبتمبر 2013
المشاركات
7,969
الإعجابات
11,892
النقاط
168
الإقامة
Live.IQ(JO => JO.AMMAN)
Dim str As System.IO.Stream
Dim stread As System.IO.StreamReader
Try
Dim req As System.Net.WebRequest = System.Net.WebRequest.Create("Google")
Dim resp As System.Net.WebResponse = req.GetResponse

str = resp.GetResponseStream
stread = New System.IO.StreamReader(str)
TextBox1.Text = stread.Read


Catch ex As Exception
TextBox1.Text = "nothing to read"
Finally
'close

End Try
هذا يجيب نص الصفحة بالكامل اخي .. اريد الي جاب لك جزء منه
 
إنضم
3 مارس 2014
المشاركات
588
الإعجابات
633
النقاط
93
الإقامة
أ‡أ،أ‡أ“أںأ¤أڈأ‘أ­أ¥ - أ£أ•أ‘
لم افهم ماتريد بالضبط
اذا ممكن توضح بالصور مكان الكود الي تريد تسحبه
موقع مكتوب فيه مثلا

Welcome to devpoint best forum

عاوز لما ادوس على زر button يظهر الكلمه اللى بعد to لاخر السطر
يظهى devpoint best forum
 
إنضم
8 سبتمبر 2013
المشاركات
7,969
الإعجابات
11,892
النقاط
168
الإقامة
Live.IQ(JO => JO.AMMAN)
موقع مكتوب فيه مثلا

Welcome to devpoint best forum

عاوز لما ادوس على زر button يظهر الكلمه اللى بعد to لاخر السطر
يظهى devpoint best forum
انتظرتك تقتبس كلامي و ترد عليه اخي .. لكن بأكون احسن منك إن شاء الله

استخدم Regex.Split()

يعني تطبيقاً على المثال الي طرحته انتة فوق :

C#:
string x = "Welcome to devpoint  best forum";
string target = Regex.Split(x , "Welcome to ")[1];// هنا 1 يعني بعد ويلكم تو و 0 يعني الي قبلها
MessageBox.Show(target);// = devpoint  best forum
 

Ahmed Al'jabari

إداري أقسام البرمجة
rankrankrankrank
إنضم
24 يونيو 2017
المشاركات
1,772
الإعجابات
1,543
النقاط
123
الإقامة
iraq
موقع مكتوب فيه مثلا

Welcome to devpoint best forum

عاوز لما ادوس على زر button يظهر الكلمه اللى بعد to لاخر السطر
يظهى devpoint best forum
اعمل داونلود لسورس الصفحه واستخرج اي نص تريد بالregex
 

Ahmed Al'jabari

إداري أقسام البرمجة
rankrankrankrank
إنضم
24 يونيو 2017
المشاركات
1,772
الإعجابات
1,543
النقاط
123
الإقامة
iraq
Dim str As System.IO.Stream
Dim stread As System.IO.StreamReader
Try
Dim req As System.Net.WebRequest = System.Net.WebRequest.Create("Google")
Dim resp As System.Net.WebResponse = req.GetResponse

str = resp.GetResponseStream
stread = New System.IO.StreamReader(str)
TextBox1.Text = stread.Read


Catch ex As Exception
TextBox1.Text = "nothing to read"
Finally
'close

End Try
انته هنا عملت داونلود لسورس الصفحه
باقي تستعمل رجكس كما استعملها المراقب امير اعلاه وتكتب باترن مناسب لسحب الكلمات التي تريدها
 
الحالة
مغلق و غير مفتوح للمزيد من الردود.

الأعضاء النشطين حاليآ الذين يشاهدون هذا الموضوع (1 عضو و 0 ضيف)

خيارات الاستايل

نوع الخط
مودك
اخفاء السايدر بار OFF
توسيط المنتدى OFF
فصل الأقسام OFF
الأقسام الفرعية OFF
عرض المشاركات
حجم الخط
معلومات العضو OFF
إخفاء التوقيع OFF

إرجاع خيارات الإستايل