كيف تشغل ملف HTML عن طرق اخذه وحطه في الرنامج

هل تريد عمل نسخ ولصق

ام ماذا ؟

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

اخي استخدم خاصية البحث قبل طرحك لـ سؤالك (هذا افضل لك )

راجع هذا الرابط : كيف تستخدم الـ OLE Drag Drop ؟

بالتوفيق ..........

A7med_prof

مشكوووور اخي احمد بوف ولكني ارريد عمل ذلك مع ملف من نوع HTML او HTM وليس مع ملف تكست

مشكور على مجهودك عجبني كثير

ارجو الرد ........ :wacko: . ؟

أخي , انت ليش ما تستعمل WEBBROWSER إذا كنت تريد فتح صفحة الهتمل , الكود :

WebBrowser1.Navigate ("www.htmlbage.com")

-*-*-*-*-*-*-*-*--*-*-*-*-*-*-*-*-*--*-*-*-*-**-*-*-**

استخراج النصوص من ملف HTML :

Sub StripHTML(Filename As String)
	Dim FFile, FrFile, i As Integer
	Dim TheText As String
	Dim InsideTag, ToFile
	' Change the pointer toHourGlass
	Screen.MousePointer = 11
	' Give FFile the Freefile Handle
	FFile = FreeFile
	' Open the file to be stripped in read mode
	Open Filename For Input As #FFile
		' Give FrFile a free file handle
		FrFile = FreeFile
		' Open the stripped file, and save it as the old filename, but
		' but with the TXT file extension.
		Open Left(Filename, InStr(Filename, ".")) & "TXT" For Output As #FrFile
			' Go through the file ...
			Do While Not EOF(FFile)
				' ... And read it line by line
				Line Input #FFile, TheText
				' Scan if there is a tag, and determine if you should add it
				' to the finished file.
				ToFile = ""
				For i% = 1 To Len(TheText)

					Select Case Mid(TheText, i, 1)
						Case "<"
							InsideTag = True
						Case ">"
							InsideTag = False
						Case Else
							' If it is InsideTag then don't add it to the file, and
							' if it isn't, then add it to the previous ToFile text.
							If Not InsideTag Then ToFile = ToFile & Mid$(TheText, i, 1)
					End Select
				Next
				' Write that line to the File.
				Print #FrFile, ToFile
				' Continue to the next line.
			Loop
			' Close both of the files for proper file access.
		Close #FFile
	Close #FrFile
	' Reset the mousepointer to the default.
	Screen.MousePointer = 0
	' Exit
	Exit Sub
End Sub
'تم تنفيذ هذا الإجراء بالشكل التالي :
StripHTML "c:\windows\MyHTML\thefile.html"
'والناتج يكون عبارة عن ملف بهذا المسار
c:\windows\MyHTML\thefile.txt

-*-*-*--*-*-*-*-*-*-*-*-*-*-**-*-*-*-*-*--*-*-*-*-*-**-*--**-*-*-*-*-*--*

وهذا أسهل كود ممكن تستعمله :

shell ("C:\HtmlPage.htm")

غير كده فأرجو منك توضيح ما تريد

إذا واجهتك مشاكل في فتح الصفحة فاذهب إلى القائمة Project واختر References وحدد الخيار Microsoft HTML Object Library

أنتظر رداً منك أخي

الأخ الفاضل ...

راجع الأمثلة المرفقة مع:

1. PPViewer.zip [أريد أداة viwer]
   
2. LoadWeb_up1.zip [كيف يمكنني عرض HTML Source Code لأي موقع؟]
   

شكراً

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

اخي لو ركزت في كلامي في موضوع كيف تستخدم الـ OLE Drag Drop ؟ ستجدني معطي مثال على ملفات الـ Text فطلبك تقوم بتغير الامتداد الى HTML -HTM وتقوم بضبط الكود الخاص بـ الاداة Microsoft Internet Control في الحدث OLE Drag Drop ...............

نفس الفكره ولكن اختلاف الاداه والامتداد ...........

بالتوفيق ................

A7med_prof

تمام الله ينور عليك يا احمد بروف والله الله ينور عليك .

فكيف يمكنني فعل ذلك ؟

طيب كويس .....

حاول فيها واخبرني على المشاكل التي تواجهك .

A7med_prof

انا كل ما احاول التعديل على الامتداد الاكواد تبوظ

انتظرك أخي احمد

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

اخي العزيز غير الكود :

If Right(strFileName, 4) = ".txt" Then

الى :

If Right(strFileName, 4) = ".HTML" Then

والكــــود :

lstItems.AddItem findBetweenIT(strFileName, "\", "txt") & " || " & GetFileSize(strFileName)

الى :

lstItems.AddItem findBetweenIT(strFileName, "\", "txt") & " || " & GetFileSize(strFileName)

والكـــود :

ReseveFolders strFileName, "*.txt"

الى

ReseveFolders strFileName, "*.txt"

والكود:

If Right(strPath, 4) <> ".txt" Then Exit Sub

الى :

	If Right(strPath, 4) <> ".HTML" Then Exit Sub

والكود :

lstItems.AddItem findBetweenIT(dirFolders.Path & "\" & filShowFils.List(I), "\", "txt") & " || " & GetFileSize(dirFolders.Path & "\" & filShowFils.List(I))

بـ الكود :

lstItems.AddItem findBetweenIT(dirFolders.Path & "\" & filShowFils.List(I), "\", "HTML") & " || " & GetFileSize(dirFolders.Path & "\" & filShowFils.List(I))

جرب وأخبرني بالنتيجة .............

بالتوفيق ........

A7med_prof