كلاس لاستخراج النص من ملفات doc;rtf;txt;htm

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

منذ فترة كتبت هذا الكود ليعطيني النص فقط من ملفات: doc;rtf;txt;htm

وهو يستخدم ميزات برنامج وورد، لذا عليك إضافة مكتبة الأوفيس عند استخدامك لهذا الكود:

Add References: > COM: > Microsoft Office 11.0

Object Library

المثال مرفق، أرجو أن ينفعكم.

----------------------------------------------------------------------

أما عن ال function المسمى GetIDNom الموجود في المثال فهذا يرجع رقم عشوائي لا

يتكرر أبداً تماماً كرقم الكايد، ولكني عندما كتبته لم أكن أعرف كيف أحصل على رقم الكايد. والآن

مازلت أستخدم كودي هذا في كثير من الأمور، في قواعد البيانات، في التعامل مع الملفات وغيرها

كثير..

#Region "GetIDNom"
	Function GetIDNom() As String
		Static N1 As Long = 0
		Try
			N1 += 1
			Dim Str0 As String = CStr(N1)
			Dim Str2 As String = CStr(Date.Now.Month).PadLeft(2, "0")
			Dim Str3 As String = CStr(Date.Now.Day).PadLeft(2, "0")
			Dim Str4 As String = CStr(Date.Now.Hour).PadLeft(2, "0")
			Dim Str5 As String = CStr(Date.Now.Minute).PadLeft(2, "0")
			Dim Str6 As String = CStr(Date.Now.Second).PadLeft(2, "0")
			Dim Str7 As String = CStr(Date.Now.Millisecond).PadLeft(3, "0")
			Dim MyNomStr1 As String = ""
			MyNomStr1 = Str2 & Str3 & Str4 & Str5 & Str6 & Str7 & Str0

			Dim INFOAPP As New IO.FileInfo(Application.ExecutablePath)
			Dim Str11 As String = Mid(CStr(INFOAPP.LastAccessTime.Year), 2)
			Dim Str21 As String = CStr(INFOAPP.LastAccessTime.Month).PadLeft(2, "0")
			Dim Str31 As String = CStr(INFOAPP.LastAccessTime.Day).PadLeft(2, "0")
			Dim Str41 As String = CStr(INFOAPP.LastAccessTime.Hour).PadLeft(2, "0")
			Dim Str51 As String = CStr(INFOAPP.LastAccessTime.Minute).PadLeft(2, "0")
			Dim Str61 As String = CStr(INFOAPP.LastAccessTime.Second).PadLeft(2, "0")
			Dim Str71 As String = CStr(INFOAPP.LastAccessTime.Millisecond).PadLeft(3, "0")
			Dim MyNomStr2 As String = ""
			MyNomStr2 = Str11 & Str21 & Str31 & Str41 & Str51 & Str61 & Str71
			Dim MyNomStr As String = MyNomStr2 & MyNomStr1
			Return MyNomStr
		Catch ex As Exception
			N1 += 1
			Return CStr(N1)
		End Try
	End Function
#End Region

-----------------------------------------------------------------

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

TextFileReader.rar