در خصوص تبديل كردن به Bin و Hex

[Max Payne]

با سلام خدمت دوستان
من دو تابع دارم واسه تبديل Hex2Bin و Bin2Hex


Public Function bin2hex(EvalString)
Dim i As Double
Dim tmp As String
tmp = ""
For i = 1 To Len(EvalString)
tmp = tmp & Right("00" & Hex(Asc(Mid(EvalString, i, 1))), 2)
Next i
bin2hex = tmp
End Function

اين بدون هيچ مشكلي هست كه شما مي تونيد در يك RichText اون رو لود كنيد
كه كد زير به اين تبديل ميكنه البت اين مثال هستش


*0ejd℆
002A00300065006A006402E200840086FFF

حالا يه تابع اومدم واسه Hex2Bin اين كد نوشتم


Public Function hex2bin(Eval)
Dim j As Double
Dim Convert As String
Convert = ""
For j = 1 To Len(EvalString) Step 2
Convert = Convert & Chr(Val("&H" & Mid(Eval, j, 2)))
Next j
hex2bin = Convert
End Function

اما وقتي ميام اينو تغيير

002A00300065006A006402E200840086FFF
و ومي خوام تغييرات روي فايل باينري ذخيره بشه ديگه به اون شكل

*0ejd℆
ذخيره نميشه و به اين صورت ميشه


30303241303033303030363530303641303036343032453230 30383430303836383838

اگه دوستان راهنمايي كنن ممنون ميشم و در ضمن hex2bin رو دكمه Save فراخواني كردم و همچنين از RichTextBox2.SaveFile (CommonDialog1.FileName)
استفاده كردم
با تشكر