Консультация № 182648
28.03.2011, 16:16
77.01 руб.
0 9 1
Здравствуйте, уважаемые эксперты! Прошу вас ответить на следующий вопрос:
Дан файл(текстовый), скопировать текст из файла, начиная с 10 байта и до конца в файл, имя которого задается с клавиатуры. Заранее спасибо! Написать в tasm(DOS). Модель памяти на усмотрение.

Обсуждение

давно
Посетитель
7438
7205
28.03.2011, 16:25
общий
Сделаем
Об авторе:
"Если вы заметили, что вы на стороне большинства, —
это верный признак того, что пора меняться." Марк Твен
давно
Посетитель
7438
7205
28.03.2011, 16:39
общий
Вопросик: надо ли учитывать большие файлы или будем считать, что файлы точно < 63к?
Об авторе:
"Если вы заметили, что вы на стороне большинства, —
это верный признак того, что пора меняться." Марк Твен
Неизвестный
28.03.2011, 16:42
общий
Можно и без учета, чисто на ваше усмотрение)
давно
Посетитель
7438
7205
28.03.2011, 16:44
общий
И еще один: что делаем, если файл окажется < 10 байт?
Об авторе:
"Если вы заметили, что вы на стороне большинства, —
это верный признак того, что пора меняться." Марк Твен
Неизвестный
28.03.2011, 16:49
общий
Адресаты:
думаю, что программа должна выдавать уведомление )
давно
Посетитель
7438
7205
28.03.2011, 17:32
общий
это ответ
Здравствуйте, JohnyWayne!
Вот и программа. Файловые операции проверяются на ошибки. Будет непонятно - спрашивайте.

[code h=200]
.model small
.code
start:
mov ax, @data
mov ds, ax
mov es, ax

mov ss, ax ;сделаем стек вверху сегмента данных
mov sp, 0

lea dx, sGetIn ;строка приглашения 'Enter input file name:'
call GetName ;ds:dx = адресу имени входного файла

;откроем входной файл
mov ax, 3d00h ;открываем файл на чтение
int 21h
jc OpenError ;ошибка?
mov bx, ax ;сохраним описатель файла в bx для дальнейшей работы

;прочитаем
lea dx, buffer ;адрес буфера
mov cx, 0fc00h ;максимальное число байт (63k), которое мы будем читать
mov ah, 3fh ;функция чтения
int 21h
jc ReadError ;ошибка?
mov si, ax ;сохраним длину файла в si

mov ah, 3eh ;закроем входной файл
int 21h

;проверим на длину
cmp si, 10 ;длина файла < 10?
jb SizeError

;введем имя выходного файла
lea dx, sGetOut ;строка приглашения 'Enter output file name:'
call GetName ;ds:dx = адресу выходного файла

;создадим выходной файл
xor cx, cx ;без атрибутов
mov ah, 3ch ;функ
int 21h
jc CreateError ;ошибка?
mov bx, ax ;сохраним описатель файла в bx для дальнейшей работы

lea dx, buffer+10 ;адрес буфера, смещенный на 10
lea cx, [si-10] ;cx = длине файла - 10
mov ah, 40h ;функция записи
int 21h
jc WriteError ;ошибка

lea dx, sCopied ;выведем 'Data copied'

MessageWithClose: ;выводим сообщение
mov ah, 9
int 21h

CloseFile: ;закрываем файл
mov ah, 3eh
int 21h

PressAny:
lea dx, sAny ;выведем 'Press any key'
mov ah, 9
int 21h

mov ah, 0 ; ждем нажатие на клавишу
int 16h

mov ax,4c00h ; конец работы
int 21h

;обработка ошибок
OpenError: ;ошибка открытия (файл или не найден, или занят)
lea dx, sOpenErr
jmp MessageWithoutClose ;сообщение без закрытия файла
ReadError: ;ошибка чтения
lea dx, sReadErr
jmp MessageWithClose ;сообщение с закрытием файла
SizeError: ;ошибка размера файла
lea dx, sSizeErr
jmp MessageWithoutClose ;сообщение без закрытия файла
CreateError: ;ошибка создания выходного файла
lea dx, sCreateErr
MessageWithoutClose: ;сообщение
mov ah, 9
int 21h
jmp PressAny ;на вывод 'Press any key'
WriteError: ;ошибка записи
lea dx, sWriteErr
jmp MessageWithClose ;сообщение с закрытием файла

;Подпрограмма ввода имени файла
;на входе: ds:dx - адрес сообщения
;на выходе: ds:dx - адрес имени
GetName proc
mov ah, 9 ;выведем приглашение из dx:dx
int 21h

lea dx, buf ;введем строку
mov ah, 0ah
int 21h

xor bx, bx ;заменим последний код 0dh на 0
mov bl, len ;длина введенной строки
mov byte ptr string[bx], 0 ;пишем 0

lea dx, string ;возвращаем адрес имени
ret
GetName endp

.data

;строки сообщений
sGetIn db 0dh,0ah,'Enter input file name: $'
sGetOut db 0dh,0ah,'Enter output file name: $'
sCopied db 0dh,0ah,'Data copied$'
sAny db 0dh,0ah,'Press any key$'

sOpenErr db 0dh,0ah,'File open error!$'
sSizeErr db 0dh,0ah,'File < 10 bytes!$'
sReadErr db 0dh,0ah,'File read error!$'
sCreateErr db 0dh,0ah,'File creare error!$'
sWriteErr db 0dh,0ah,'File write error!$'

buf label byte ; буфер для приема строки с клавиатуры (по ф-и 0ah)
max db 128 ; максимальная длина строки
len db 0 ; реальная длина введенной строки
string db 128 dup (?) ; сама строка

buffer label byte ;буфер для чтения файла (размещаем за программой)

end start
[/code]
5
спасибо большое)
Об авторе:
"Если вы заметили, что вы на стороне большинства, —
это верный признак того, что пора меняться." Марк Твен
Неизвестный
28.03.2011, 17:51
общий
хм при создании файла .lst ругается на 84 строку "Underfined symbol: SCREATEER". А так же выдает ошибки в 123, 124 строке
давно
Посетитель
7438
7205
28.03.2011, 17:59
общий
Странно, попробуйте скопировать еще раз из ответа.
Каким-то непонятным образом пропала (у Вас) последняя буковка 'r' ...
Об авторе:
"Если вы заметили, что вы на стороне большинства, —
это верный признак того, что пора меняться." Марк Твен
Неизвестный
28.03.2011, 18:15
общий
Адресаты:
и вправду, спасибо большое еще раз)
Форма ответа