Пишу значит новый файл из 5 байт. Заканчаваю, почему-то файл 6 байт, а точнее добавляется нулевой байт.
Что такое?
Open ... For Binary As ...
Правила форума
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут закрыты.
Читайте требования к создаваемым темам.
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут закрыты.
Читайте требования к создаваемым темам.
Сообщений: 14
• Страница 1 из 1
- Zoomie
- Продвинутый пользователь
-
- Сообщения: 181
- Зарегистрирован: 10.05.2004 (Пн) 10:07
- Откуда: СПб
Open ... For Binary As ...
Zoomie » 31.10.2005 (Пн) 22:29
Работая с бинарниками столкнулся с такой штукой:
Пишу значит новый файл из 5 байт. Заканчаваю, почему-то файл 6 байт, а точнее добавляется нулевой байт.
Что такое?
Пишу значит новый файл из 5 байт. Заканчаваю, почему-то файл 6 байт, а точнее добавляется нулевой байт.
Что такое?
- BV
- Thinker
-
- Сообщения: 3987
- Зарегистрирован: 12.09.2004 (Вс) 0:55
- Откуда: Молдавия, г. Кишинёв
BV » 31.10.2005 (Пн) 22:35
Это твой код, который, кстати, не видно.
const char *out = "|*0>78-,+<|"; size_t cc = char_traits<char>::length(out);
for (size_t i=0;i<cc;i++){cout<<static_cast<char>((out[i]^89));}cout<<endl;
for (size_t i=0;i<cc;i++){cout<<static_cast<char>((out[i]^89));}cout<<endl;
- Zoomie
- Продвинутый пользователь
-
- Сообщения: 181
- Зарегистрирован: 10.05.2004 (Пн) 10:07
- Откуда: СПб
Zoomie » 31.10.2005 (Пн) 22:39
Такой мой код:
- Код: Выделить всё
dim FN as Byte
FN=Freefile
Open FileName For Binary As FN
Put#FN,1,Asc("F")
Put#FN,2,Asc("I")
Put#FN,3,Asc("L")
Put#FN,4,Asc("E")
Put#FN,5,Asc("!")
Close#FN
- Captain
- Начинающий
- Сообщения: 9
- Зарегистрирован: 04.02.2005 (Пт) 21:50
- Откуда: Moskau
Captain » 31.10.2005 (Пн) 22:54
Zoomie писал(а):
- Код: Выделить всё
Put#FN,5,Asc("!")
- Код: Выделить всё
Function Asc(String As String) As Integer
используй AscB
- Vi
- Постоялец
- Сообщения: 739
- Зарегистрирован: 25.01.2002 (Пт) 11:03
- Откуда: Россия, Ижевск
Vi » 01.11.2005 (Вт) 7:03
А что не судьба так выводить:
- Код: Выделить всё
Dim FN As Byte
FN = FreeFile
Open FileName For Binary As FN
Put #FN, 1, "FILE!"
Close #FN
Vita
Выше головы не прыгнешь, ниже земли не упадешь, дальше границы не убежишь! (с) КВН
Выше головы не прыгнешь, ниже земли не упадешь, дальше границы не убежишь! (с) КВН
- Mleha
- Продвинутый пользователь
-
- Сообщения: 146
- Зарегистрирован: 06.10.2004 (Ср) 7:49
- Откуда: Ангарск
Mleha » 01.11.2005 (Вт) 18:49
А ето чтоб на этой же строке без перехода на следующую PRINTить
- Код: Выделить всё
Print #EN, ,"F"; "A"; "I"; "L"; "!"
Сообщений: 14
• Страница 1 из 1
Кто сейчас на конференции
Сейчас этот форум просматривают: AhrefsBot, Google-бот и гости: 130