الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

مساعدة في استخراج النصوص من صفحة ويب

بدأه salem salem في 26 فبراير 2008 · 12 رد · 1,480 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عليكم ورحمة الله وبركاتة

مارايدة بالضبط هو استخراج النصوص من صفحة ويب

مثلا 

<TR class="regular
">
								<TD class=regular width=81 height=18><A 
								href="http://www.tadawul.com.sa/wps/portal/!ut/p/_s.7_0_A/7_0_4BC?tabOrder=1&symbol=1010">الرياض</A></TD>
								<TD class=table_numbers height=18>99.50</TD>
								<TD class=table_numbers height=18>1,856</TD>
								<TD class=index_up height=18>0.50</TD>
								<TD class=index_up height=18>0.50</TD>
								<TD class=table_numbers height=18>380</TD>
								<TD class=table_numbers height=18>355,357 </TD>
								<TD class=table_numbers height=18>98.50</TD>
								<TD class=table_numbers height=18>4,780</TD>
								<TD class=table_numbers height=18>99.50</TD>
								<TD class=table_numbers height=18>144</TD>
								<TD class=table_numbers height=18>99.75</TD>
								<TD class=table_numbers height=18>100.50</TD>
								<TD class=table_numbers 
height=18>98.00</TD></TR>

يقوم باسخراج symbol الذي بساوي 1010 ويضعة في Tixet خاصة

يقوم باسخراج الرياض ويضعة في Tixet خاصة

وايضا اعلى سعر وادني سعر

ويستخرج التاريخ في Tixet خاصة

وهذا مثال مرفق لتعديل

HtmlCode.rar

تم تعديل هذه المشاركة بواسطة salem salem في 26 فبراير 2008 في 16:51

من قال فيني عيب والله ظلمني ×× فيني ثمان عيوب والتاسع الطيب

العاشر ليا من رفـيقي زهمني ×× اسوق له عمري واسوق المواجيب

#2

لتوضيح اكثر حتي اقوم بتصدير الي صيغة الميتاستوك

من قال فيني عيب والله ظلمني ×× فيني ثمان عيوب والتاسع الطيب

العاشر ليا من رفـيقي زهمني ×× اسوق له عمري واسوق المواجيب

#3

up

من قال فيني عيب والله ظلمني ×× فيني ثمان عيوب والتاسع الطيب

العاشر ليا من رفـيقي زهمني ×× اسوق له عمري واسوق المواجيب

#4

يمكنك استخدام المرجع Microsoft Html Object من أجل التعامل مع عناصر صفحة الوب

مثال : للبحث عن جميع الروابط الموجودة داخل موقع جوجل مثلا نكتب الكود (طبعا بعد اضافة المرجع )

Dim objLink As HTMLLinkElement
	Dim objMSHTML As New HTMLDocument
	Dim objDoc As New HTMLDocument
	   Set objDoc = objMSHTML.createDocumentFromUrl("http://www.google.com/", vbNullString)
	MousePointer = vbHourglass
	While objDoc.ReadyState <> "complete"
		DoEvents
	Wend
	For Each objLink In objDoc.links
	   List1.AddItem objLink.href  
	Next

حاول أن تستغل الفئات الموجودة في المرجع المذكور وستجد ماتريد

kuwhost-du3at_06.gif

#5
DreamNet كتب:
يمكنك استخدام المرجع Microsoft Html Object من أجل التعامل مع عناصر صفحة الوب

مثال : للبحث عن جميع الروابط الموجودة داخل موقع جوجل مثلا نكتب الكود (طبعا بعد اضافة المرجع )

Dim objLink As HTMLLinkElement
	Dim objMSHTML As New HTMLDocument
	Dim objDoc As New HTMLDocument
	   Set objDoc = objMSHTML.createDocumentFromUrl("http://www.google.com/", vbNullString)
	MousePointer = vbHourglass
	While objDoc.ReadyState <> "complete"
		DoEvents
	Wend
	For Each objLink In objDoc.links
	   List1.AddItem objLink.href  
	Next

حاول أن تستغل الفئات الموجودة في المرجع المذكور وستجد ماتريد

اشكرك علي المرور

ولكن يا اخي

عملت الي قلت علية لكن يعلق مايشتغل البرنامج

طبعا بعد اضافة المكتبة الخاصة المطلوبة مع الكود

من قال فيني عيب والله ظلمني ×× فيني ثمان عيوب والتاسع الطيب

العاشر ليا من رفـيقي زهمني ×× اسوق له عمري واسوق المواجيب

#8

الله يجزاك الف الف الف خير

وربي يرزك الجنة ان شاء الله

هذا ماكنت ابحث عنة بالضبط

وشكرا

والله عاجز عن شكرك

من قال فيني عيب والله ظلمني ×× فيني ثمان عيوب والتاسع الطيب

