منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
الرجاء التعديل على السورس قراءة ملف بينار bin - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم أسئلة واستفسارات الأعضاء - المنتدى القديم (http://vb4arb.com/vb/forumdisplay.php?fid=94)
+--- قسم : قسم Visual Basic 6 وما قبله (http://vb4arb.com/vb/forumdisplay.php?fid=167)
+--- الموضوع : الرجاء التعديل على السورس قراءة ملف بينار bin (/showthread.php?tid=8697)

الرجاء التعديل على السورس قراءة ملف بينار bin - wolf1120 - 28-04-13

اريد التعديل على الملف المرفق

بحيث المثال المرفق يقوم بقراءة ملف bin يعرضه في التكست على شكل hex

من لديه هذه الدالة يرفقه لنا

او التعديل على الملف المرفق

الرجاء التعديل على السورس قراءة ملف بينار bin - VB_Coder - 29-04-13

السلام عليكم

كود :
Private Function StringToHex(ByVal StrToHex As String) As String
On Error Resume Next: Err.Clear

Dim StrTemp   As String
Dim strReturn As String
Dim I         As Long

For I = 1 To Len(StrToHex)
    StrTemp = Hex$(Asc(Mid$(StrToHex, I, 1)))
    If Len(StrTemp) = 1 Then StrTemp = "0" & StrTemp
    strReturn = strReturn & StrTemp
    DoEvents
Next I

StringToHex = strReturn
    
End Function


Private Sub Command2_Click()
On Error Resume Next: Err.Clear

CD.Filter = " Files (*.*)|*.*|"
CD.ShowOpen

Dim F As Integer
Dim FileData As String

F = FreeFile
DoEvents
Open Trim$(CD.FileName) For Binary Lock Read Write As #F
DoEvents
     FileData = Space$(LOF(F))
     DoEvents
     Get #F, , FileData
     DoEvents
Close #F
DoEvents

Text2.Text = ""

For F = 1 To Len(FileData)
    Text2.Text = Text2.Text & _
    StringToHex(Mid$(FileData, F, 1)) & " "
Next

MsgBox "OK"

End Sub


الرجاء التعديل على السورس قراءة ملف بينار bin - wolf1120 - 29-04-13

الله يعطيك الف الف خير وبرك الله فيك اخي الكريم
VB_Coder

ممكن تعديل السورس ليضهر على شكل

[ATTACH=CONFIG]2584[/ATTACH]

الرجاء التعديل على السورس قراءة ملف بينار bin - wolf1120 - 07-05-13

هـــــــــــــــــــــل من مجيب ياعضاء المنتدى الغالي

الرجاء التعديل على السورس قراءة ملف بينار bin - 3amo - 08-05-13

wolf1120 كتب :الله يعطيك الف الف خير وبرك الله فيك اخي الكريم
VB_Coder

ممكن تعديل السورس ليضهر على شكل

[ATTACH=CONFIG]2584[/ATTACH]
السلام عليكم ورحمة الله وبركاته
تفضل هذا المشروع لعله يفيدك HexEditor

التحميل

بالتوفيق

الرجاء التعديل على السورس قراءة ملف بينار bin - wolf1120 - 10-05-13

الله يعطيك ماتتمنى باخي بـــــــــــــــــــــــــــــــــــــــرك الله فيك