Const FILE_BINARY = "Какой-то двоичный файл(уже есть)"
Const FILE_TEXT = "Какой-то текстовый файл(куда будем писать)"
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
Get #1, [b]???[/b] , btArray
Open "1.bin" for Binary as 1
Put #1,1,0
Close
Open "2.bin" for OutPut as 1
Print #1, chr(0)
Close
Dim fname As String
Name fname As Left(fname, Len(fname) - 3) & "txt"
Dim fname As String
Name fname As Left(fname, Len(fname) - 3) & "exe"
SSecurity писал(а):Дааа .... так например
- Код: Выделить всё
Open "1.bin" for Binary as 1
Put #1,1,0
Close
Open "2.bin" for OutPut as 1
Print #1, chr(0)
Close
вот это прикольно .... в одном из случаев он добавляет символ окончания файла. поетому размер получается 2 и 3 байта соответственно.
alibek писал(а):SSecurity писал(а):Дааа .... так например
- Код: Выделить всё
Open "1.bin" for Binary as 1
Put #1,1,0
Close
Open "2.bin" for OutPut as 1
Print #1, chr(0)
Close
вот это прикольно .... в одном из случаев он добавляет символ окончания файла. поетому размер получается 2 и 3 байта соответственно.
Добавляется символ перехода строки (<Cr>+<Lf>). Если писать Print #1, Chr$(0); то ничего добавляться не будет.
Kostyan писал(а):Был 11100000 стал ....... , чем он стал,
Sync писал(а):я беру прогу перекидываю ее в текст...
Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 3