Поменять в исходном файле буквы слов местами

@kristinka_15 · Регистрация: 22.10.2017

Author24 — интернет-сервис помощи студентам

Программа должна быть на писана на языке Assembler. С комментариями.
Программа должна обрабатывать исходный текстовый файл с использованием функций DOS и формировать новый файл с результатами обработки исходного файла.
Имя исходного и обработанного файлов задать в программе в виде ASCIIZ-строк.
При обработке файла использовать следующую последовательность вызова функций DOS:
1. открытие исходного файла (функция 3DH);
2. создание нового файла, куда будут помещаться результаты обработки исходного файла (функция 3CH);
3. чтение исходного файла (функция 3FH);
4. обработка прочитанных данных;
5. запись обработанных данных в созданный файл (функция 40H);
6. закрытие файла с результатами обработки (функция 3EH);
7. закрытие исходного файла (функция 3EH).
Для чтения данных из исходного файла может быть использован буфер, определенный в программе как массив байт или слов. Рекомендуемый размер буфера – 512 байт (256 слов). На шаге 4 обрабатываются данные, находящиеся в буфере, а на шаге 5 обработанные данные из буфера записываются в файл.
Размер исходного файла для обработки выбрать меньшим или равным размеру буфера.
Задание (для 4 пункта):
Поменять в исходном файле буквы слов местами. Пример: windows -> swodniw.

ФедосеевПавел · 22.10.2017, 15:55

kristinka_15, само задание - несложное, но при реализации на ассемблере выльется в несколько сот строк. Там вся соль в том, что слово может оказаться частью в одном буфере, частью в следующем. Решение - буферизация ввода и вывода, т.е. реализация аналога сишных fread и fwrite.

Т.е. без вашего личного участия - не обойтись.

Нужно будет организовать 2 буфера - один для чтения, другой для записи - иначе разделённое слово невозможно будет корректно записывать.

Добавлено через 10 минут
Я когда-то начинал, но не закончил запись в файл - она осталась неправильной, хотя с той задачей справлялась
В текстовом файле переписать символы каждой строки в обратном порядке
Чтение из файла, перевод строки в число

Добавлено через 13 часов 17 минут
kristinka_15, что-то сообщения потёрлись, поэтому ещё раз повторю.
Соберите программку на простом C, которая будет решать задачу. И эту программу можно будет транслировать в асм. Я прикинул, она будет очень похожа на приведённую по первой ссылке.

@Argogo · 22.10.2017, 16:15

Сообщение от ФедосеевПавел

Там вся соль в том, что слово может оказаться частью в одном буфере, частью в следующем.

Там же написано:

Сообщение от kristinka_15

Размер исходного файла для обработки выбрать меньшим или равным размеру буфера.

ФедосеевПавел · 22.10.2017, 18:28

Argogo, спасибо. Невнимательно прочёл условие, как-то сразу начал мысленно тестировать его на слабые места. Просто, доводилось парсить log на unicode, а для ускорения делать самостоятельную буферизацию (правда, на ЯВУ). И теперь всех подталкиваю на этот пагубный путь.

А раз так, то получается ерунда, в одно действие считывается один единственный буфер, обрабатывается и тут же сохраняется.-

Добавлено через 54 минуты
Так, без обработки строк файла - т.е. исходный файл просто копируется в результирующий. Осталось создать обработчик строк (строки)

Assembler

_TEXT   segment word    public  'CODE'
        assume  cs:_TEXT, ds:_TEXT, ss:_TEXT
        org     100h
start:
        ;1.     открытие исходного файла (функция 3DH);
        mov     ah,     3Dh
        mov     al,     00h             ;открыть для чтения
        lea     dx,     InFileName
        int     21h
        jnc     @@InFileOpenOk
        mov     ah,     09h
        lea     dx,     errFileOpen
        int     21h
        jmp     @@Exit
@@InFileOpenOk:
        mov     InFileHandler,  ax
        ;2.     создание нового файла, куда будут помещаться результаты
        ;обработки исходного файла (функция 3CH);
        mov     ah,     3Ch             ;открыть для записи
        mov     cx,     00h             ;атрибут файла - обычный файл
        lea     dx,     OutFileName
        int     21h
        jnc     @@OutFileOpenOk
        mov     ah,     09h
        lea     dx,     errFileOpen
        int     21h
        jmp     @@CloseInFileAndExit
