Прочитать и записать файл

Программирование на Visual Basic, главный форум. Обсуждение тем программирования на VB 1—6.
Даже если вы плохо разбираетесь в VB и программировании вообще — тут вам помогут. В разумных пределах, конечно.
Правила форума
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут закрыты.
Читайте требования к создаваемым темам.
E'rsh
Продвинутый пользователь
Продвинутый пользователь
Аватара пользователя
 
Сообщения: 111
Зарегистрирован: 12.06.2005 (Вс) 13:52
Откуда: Калининград

Прочитать и записать файл

Сообщение E'rsh » 09.04.2006 (Вс) 0:17

Доброго времени суток!

Этот вопрос меня уже очень долго.

Есть файл в один байт с символом "M"
Надо его прочитать и записать относитель его другой (например сдвиг) "W".

Все на первый взгляд просто, но записанный файл (второй) получается 3 быйта "W" + [Enter]

Так как записать в 1 байт? если можно проще...
Нельзя предугадать действие дураков, поскольку они крайне изобретательны.

GM
programador
programador
 
Сообщения: 1427
Зарегистрирован: 24.06.2003 (Вт) 15:56
Откуда: 194.67.52.100

Сообщение GM » 09.04.2006 (Вс) 1:05

Открывай как Binary
الفيجوال بيسك الرابح

E'rsh
Продвинутый пользователь
Продвинутый пользователь
Аватара пользователя
 
Сообщения: 111
Зарегистрирован: 12.06.2005 (Вс) 13:52
Откуда: Калининград

Сообщение E'rsh » 09.04.2006 (Вс) 1:08

GM
Пробовал.. А по точнее, если можно с кодом
Нельзя предугадать действие дураков, поскольку они крайне изобретательны.

GM
programador
programador
 
Сообщения: 1427
Зарегистрирован: 24.06.2003 (Вт) 15:56
Откуда: 194.67.52.100

Сообщение GM » 09.04.2006 (Вс) 1:12

Код: Выделить всё
Open "c:\1.txt" For Binary As #1
Put #1, 1, "W"
Close #1

1 байт
الفيجوال بيسك الرابح

E'rsh
Продвинутый пользователь
Продвинутый пользователь
Аватара пользователя
 
Сообщения: 111
Зарегистрирован: 12.06.2005 (Вс) 13:52
Откуда: Калининград

Сообщение E'rsh » 09.04.2006 (Вс) 1:17

GM
Блин, а у меня с тем же кодом что то не работало....

Спасибо!
Нельзя предугадать действие дураков, поскольку они крайне изобретательны.

E'rsh
Продвинутый пользователь
Продвинутый пользователь
Аватара пользователя
 
Сообщения: 111
Зарегистрирован: 12.06.2005 (Вс) 13:52
Откуда: Калининград

Сообщение E'rsh » 09.04.2006 (Вс) 1:18

Можно закрывать!
Нельзя предугадать действие дураков, поскольку они крайне изобретательны.

Nicky
Постоялец
Постоялец
 
Сообщения: 519
Зарегистрирован: 12.08.2004 (Чт) 12:14

Сообщение Nicky » 10.04.2006 (Пн) 7:10

GM писал(а):
Код: Выделить всё
Open "c:\1.txt" For Binary As #1
Put #1, 1, "W"
Close #1

1 байт

Блин, а у меня с тем же кодом что то не работало....

Наверное у тебя был не PUT, а PRINT, есть разница

E'rsh
Продвинутый пользователь
Продвинутый пользователь
Аватара пользователя
 
Сообщения: 111
Зарегистрирован: 12.06.2005 (Вс) 13:52
Откуда: Калининград

Сообщение E'rsh » 10.04.2006 (Пн) 7:55

Nicky
Нет.
В Get стояла переменная p1
Код: Выделить всё
Put #1, 1, p1
переменная была объявлена как Variant, а надо String
Нельзя предугадать действие дураков, поскольку они крайне изобретательны.

Smert
Обычный пользователь
Обычный пользователь
 
Сообщения: 51
Зарегистрирован: 07.04.2006 (Пт) 18:47
Откуда: Молдова,Бельцы

Сообщение Smert » 23.04.2006 (Вс) 19:55

Подождите, я непонял: :cry:
Если я пишу


dim Big as string

Big="ddddddsfsdfsdfsdtreyuiukjhkmgjngfhhgdfgfdgfdgfdgfdgdfgfdgfdgdfg
dfgfdgdfgfdgfdgdfgggggggdfgfdgfdgfdgdfgdfgfdgfdg
fdgfdgfdgfdgfdgfdg... и ещё много чего...

Put #1,1,Big

всё равно будет 1 байт :?:
Пап, а что такое ВБ?
Cынок, это просто фантастика!

tyomitch
Пользователь #1352
Пользователь #1352
Аватара пользователя
 
Сообщения: 12822
Зарегистрирован: 20.10.2002 (Вс) 17:02
Откуда: חיפה

Сообщение tyomitch » 23.04.2006 (Вс) 19:59

Smert, нет. Не всё равно.
Изображение


Вернуться в Visual Basic 1–6

Кто сейчас на конференции

Сейчас этот форум просматривают: Google-бот и гости: 124

    TopList  
cron