تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
الرجاء التعديل على السورس قراءة ملف بينار bin
#1
اريد التعديل على الملف المرفق

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

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

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


الملفات المرفقة
.rar   m.rar (الحجم : 2.48 ك ب / التحميلات : 24)
الرد }}}}
تم الشكر بواسطة:
#2
السلام عليكم

كود :
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
الرد }}}}
تم الشكر بواسطة:
#3
الله يعطيك الف الف خير وبرك الله فيك اخي الكريم
VB_Coder

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

[ATTACH=CONFIG]2584[/ATTACH]


الملفات المرفقة صورة/صور
   

.rar   m.rar (الحجم : 114.11 ك ب / التحميلات : 17)
الرد }}}}
تم الشكر بواسطة:
#4
هـــــــــــــــــــــل من مجيب ياعضاء المنتدى الغالي
الرد }}}}
تم الشكر بواسطة:
#5
wolf1120 كتب :الله يعطيك الف الف خير وبرك الله فيك اخي الكريم
VB_Coder

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

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

التحميل

بالتوفيق
الرد }}}}
تم الشكر بواسطة:
#6
الله يعطيك ماتتمنى باخي بـــــــــــــــــــــــــــــــــــــــرك الله فيك
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [vb6.0] ارجو التعديل amer2000 2 132 08-08-16, 03:02 PM
آخر رد: amer2000
Smile سؤال بخصوص قراءة العدد العشري ارجوا الدخول استايل 6 193 28-07-16, 11:51 PM
آخر رد: استايل
  برنامج تلفزيون المباشر من النت مفتوح السورس . algroob 7 552 26-06-16, 01:08 PM
آخر رد: abulayth
  [سؤال] الرجاء للمرة الاخيرة عمور2016 5 167 12-06-16, 12:32 PM
آخر رد: amer2000
  هل يمكن قراءة نص من الويبكام بإستعمال OCR AEDC 0 112 21-02-16, 04:20 AM
آخر رد: AEDC
  الرجاء المساعدة في كود التاريخ wolf1120 4 711 31-12-15, 01:16 AM
آخر رد: awidan76
  الرجاء مساعدتي في تعديل كود البحث بين تارخين Nader Hassan 6 1,031 29-12-15, 02:57 AM
آخر رد: awidan76
  [VB.NET] الرجاء المساعدة على محمود 1 165 14-10-15, 08:05 PM
آخر رد: vb6_coder
  وضع علامة ونص على الصورة وحفظها بعد التعديل أبو عمر 4 271 03-10-15, 02:24 PM
آخر رد: أبو عمر
  [vb6.0] الرجاء المساعدة فى ربط جدولين poles2008 1 360 13-04-15, 02:23 AM
آخر رد: poles2008

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم