9.09.2015 / 12:54 | |
DominaN Пользователь Сейчас: Offline
Имя: Кирилл Откуда: Смоленск Регистрация: 28.09.2011
| 19Ram84, Чего у тебя код такой поехавший-то? Читать невозможно же Короче OPEN
#1,"file:///e:/music/
test.wav","OUTPUT"
Изменено DominaN (9.09 / 12:56) (всего 1 раз) |
9.09.2015 / 12:56 | |
19Ram84 Пользователь Сейчас: Offline
Регистрация: 30.08.2015
| Цитата DominaN: 19Ram84, Чего у тебя код такой поехавший-то? Читать невозможно жеДык я цитировал же Ща исправлю |
9.09.2015 / 13:02 | |
19Ram84 Пользователь Сейчас: Offline
Регистрация: 30.08.2015
| 10 CLS:OPEN #0,"file:///e:/music/test.txt","INPUT":OPEN
#1,"file:///e:/music/test.wav","INPUT":FOR N%=0 TO 127
30 GET #0,B%
40 PUT #1,B%
50 NEXT N%
60 CLOSE #1:PRINT "сохранить?":REPAINT:SLEEP 2000
70 MENUADD "stop",3,1
80 S$=MENUITEM(0)
90 IF S$="stop" THEN END
100 GOTO 120
110 CLS
120 OPEN #0,"file:///e:/music/test1.txt","INPUT":OPEN #1,"
file:///e:/music/test.wav","INPUT":FOR N%=0 TO 127
130 GET #0,B%
140 PUT #1,B%
150 NEXT N%
160 CLOSE #1
170 PRINT "сохранено"
180 REPAINT:SLEEP 2000
Ошибка в 30 строке Вот здесь всё работает 110 CLS
120 OPEN #0,"file:///e:/music/test1.txt","INPUT":OPEN #1,"
file:///e:/music/test.wav","INPUT":FOR N%=0 TO 127
130 GET #0,B%
140 PUT #1,B%
150 NEXT N%
160 CLOSE #1
170 PRINT "сохранено"
180 REPAINT:SLEEP 2000
|
9.09.2015 / 13:04 | |
HoldFast Пользователь Сейчас: Offline
Имя: Андрей Откуда: Великие Луки Регистрация: 18.04.2011
| close #0 забыл
__________________
Да, детка, я - Король Ящериц!!! |
9.09.2015 / 13:16 | |
DominaN Пользователь Сейчас: Offline
Имя: Кирилл Откуда: Смоленск Регистрация: 28.09.2011
| 19Ram84, OPEN
#1,"file:///e:/music/test.wav","OUTPUT"
И начало цикла лучше в отдельной строке сделать Изменено DominaN (9.09 / 13:16) (всего 1 раз) |
9.09.2015 / 13:22 | |
19Ram84 Пользователь Сейчас: Offline
Регистрация: 30.08.2015
| Цитата HoldFast: close #0 забылЧто из за этого, ошибка 30 строки идёт?
|
9.09.2015 / 13:25 | |
19Ram84 Пользователь Сейчас: Offline
Регистрация: 30.08.2015
| Цитата DominaN: 19Ram84, OPEN
#1,"file:///e:/music/test.wav","OUTPUT"
И начало цикла лучше в отдельной строке сделатьОпять OUTPUT Дык у меня с ним весь файл затрётся же, или не затрётся? |
9.09.2015 / 13:31 | |
DominaN Пользователь Сейчас: Offline
Имя: Кирилл Откуда: Смоленск Регистрация: 28.09.2011
| 19Ram84, Ты что сделать-то хочешь?
|
9.09.2015 / 13:47 | |
19Ram84 Пользователь Сейчас: Offline
Регистрация: 30.08.2015
| DominaN, Так то я уже программу эту написал, программа подмены заголовков, то есть она открывает файл и переписывает в её заголовок свои байты, после чего файл открывается другим редактором, а далее после редактора, возвращаю байты на место, повторив первую операцию
|
9.09.2015 / 14:02 | |
HoldFast Пользователь Сейчас: Offline
Имя: Андрей Откуда: Великие Луки Регистрация: 18.04.2011
| Нельзя открыть два потока с одним индексом, надо закрыть предыдущий
__________________
Да, детка, я - Король Ящериц!!! |