Да ладно тебе Dzhon , он волнуется вот код не мой из статьи Sync'а
Const FILE_BINARY = "C:\1.exe" 'существующий EXE
Const FILE_TEXT = "C:\1.txt" 'temp
Option Explicit
Sub main()
Dim btArray() As Byte, str As String
MsgBox "Íà÷èíàåì ïèñàòü òåêñò"
'==×èòàåì äâîè÷íûé, ïèøåì - òåêñò...
Open FILE_BINARY For Binary As #1
ReDim btArray(LOF(1) - 1)
Get #1, , btArray
str = TranslateBytesToString(btArray)
Close #1
Open FILE_TEXT For Output As #1
Print #1, str
Close #1
MsgBox "Òåêñò çàïèñàí!" & vbCrLf & "Äåëàåì âñå â îáðàòíîì ïîðÿäêå"
str = ""
'==×èòàåì òåêñò, ïèøåì - äâîè÷íûé...
Open FILE_TEXT For Input As 1
Line Input #1, str
Close #1
TranslateStringToBytes str, btArray
Open FILE_BINARY & "(copy)" For Binary As #1
Put #1, , btArray
Close #1
MsgBox "Ãîòîâî!"
End Sub
'==TranslateBytesToString - ôóíêöèÿ âîçâðàùàåò ñòðîêó, à îáðàáàòûâàåò áàéòîâé ìàññèâ
Public Function TranslateBytesToString(ByRef bt() As Byte) As String
Dim I As Long
Dim rt As String
rt = Space(UBound(bt) * 2 + 1)
For I = 0 To UBound(bt)
Mid(rt, I * 2 + 1, 2) = IIf(bt(I) < &H10, "0", "") & Hex(bt(I))
Next
TranslateBytesToString = rt
End Function
'==TranslateStringToBytes - ôóíêöèÿ îáðàðáàòûâàåò ñòðîêó, à ðåçóëüòàò ïîìåùàåò â ìàññèâ bt
Public Sub TranslateStringToBytes(ByVal vl As String, ByRef bt() As Byte)
Dim I As Long
ReDim bt(Len(vl) \ 2 - 1)
For I = 0 To UBound(bt)
bt(I) = CByte("&H" & Mid(vl, (I * 2) + 1, 2))
Next
End Sub
Private Sub Form_Load()
main
End Sub
