[Amin_Mansouri]

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