اريد التعديل على الملف المرفق
بحيث المثال المرفق يقوم بقراءة ملف bin يعرضه في التكست على شكل hex
من لديه هذه الدالة يرفقه لنا
او التعديل على الملف المرفق
السلام عليكم
كود :
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
الله يعطيك الف الف خير وبرك الله فيك اخي الكريم
VB_Coder
ممكن تعديل السورس ليضهر على شكل
[ATTACH=CONFIG]2584[/ATTACH]
هـــــــــــــــــــــل من مجيب ياعضاء المنتدى الغالي
wolf1120 كتب :الله يعطيك الف الف خير وبرك الله فيك اخي الكريم
VB_Coder
ممكن تعديل السورس ليضهر على شكل
[ATTACH=CONFIG]2584[/ATTACH]
السلام عليكم ورحمة الله وبركاته
تفضل هذا المشروع لعله يفيدك HexEditor
التحميل
بالتوفيق
الله يعطيك ماتتمنى باخي بـــــــــــــــــــــــــــــــــــــــرك الله فيك