+- Parsi Coders (http://parsicoders.com)
+-- انجمن: Software Development Programming (http://parsicoders.com/forumdisplay.php?fid=37)
+--- انجمن: Visual Basic Programming (http://parsicoders.com/forumdisplay.php?fid=39)
+---- انجمن: Visual Basic 6 (http://parsicoders.com/forumdisplay.php?fid=44)
+---- موضوع: Open File Binary And Search String In Files (/showthread.php?tid=1876)
Open File Binary And Search String In Files - Amin_Mansouri - 03-02-2012
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 SubRE: Open File Binary And Search String In Files - aminjannoukaretam - 01-24-2017
سلام
آقا امین اگه ما بخوایم بر اساس یک دسیمال بگرده در فایلهای سیستم و اگر اون دسیمال رو در یکی از فایلها پیدا کرد به ما خبر بده چجوری کد رو بنویسیم. میتونید زحمتشو بکشید؟؟
