• ¡Welcome to Square Theme!
  • This news are in header template.
  • Please ignore this message.
مهمان عزیز خوش‌آمدید. ورود عضــویت


امتیاز موضوع:
  • 10 رای - 1.9 میانگین
  • 1
  • 2
  • 3
  • 4
  • 5
Title: Open File Binary And Search String In Files
حالت موضوعی
#1
Open File Binary And Search String In Files
با سورس کد زیر که نوشتم فایل رو بصورت باینری بازی میکنه و میتونید بصورت :
BinaryCompare
DatabaseCompare
TextCompare
رشته مربوطه در فایل رو با هم مقایسه کرده و بدست بیارید تابع زیر مقدار صحیح و غلط برمیگردونه
اگر مقدار True داد یعنی استرینگ رو داخل فایل مربوطه پیدا کرده اگر مقدار False داد یعنی پیدا نکرده
سورس کد :
کد:
'Public By Mohammad Amin Mansouri
'Persian Programmer Team(Www.Parsicoders)
'Open File Binary And Search String In Files
Private Const BinaryCompare = vbBinaryCompare
Private Const DatabaseCompare = vbDatabaseCompare
Private Const TextCompare = vbTextCompare
Public Function FindStringToFile(Path As String, Str As String, Compare As String) As Boolean
Amin$ = Space(FileLen(Path))
Open Path For Binary As #1
Get #1, , Amin$
Close #1
If InStr(1, (Amin), Str, Compare) <> 0 Then
FindStringToFile = True
Else
FindStringToFile = False
End If
End Function

Private Sub Form_Load()
MsgBox FindStringToFile("c:\parsicoders.exe", "MSVBVM60.DLL", BinaryCompare)
End Sub
گروه دور همی پارسی کدرز
https://t.me/joinchat/GxVRww3ykLynHFsdCvb7eg
 
پاسخ
#2
سلام

آقا امین اگه ما بخوایم بر اساس یک دسیمال بگرده در فایلهای سیستم و اگر اون دسیمال رو در یکی از فایلها پیدا کرد به ما خبر بده چجوری کد رو بنویسیم. میتونید زحمتشو بکشید؟؟ Sad
 
پاسخ
  


موضوعات مشابه ...
موضوع نویسنده پاسخ بازدید آخرین ارسال
  Copy a File Quickly Amin_Mansouri 2 2,498 09-24-2022، 12:46 PM
آخرین ارسال: jgreenlee
  google search raid 6 3,699 07-23-2012، 10:05 AM
آخرین ارسال: a.adhami
  سورس Open\Close CD\DVD Ram Thewolf 0 1,773 06-19-2012، 09:35 PM
آخرین ارسال: Thewolf
  استفاده از شی File System Object در ویژوال بیسیک Ghoghnus 0 1,978 04-24-2012، 06:54 PM
آخرین ارسال: Ghoghnus
  Retrieve File Association and open a file in its native application Amin_Mansouri 0 1,818 04-15-2012، 07:14 PM
آخرین ارسال: Amin_Mansouri
  Split Files of Any Size Amin_Mansouri 0 1,937 10-06-2011، 10:44 AM
آخرین ارسال: Amin_Mansouri
  This code allows to extract icons from .dll and .exe files Amin_Mansouri 0 2,182 09-25-2011، 10:30 PM
آخرین ارسال: Amin_Mansouri
  حل مشکل باز نشدن فایل های space دار و رفع پیغام file not found Amin_Mansouri 0 3,320 08-29-2011، 04:17 PM
آخرین ارسال: Amin_Mansouri
  Delete File Amin_Mansouri 0 2,203 05-10-2011، 05:06 PM
آخرین ارسال: Amin_Mansouri
  Source code Insert & Delete data from a file Amin_Mansouri 0 2,551 04-29-2011، 03:56 PM
آخرین ارسال: Amin_Mansouri

پرش به انجمن:


Browsing: 1 مهمان