@@OutFileOpenOk:
        mov     OutFileHandler, ax
        ;3.     чтение исходного файла (функция 3FH);
        mov     ah,     3Fh
        mov     bx,     InFileHandler
        mov     cx,     SizeBuffer
        lea     dx,     FileBuffer
        int     21h
        jnc     @@InFileReadOk
        mov     ah,     09h
        lea     dx,     errFileRead
        int     21h
        jmp     @@CloseOutFileAndExit
@@InFileReadOk:
        mov     BufLength,      ax
        ;4.     обработка прочитанных данных;
        ;5.     запись обработанных данных в созданный файл (функция 40H);
        mov     ah,     40h
        mov     bx,     OutFileHandler
        mov     cx,     BufLength
        lea     dx,     FileBuffer
        int     21h
        ;6.     закрытие файла с результатами обработки (функция 3EH);
@@CloseOutFileAndExit:
        mov     ah,     3Eh
        mov     bx,     OutFileHandler
        int     21h
        jnc     @@Exit
        mov     ah,     09h
        lea     dx,     errFileClose
        int     21h
        ;7.     закрытие исходного файла (функция 3EH).
@@CloseInFileAndExit:
        mov     ah,     3Eh
        mov     bx,     InFileHandler
        int     21h
        jnc     @@Exit
        mov     ah,     09h
        lea     dx,     errFileClose
        int     21h
@@Exit:
        int     20h
;-----------------------------------------------------------------------
; данные
;-----------------------------------------------------------------------
        ;---------------------------------------------------------------
        ;сообщения программы
        ;---------------------------------------------------------------
        errFileOpen     db      0Dh, 0Ah, 'File open error', '$'
        errFileClose    db      0Dh, 0Ah, 'File close error', '$'
        errFileRead     db      0Dh, 0Ah, 'File read error', '$'
        CrLf            db      0Dh, 0Ah, '$'
        ;---------------------------------------------------------------
        ;файлы
        ;---------------------------------------------------------------
        InFileName      db      'InFile.txt', 0
        OutFileName     db      'OutFile.txt', 0
        InFileHandler   dw      ?
        OutFileHandler  dw      ?
        BufLength       dw      ?               ;количество байт, реально
                                                ;считанное из файла
        FileBuffer      db      512 dup(?)
        SizeBuffer      equ     $-FileBuffer
_TEXT   ends
 
        end     start

Добавлено через 6 минут
Осталось обработать строки в буфере.
Предположим (т.к. об этом нет в задании), что исходный (а следовательно и итоговый) файл содержит одну строку, в которой слова разделены пробелами и нет даже переводов строк - т.е. файл представляет из себя длинную строку.

Тогда, можете воспользоваться алгоритмом выделения по ссылкам
В строке в словах с четным номером изменить порядок букв на обратный
Количество слов, содержащих более 3-х символов

Добавлено через 17 минут
Обработка

Assembler

        ;4.     обработка прочитанных данных;
        lea     si,     FileBuffer
        mov     cx,     BufLength
        ;пропускаем все разделители
@@WhileDelimiter:
        mov     al,     [si]
        cmp     al,     DelimChar
        jne     @@NewWord
        inc     si
        loop    @@WhileDelimiter
 
        jcxz    @@Finish        ;если строка закончилась - выйти
        ;найдено новое слово
@@NewWord:
        mov     dx,     0       ;длина очередного слова пока равна 0
        mov     di,     si      ;сохраняем индекс (адрес) начала очередного слова
        ;пропускаем все буквы слова до разделителя
@@WhileWord:
        mov     al,     [si]
        cmp     al,     DelimChar
        je      @@Break
        inc     dx              ;увеличиваем длину слова
        inc     si              ;переходим к следующему символу
        loop    @@WhileWord
@@Break:
    ;обрабатываем найденное слово
    push    si
    dec si
    shr dx, 1
    jz  @@NoReverse
    @@ReverseChars:
        mov al, [si]
        xchg    al, [di]
        mov [si],   al
        inc di
        dec si
        dec dx
    jnz @@ReverseChars
@@NoReverse:
    pop si
        jcxz    @@Finish
        jmp     @@WhileDelimiter