العاشر ليا من رفـيقي زهمني ×× اسوق له عمري واسوق المواجيب

#9

معليش والله عارف اني اقلقتك

ممكن سؤال كيف الطريق اني اخلي البرنامج ينزل من موقع تداول علي List

واستخدم الاتصال عن طريق Inet

سؤال اخير؟؟؟

كيف اضيف الدالة open

يعني اضغط علي فتح وحمل صفحة html اينا كان اسمها

وشكور علي لطفك وكرمك

من قال فيني عيب والله ظلمني ×× فيني ثمان عيوب والتاسع الطيب

العاشر ليا من رفـيقي زهمني ×× اسوق له عمري واسوق المواجيب

#10

شكرا أخي العزيز على الدعوة

نسأل الله العزيز أن يرفع البلاء على اخواننا في غزة وفي كل مكان

بالنسبة للسؤالين :

السطر الموجود في زر الأمر 

	Set objDoc = objMSHTML.createDocumentFromUrl(App.Path & "\na.htm", vbNullString)

وظيفته انشاء كائن يحمل مواصفات ملف Html

فمن أجل عمل تحميل أي ملف أو من موقع علينا فقط تغيير الرابط في الدالة createDocumentFromUrl ونضع مكان App.Path & "\na.htm"

الملف المراد فتحه أو الموقع المراد فتحه

مثلا نستعمل أداة commondialog لفتح ملف من النوع htm فنكتب قبل السطر المشار إليه عملية اختيار الملف باستخدام الأداة CommonDialog 

CommonDialog1.ShowOpen
If CommonDialog1.FileName = "" Then Exit Sub
Set objDoc = objMSHTML.createDocumentFromUrl(CommonDialog1.FileName, vbNullString)

طبع نحرص على أن نغير حاصية الفلتر للأداة CommonDialog لاستعراض فقط الملفات htm أو Html

نفس الشئ عند فتح موقع نكتب فقط اسم الموقع مكان الملف المفتوح 

Set objDoc = objMSHTML.createDocumentFromUrl("http://www.urwebsite.com/", vbNullString)

يمكن انشاء اجراء لهذا الغرض ونسميه مثلا OpenTask

Private Sub OpenTask(ByVal url As String)
	Dim objLink As HTMLLinkElement
	Dim obj2 As HTMLTable
	Dim objMSHTML As New HTMLDocument
	Dim objDoc As New HTMLDocument
	Set objDoc = objMSHTML.createDocumentFromUrl(url, vbNullString)
	MousePointer = vbHourglass
	While objDoc.readyState <> "complete"
		DoEvents
	Wend
	i = -1
	List1.Clear
	List2.Clear
	For Each obj2 In objDoc.All

	  If obj2.currentStyle.Height = "18px" Then
	  If obj2.className = "regular" Then
	  symbol = Mid(obj2.innerHTML, InStr(obj2.innerHTML, "symbol=") + 7, 4)
	  List1.AddItem obj2.outerText
	  i = i + 1
	  End If
	  If obj2.className = "table_numbers" Or obj2.className = "index_up" Then List2.AddItem obj2.outerText & "-" & i & "-" & symbol
	  End If
	Next
	List1.Enabled = True
	MousePointer = vbDefault
End Sub

عند استعمال الاستعراض للبحث على ملف معين نكتب في زر أمر نستدعي فيه الإجراء المنشئ

CommonDialog1.ShowOpen
If CommonDialog1.FileName = "" Then Exit Sub
OpenTask CommonDialog1.FileName

وببساطة يتم استدعاء موقع

OpenTask "http://www.urwebsite.com/"

kuwhost-du3at_06.gif

#11

الله يجزاك الف الف الف خير

وربي يرزك الجنة ان شاء الله

هل يمكن اشتقاق التاريخ ايضا حق الصفحة :wub:

واشكرك علي مرورك ومساعدك لي

وهذا مثال علي العمل

Projet.rar

من قال فيني عيب والله ظلمني ×× فيني ثمان عيوب والتاسع الطيب

العاشر ليا من رفـيقي زهمني ×× اسوق له عمري واسوق المواجيب

#12
اقتباس
الله يجزاك الف الف الف خير

وربي يرزك الجنة ان شاء الله

لا بأس ان شاء الله يرزقنا كلنا الجنة :)

مرفق تعديل للمثال

Projet.zip

بالتوفيق دائما

kuwhost-du3at_06.gif

#13

مشكور اخوي وما قصرت

على كل اللي سويتة

وان شاء الله يرزك الجنة ان شاء الله

اخوك سالم العنزي

تمت الاجابة و شكرا

من قال فيني عيب والله ظلمني ×× فيني ثمان عيوب والتاسع الطيب

العاشر ليا من رفـيقي زهمني ×× اسوق له عمري واسوق المواجيب

مواضيع مشابهة