با سلام ...
يك سوالي داشتم و ميخواستم ببينم چه طوري ميشه دو تا فايل را مقايسه كرد ؟
خود فايل exe و يك فايل ديگه هم ميشه مقايسه كرد ؟
با تشكر ـ مهدي :)
Printable View
با سلام ...
يك سوالي داشتم و ميخواستم ببينم چه طوري ميشه دو تا فايل را مقايسه كرد ؟
خود فايل exe و يك فايل ديگه هم ميشه مقايسه كرد ؟
با تشكر ـ مهدي :)
اقا درست حسابی بنویس ببینیم چی میگی. خودت میتونی معنی نوشتتو بفهمی؟
مقايسه دو تا فايل ...
دو تا فايل را بياد با هم مقايسه كنه ... يعني ببينه اين دو تا فايل يكي هستند يا نه ؟!
چيز قابل فهمي نيست ؟!!
خوب یه راه اینه که حجمشون رو مقلیسه کنی
دومیشم اینه که بری کل دو تا فایل رو بریزی تو یه رشته بعد با یه = مقایسه کنی
حجمشون را نميخوام ...
ميخوام بايت به بايت مقايسه صورت بگيره ...
سورس كدي در اين زمينه سراغ نداريد ؟
سلام مهدی جان.
شما میتونی با دستور Open فایل رو باز کنی و کل اطلاعات موجود در اون فایل رو بخونی و در یه متغیر استرینگ بریزی. حالا این کارو باید برای دو تا فایل مورد نظرت انجام بدی و در نهایت با یه مقایسه ساده و استفاده از = میتونی متوجه شی دو فایل تفاوت دارن یا نه. خود فایل exe رو هم میتونی مقایسه کنی.
اگه خواستی بگو کدشو برات بذارم.
سلام پيمان جان ...نقل قول:
خيلي ممنون از راهنمايي هاتون :11:
اگه كدش را بذاري ، خيلي ممنون ميشم . ترجيحا بياد خودش ( فايل exe ) را با يك فايل ديگه مقايسه كنه ...
قربانت ـ مهدي :)
سلام مهدی جان خوبی
من برات یکی نوشتم برات می زارم خودت بهش برس چون 10 دقیقه ای نوشتم.
برو تو قسمت کد نویسی و فایل مورد نظرتو بهش بده و برنامه رو اجرا کن اگه حجم فایل ها درست بود هیچی نمی گه ولی اگه درست نبود تو لیبل می زنه 12
بایتی هم حجم فایل ها رو میگه یه چند تا دیگه برات سورس گزاشتم که می تونی با کار کردن رو تفاوت های فایل ها رو ببینی
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
سلام ...نقل قول:
خيلي ممنون تكنيك برتر جان !
من قصدم مقايسه حجم و اين چيزها نيست ... ميخوام بايت به بايت مقايسه صورت بگيره ... يعني همون چيزي كه پيمان جان هم اشاره كردند ...
سلام مهدی جان.
من کد رو کلی نوشتم. خودت میتونی به راحتی طوری تغییرش بدی که فایل exe خودت رو با یه فایل دیگه مقایسه کنه.
2 تا تکس باکس و یه لیبل و یه کامند رو فرم بذار و این کد رو کپی کن. آدرس فایل هایی که میخوای مقایسه شن رو تو تکس باکس ها بده و رو کامند کلیک کن. نتیجه مقاسه تو لیبل نمایش داده میشه. میتونی تو یکی از تکس باکس ها آدرس خود فایل exe رو بدی تا با یه فایل دیگه مقایسه شه.
اگه 2 تا فایل 1 گیگی فقط تو یه اسپیس با هم تفاوت داشته باشن نتیجه مقایسه فالس خواهد بود.
کد:Private Function CheckingFiles(strFirstAdrs As String, strSecondAdrs As String) As Boolean
Dim strFirstData As String, strSecondData As String
strFirstData = ReadFromFile(strFirstAdrs)
strSecondData = ReadFromFile(strSecondAdrs)
CheckingFiles = CBool(strFirstData = strSecondData)
End Function
Private Function ReadFromFile(strAdrsOfFile As String) As String
Dim strData As String
Open strAdrsOfFile For Binary As #1
strData = Space$(FileLen(strAdrsOfFile))
Get #1, , strData
Close #1
ReadFromFile = strData
End Function
Private Sub Command1_Click()
Label1.Caption = CheckingFiles(Text1.Text, Text2.Text)
End Sub
خيلي ممنون پيمان جان ...
همين بود كه دنبالش مي گشتم ...
قربانت ـ مهدي :)
سلام.نقل قول:
خواهش میکنم. قابلتو نداشت.
خوشحالم که تونستم کمکت کنم.
بازم مشکلی بود در خدمتم.