@@Finish:

@kristinka_15 · 23.10.2017, 19:53 **[ТС]**

ФедосеевПавел, ничего не понятно... особенно что такое @@...

ФедосеевПавел · 23.10.2017, 21:13

Сначала я набрал каркас программы - открытие файлов, чтение буфера, запись буфера, закрытие файлов - никакой обработки.

Зато компилируется а при выполнении копирует содержимое файла.

Потом посидел, подумал и набрал 4-й пункт - обработку файла. Но не стал публиковать весь текст, а только сам 4-й пункт.

Попробуйте запустить шаблонную программу, а потом скопируйте и вставьте в неё дополнение. Это будет ваше готовое задание.

Символы @@ я добавляю для локальных меток - которые не должны быть видны за пределами данной процедуры. Но такое действует только в TASM и при добавлении специальной директивы. А добавляю - скорее, по инерции - можете удалить их во всём тексте.

@kristinka_15 · 23.10.2017, 21:59 **[ТС]**

ФедосеевПавел, DelimChar есть в обработке... но его задания я не нашла..
и можете пожалуйста либо кратко объяснить как что вы делаете в обработке...либо комментарии по дописать, пожалуйста если не сложно

а то до конца не доходит просто...

Добавлено через 22 минуты
ФедосеевПавел, проще говоря DelimChar не определён...

ФедосеевПавел · 23.10.2017, 22:09

DelimChar

Assembler

;-----------------------------------------------------------------------
; данные
;-----------------------------------------------------------------------
        ;---------------------------------------------------------------
        ;сообщения программы
        ;---------------------------------------------------------------
        errFileOpen     db      0Dh, 0Ah, 'File open error', '$'
        errFileClose    db      0Dh, 0Ah, 'File close error', '$'
        errFileRead     db      0Dh, 0Ah, 'File read error', '$'
        CrLf            db      0Dh, 0Ah, '$'
        ;---------------------------------------------------------------
        ;обрабатываемая строка
        ;---------------------------------------------------------------
        DelimChar       db      ' '             ;символ разделитель слов
                                                ;в строке
        ;---------------------------------------------------------------
        ;файлы
        ;---------------------------------------------------------------
        InFileName      db      'InFile.txt', 0
        OutFileName     db      'OutFile.txt', 0
        InFileHandler   dw      ?
        OutFileHandler  dw      ?
        BufLength       dw      ?               ;количество байт, реально
                                                ;считанное из файла
        FileBuffer      db      512 dup(?)
        SizeBuffer      equ     $-FileBuffer

В обработке выделяю слова.
Общий принцип

Pascal

  repeat
    {пропускаем разделители - их может быть несколько подряд}
    while s[i]=DelimChar do
      i:=i+1;
    Istart:=i; {Istart - индекс начала слова}
    {пропускаем символы слова}
    while i<>DelimChar do
      i:=i+1;
    {теперь есть индекс Istart - начала слова, (i-1) - конца слова
     зная их, нужно обменять символы в позиции Istart с (i-1) и т.д.}
    for j:=1 to ((i-1)-Istart)/2 do
      swap(s[j+Istart-1], s[i-j])
  until в буфере нет символов

@kristinka_15 · 23.10.2017, 22:18 **[ТС]**

ФедосеевПавел, сначала гонит по строке, пропуская разделители, потом берет начало слова...и пока начало слова (или i) <> разделителя ...увеличивает i на один. В итоге у него появляется индекс начала слова и конца слова. Далее зная их он меняет символы , делая их задом на перёд, до того момента пока в буфере не закончатся все символы, так? я правильно поняла?оО

ФедосеевПавел · 23.10.2017, 22:27

Да, поняли вы правильно. В псевдокоде не всё учтено в целях упрощения понимания, но в реальном коде проверок несколько больше - всё время проверяется ситуация "конец строки (буфера)".

И терминология "гонит по строке" - нечто.

В ссылках, которые привёл ранее я делал пояснения по выделению слов в строке (буфере) - можете и там почитать.

@kristinka_15 · 23.10.2017, 22:42 **[ТС]**

ФедосеевПавел, спасибо огромнейшее

ФедосеевПавел · 23.10.2017, 22:50

Вы, таки, разобрались и сможете выделять слова не только в асме, но и на С/Pascal/BASIC ?
Ну всё, вы - хакер!

