مقارنة محتوى ملفين نصيين

هذا الملف المرفق به الملفين المراد مقارنة محتواهم

--------

أرجو الرد بمثال بسيط

Desktop.zip

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

معزره لم اقم بتحميل الملفين بسبب ضيق الوقت وهذا كود يمكنك استخدامه

ضع هذه الجمله كمتغير عام

Option Compare Text

وهذا الكود فى Command Button

Dim STR1 as String
Dim STR2 as String
Dim Count1 as Long
Dim Count2 As Long
Str1=APP.Path &"\TEXT1.TXT"
Str2=APP.Path & "\TEXT2.TXT"
Reset
Open Str1 for Input access Read As #1
Open Str2 For Input Access Read As #2
Counter1=1
Do While NotEOF(1) and Not Eof(2)
DoEvents
Line Input #1,Str1
Line Input #2, Str2
if Str2<>Str1 then
MsgBox "السطر  "  & counter1 & " مختلف"
end if
Counter1=Counter1+1

Loop

ارجو ا أن يكون هذا هو المطلوب

مع خلص تحياتى

;) ;) :rolleyes:

ألف شكر اخي شريف---جزاك الله كل خير

جاري التجريب....

بسم الله الرحمن الرحيم

مشكور أخي الحبيب

فالكود يعمل بالفع

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

ولكن لو تكرمت وكملت معايا المشوار تكون خدمتني كثير

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

اريد البرنامج ان يقوم بالمقارنة ولكن بين ملفين (Doc)

حتى لو عملت كلمة Bold ولم اطبقها في الملف الثاني

يظهر رسالة بالخطأ

Mody.zip

بهذا يا صديقى سوف نقوم بتغيير الكود السابق كاملاً ويتحول الى مقارنه بين أسطر فى ريتش تيكست بوكس وليست ملفات ويمكنك استخدام الكود التالى:

يتم وضع 2 ريتش تيكست بوكس لهما الأسمان RTB1 & RTB2

RTB1.LoadFile App.Path & "\Text1.Doc"
RTB2.LoadFile App.Path & "\Text2.Doc"
Dim STR1 As String ,STR2 AS String,Count1 As Long, Count2 As Long,Start As Long
Start=1
Count1=1
Do While Count1<>0
Count1=Instr(Start,RTB1.Text,VBCrlf)
If Count1 Then
Str1=Mid(RTB1.Text,Start,Val(Count1-Start))
End If
Count2=Instr(Start,RTB2.Text,VBCrlf)
If Count2 Then
Str2=Mid(RTB2.Text,Start,Val(Count2-Start))
End If
Start=Count1+2
if str2<>Str1 then  
MsgBox "السطر مختلف"
End if
Loop

واتمنى ان يعمل هذا الكود لأنى قمت بكتابته دون تنفيذ

واذا حدث امامك اى مشكله قم بتبليغى بها

مع خالص تحياتى...

;) ;) :rolleyes:

شكرا جزيلا اخي للاهتمام

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

لقد قمت بضبط بعض القطع في الكود حتى يعمل

ولكن اريده يظهر رقم السطر بتاع الخطأ

ارفقت لك المشروع صغير الحجم

test.rar

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

قمت بلتحميل وجارى العمل به

مع خالص تحياتى

;) ;) :rolleyes:

هذا بعد التعديل

Mody.rar

بسم الله الرحمن الرحيم

مشكور جداً اخي شريف على الاهتمام ونخدم في مشاكلك إن شاء الله

بس انت عدلت على المشركة قبل الاخيرة

----

من فضلك تعدل على الملف المرفق مع هذه المشاركة

فانا اريده يظهر رقم السطر الخطأ في الرسالة

Last.rar

جرب هذا بعد التعديل

;) ;) :rolleyes:

Mody.rar

الف شكر وجزاك الله كل خير.

اخي شريف

:D :D :D :D :D :D :D