• ¡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
 
پاسخ
  


پیام‌های این موضوع
Open File Binary And Search String In Files - توسط Amin_Mansouri - 03-02-2012، 11:19 AM

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

پرش به انجمن:


Browsing: 1 مهمان