@kristinka_15 · 23.10.2017, 23:23 **[ТС]**

ФедосеевПавел, я еще завтра до разбираю))
кстати я правильно поняла, что это ведь использование директив: _TEXT segment word public 'CODE'
assume cs:_TEXT, ds:_TEXT, ss:_TEXT ?

ФедосеевПавел · 24.10.2017, 06:58

Да.
Можете упрощённо
_TEXT segmentТо мне на глаза попалась какая-то статья

@kristinka_15 · 24.10.2017, 21:20 **[ТС]**

ФедосеевПавел, а можно еще уточнить, зачем вот эта строчка: SizeBuffer equ $-FileBuffer ?

ФедосеевПавел · 24.10.2017, 22:55

Символ $ это текущий адрес. Кстати FileBuffer это не просто символы, это адрес переменной.
Тогда, $-FileBuffer начинает напоминать разницу индексов (Ifinish+1)-Istart что соответствует длине (размеру в байтах) переменной FileBuffer - т.е. буфера.

Иногда новички переделывают программы с форума и перемещают выражение $-FileBuffer в другое место и программы перестают работать. Потому, что $ - это текущий адрес. Кроме того, символ $ можно использовать многократно в программе.

Assembler

a dw 5
b db 10 dup(0)
c dw $-b;  длина буфера b
d dw $-a; размер переменных a, b, c вместе взятых, т.е. d=2+10+2=14
e dw $  ;в e адрес переменной e. Сам адрес (значение) станет известен после компиляции.
f dw $-b; несмотря на то, что выражение похоже на переменную c, в этой
          ;переменной будет длина переменных b, c, d, e вместе взятых

Вроде понятно объяснил.
Вобще-то это есть в учебнике по синтаксису tasm.

Добавлено через 4 минуты
Конкретно в программе константа FileBuffer нужна один раз при чтении из файла. Можно было бы сразу указать 512, но при изменении размера буфера пришлось бы искать и заменять 512 на новое значение. А так - всё в символах.

@Constantin Cat · 25.10.2017, 12:03

Сообщение от kristinka_15

SizeBuffer equ $-FileBuffer

Компилятор считает разницу текущего адреса ($) и адреса (FileBuffer), и каждый раз в местах, где встретится SizeBuffe будет подставлено это значение.

@kristinka_15 0 / 0 / 0 Регистрация: 22.10.2017 Сообщений: 29
	23.10.2017, 22:42 [ТС]	11
	ФедосеевПавел, спасибо огромнейшее 0

ФедосеевПавел Модератор 8475 / 4334 / 1642 Регистрация: 01.02.2015 Сообщений: 13,455 Записей в блоге: 8
	22.10.2017, 15:55	2
	kristinka_15, само задание - несложное, но при реализации на ассемблере выльется в несколько сот строк. Там вся соль в том, что слово может оказаться частью в одном буфере, частью в следующем. Решение - буферизация ввода и вывода, т.е. реализация аналога сишных fread и fwrite. Т.е. без вашего личного участия - не обойтись. Нужно будет организовать 2 буфера - один для чтения, другой для записи - иначе разделённое слово невозможно будет корректно записывать. Добавлено через 10 минут Я когда-то начинал, но не закончил запись в файл - она осталась неправильной, хотя с той задачей справлялась В текстовом файле переписать символы каждой строки в обратном порядке Чтение из файла, перевод строки в число Добавлено через 13 часов 17 минут kristinka_15, что-то сообщения потёрлись, поэтому ещё раз повторю. Соберите программку на простом C, которая будет решать задачу. И эту программу можно будет транслировать в асм. Я прикинул, она будет очень похожа на приведённую по первой ссылке. 0

@Argogo 593 / 390 / 70 Регистрация: 29.03.2013 Сообщений: 813
	22.10.2017, 16:15	3
	Сообщение от ФедосеевПавел Там вся соль в том, что слово может оказаться частью в одном буфере, частью в следующем. Там же написано: Сообщение от kristinka_15 Размер исходного файла для обработки выбрать меньшим или равным размеру буфера. 1

@kristinka_15 0 / 0 / 0 Регистрация: 22.10.2017 Сообщений: 29
	23.10.2017, 19:53 [ТС]	5
	ФедосеевПавел, ничего не понятно... особенно что такое @@... 0

ФедосеевПавел Модератор 8475 / 4334 / 1642 Регистрация: 01.02.2015 Сообщений: 13,455 Записей в блоге: 8
	23.10.2017, 21:13	6
	Сначала я набрал каркас программы - открытие файлов, чтение буфера, запись буфера, закрытие файлов - никакой обработки. Зато компилируется а при выполнении копирует содержимое файла. Потом посидел, подумал и набрал 4-й пункт - обработку файла. Но не стал публиковать весь текст, а только сам 4-й пункт. Попробуйте запустить шаблонную программу, а потом скопируйте и вставьте в неё дополнение. Это будет ваше готовое задание. Символы @@ я добавляю для локальных меток - которые не должны быть видны за пределами данной процедуры. Но такое действует только в TASM и при добавлении специальной директивы. А добавляю - скорее, по инерции - можете удалить их во всём тексте. 1

@kristinka_15 0 / 0 / 0 Регистрация: 22.10.2017 Сообщений: 29
	23.10.2017, 21:59 [ТС]	7
	ФедосеевПавел, DelimChar есть в обработке... но его задания я не нашла.. и можете пожалуйста либо кратко объяснить как что вы делаете в обработке...либо комментарии по дописать, пожалуйста если не сложно а то до конца не доходит просто... Добавлено через 22 минуты ФедосеевПавел, проще говоря DelimChar не определён... 0

@kristinka_15 0 / 0 / 0 Регистрация: 22.10.2017 Сообщений: 29
	23.10.2017, 22:18 [ТС]	9
	ФедосеевПавел, сначала гонит по строке, пропуская разделители, потом берет начало слова...и пока начало слова (или i) <> разделителя ...увеличивает i на один. В итоге у него появляется индекс начала слова и конца слова. Далее зная их он меняет символы , делая их задом на перёд, до того момента пока в буфере не закончатся все символы, так? я правильно поняла?оО 0

ФедосеевПавел Модератор 8475 / 4334 / 1642 Регистрация: 01.02.2015 Сообщений: 13,455 Записей в блоге: 8
	23.10.2017, 22:27	10
	Да, поняли вы правильно. В псевдокоде не всё учтено в целях упрощения понимания, но в реальном коде проверок несколько больше - всё время проверяется ситуация "конец строки (буфера)". И терминология "гонит по строке" - нечто. В ссылках, которые привёл ранее я делал пояснения по выделению слов в строке (буфере) - можете и там почитать. 1

ФедосеевПавел Модератор 8475 / 4334 / 1642 Регистрация: 01.02.2015 Сообщений: 13,455 Записей в блоге: 8
	23.10.2017, 22:50	12
	Вы, таки, разобрались и сможете выделять слова не только в асме, но и на С/Pascal/BASIC ? Ну всё, вы - хакер! 1

@kristinka_15 0 / 0 / 0 Регистрация: 22.10.2017 Сообщений: 29
	23.10.2017, 23:23 [ТС]	13
	ФедосеевПавел, я еще завтра до разбираю)) кстати я правильно поняла, что это ведь использование директив: _TEXT segment word public 'CODE' assume cs:_TEXT, ds:_TEXT, ss:_TEXT ? 0

ФедосеевПавел Модератор 8475 / 4334 / 1642 Регистрация: 01.02.2015 Сообщений: 13,455 Записей в блоге: 8
	24.10.2017, 06:58	14
	Да. Можете упрощённо `_TEXT segment`То мне на глаза попалась какая-то статья 1

	25.10.2017, 12:03

@kristinka_15 0 / 0 / 0 Регистрация: 22.10.2017 Сообщений: 29
	24.10.2017, 21:20 [ТС]	15
	ФедосеевПавел, а можно еще уточнить, зачем вот эта строчка: SizeBuffer equ $-FileBuffer ? 0

@Constantin Cat 3406 / 1825 / 489 Регистрация: 28.02.2015 Сообщений: 3,696
	25.10.2017, 12:03	17
	Сообщение от kristinka_15 SizeBuffer equ $-FileBuffer Компилятор считает разницу текущего адреса ($) и адреса (FileBuffer), и каждый раз в местах, где встретится SizeBuffe будет подставлено это значение. 1