Навигация
Главная
Поиск
Форум
FAQ's
Ссылки
Карта сайта
Чат программистов

Статьи
-Delphi
-C/C++
-Turbo Pascal
-Assembler
-Java/JS
-PHP
-Perl
-DHTML
-Prolog
-GPSS
-Сайтостроительство
-CMS: PHP Fusion
-Инвестирование

Файлы
-Для программистов
-Компонеты для Delphi
-Исходники на Delphi
-Исходники на C/C++
-Книги по Delphi
-Книги по С/С++
-Книги по JAVA/JS
-Книги по Basic/VB/.NET
-Книги по PHP/MySQL
-Книги по Assembler
-PHP Fusion MOD'ы
-by Kest
Professional Download System
Реклама
Услуги

Автоматическое добавление статей на сайты на Wordpress, Joomla, DLE
Заказать продвижение сайта
Программа для рисования блок-схем
Инженерный калькулятор онлайн
Таблица сложения онлайн
Популярные статьи
OpenGL и Delphi... 65535
Форум на вашем ... 65535
21 ошибка прогр... 65535
HACK F.A.Q 65535
Бип из системно... 65535
Гостевая книга ... 65535
Invision Power ... 65535
Пример работы с... 65535
Содержание сайт... 65535
ТЕХНОЛОГИИ ДОСТ... 65535
Организация зап... 65535
Вызов хранимых ... 65535
Создание отчето... 65535
Имитационное мо... 65535
Программируемая... 65535
Эмулятор микроп... 65535
Подключение Mic... 65535
Создание потоко... 65535
Приложение «Про... 65535
Оператор выбора... 65535
Реклама
Сейчас на сайте
Гостей: 9
На сайте нет зарегистрированных пользователей

Пользователей: 13,361
новичок: uehuat
Новости
Реклама
Выполняем курсовые и лабораторные по разным языкам программирования
Подробнее - курсовые и лабораторные на заказ
Delphi, Turbo Pascal, Assembler, C, C++, C#, Visual Basic, Java, GPSS, Prolog, 3D MAX, Компас 3D
Заказать программу для Windows Mobile, Symbian

Моделирование процесса обработки заданий пакетным режимом работы с квант...
Игра Sokoban на Delphi + Блок схемы
Моделирование автовокзала + Отчет + Блок схема

Поиск строки в файле
Data segment
msg db 'Enter symbols:$'
path db 'C:\temp\asm_file.txt',0 ;путь к файлу
Nfound db 'Symbols in file not found :($'
err_msg db 'EPIC FAIL$'
shift db 0ah,0dh,'$' ;смещение
str_buff db 4 dup (?) ;буффер строки сравнения
symbols db 5h,?, 6 dup(?) ;буффер строки,которую будем искать
pos_dec db ?,?,?,?,?,0ah,'$' ;тут будет десятичная позиция строки в файле
pos_hex db 0 ;шестнадцатиричная позиция строки в файле
temp_pos_hex db ? ;временная позиция в хекс,для отката изменений указателя в файле
Hfile dw ? ;хэндл файла
buff db ? ;буффер чтения символов из файла
endf_flag db 0 ;флаг конца файла
err_flag db 0 ;флаг ошибки чтения из файла
check_flag db 0h ;флаг сходства первого и последнего сивола строки со строкой в файле
found_flag db 0 ;флаг найденной строки
data ends
code segment
assume cs:code,ds:data
Translate proc far ;перед вызовом подпрограммы в стек помещается cs:ip что бы вернуться обратно
;-------------------------------------вынимаем некоторые значения из стека
pop cx ;вынимаем ip в cx
pop bp ;извлекаем cs в bp
pop si ;смещение строки в которую запишется десятичная позиция
pop ax ;адрес строки в файле в шестнадцатиричном виде
mov bx,2710h ;bx = 10000
xor dx,dx ;очищяем dx,в нем будет остаток
div bx ;выполняем деление ax на bx
add ax,48 ;доводим число до ascii прибавив к нему 48
mov [si],al ;заносим число в строку вывода
mov ax,dx ;в ax остаток от деления
inc si ;передвигаемся в строке вывода к след позиции
mov bx,3e8h ;bx = 1000
xor dx,dx
div bx
add ax,48
mov [si],al
mov ax,dx
inc si
xor bx,bx
mov bl,64h ;bl = 100
div bl
add al,48
mov [si],al
mov al,ah ;в ah дробная часть от деления,переносим ее в al
xor ah,ah ;очищаем ah,сюда запишется остаток от деления
inc si
mov bl,0ah ;bl = 10
div bl ;делим ax на bl
add al,48 ;al - целая часть числа от деления,доводим до ascii символа
mov [si],al ;заносим его в строку
inc si
mov al,ah ;в ah дробная часть от деления,переносим ее в al
add al,48 ;оставшуюся дробную часть доводим до ascii,дальше делить не нужно
mov [si],al ;заносим символ в строку
push bp ;возврат управлени основной программе (cs)
push cx ;ip
ret
Translate endp

Read proc far ;чтение символов файла
xor ax,ax
mov ah,3fh ;номер функции
mov bx,Hfile ;хэндл файла
mov cx,1h ;кол-во считываемых байт
lea dx,buff ;смещение буффера чтения
int 21h
jc read_err ;ошибка чтения
cmp ax,0 ;конец чтения файла
je end_of_file
ret
end_of_file:
mov endf_flag,1 ;флаг конца файла в 1
ret
read_err:
mov err_flag,1 ;флаг ошибки чтения в 1
ret
Read endp

check proc far ;подпрограмма проверки 1го и последнего символов строки с некоторой строкой в файле
cmp al,[symbols+2] ;сравнение первого символа
jne r ;не равны
xor ax,ax
mov ah,42h ;номер функции
mov bx,Hfile ;хэндл файла
mov cl,[symbols+1] ;в cl количество сдвигов от начала файла,тоесть длина искомой строки
sub cl,2 ;2-за счет того что ранее был вызван read
;позиция должна быть меньше на единицу позиции считываемого символа
add [pos_hex],cl ;в pos_hex - текущий указтель в файле,после чтения или любого изменения я его меняю
xor cx,cx ;в cx 0,потому что в связке CX:DX могут обрабатываться файлы длинее 65536 байт
mov dl,[pos_hex] ;в dl позиция от начала файла
int 21h ;изменение положения указателя в файле
jc some_err ;какая либо ошибка
call read ;чтение последнего символа искомой строки из какой либо строки в файле
add [pos_hex],1 ;после чтения символа изменяем значение переменной хранящей текущую позицю указателя
cmp [err_flag],1 ;read может выстовлять флаг ошибки чтения
je some_err ;ошибка имело место
mov al,[buff] ;в al - считаный символ
xor bx,bx
mov bl,[symbols+1] ;число символов в искомой строке
inc bx ;что бы смещение перескачило через байт количества введенных символов
cmp al,[symbols+bx] ;сравниваются последние символы искомой и считаной с файла строки
jne not_eq1 ;не равны
mov [check_flag],1 ;если равны,то флаг превой проверки устанавливается в 1
r:ret
not_eq1:
xor ax,ax
mov ah,42h ;номер функции
mov bx,Hfile ;хэндл файла
mov cl,[symbols+1] ;в cl количество символов в искомой строке
dec cl ;что бы количество было меньше на 1
sub [pos_hex],cl ;вычесть из текущей позиции указателя cl,что бы потом считывать след символ
xor cx,cx ;позиция может быть равна (cx*65536)+dx,поэтому cx=0
mov dl,[pos_hex] ;устанавливаемая позиция указателя в файле
int 21h
ret
some_err:
mov [err_flag],1 ;флаг какой либо ошибки устанавливается в 1
ret
check endp

sub_check proc far ;если первый и последний символы искомой строки сошлись с какой либо строкой в файле
;то неоходимо проверить каждый символ этих строк на совпадение
xor ax,ax
mov ah,42h ;номер функции
mov bx,Hfile ;хэндл файла
xor cx,cx
mov dl,[temp_pos_hex] ;в dl временная позиция указателя в файле,была введена для упрощения возврата
; к строке в файле,если ее первый и последний символы сошлись с искомой
int 21h
mov cl,[symbols+1] ;количество символов,которые будут считаны из файла,тоесть,длина искомой строки
lea dx,str_buff ;буффер чтения из файла
cycle:
push cx ;cx в стек,что бы при чтении из файла он не вызвал ошибки
xor ax,ax
mov ah,3fh ;номер функции чтения из файла
mov bx,Hfile ;хэндл файла
mov cx,1h ;будет считан один байт
int 21h
inc dx ;смещаемся по буфферу чтения из файла
pop cx ;востанавливаем cx для сохранения цикла
loop cycle
add [temp_pos_hex],1 ;добавляется 1,потому что если строки не сойдутся
;мы уже не сможем своевременно выполнить эту инструкцию в основной части программы
mov al,[temp_pos_hex] ;потому что в одной инструкции нельзя использовать две косвеных адресации
mov [pos_hex],al ;собственно ради этого и была введена переменная temp_pos_hex
;вычисление смещения для возврата изменений,если строка не сойдется,
;могут создать много ошибок,а если строки сойдутся,то это ни на что не повлияет
xor ax,ax
mov ah,42h ;номер функции
mov bx,Hfile ;хэндл файла
xor cx,cx
mov dl,[pos_hex] ;позия указателя от начала файла,al=0
int 21h
call match ;подпрограмма посимвольного сравнения строк
ret
sub_check endp

match proc ;подпрограмма посимвольного сравнения строк
CLD ;не обязательно,сравнение происходит слева на право
xor cx,cx
mov cl,[symbols+1] ;количество символов в строке
lea di,str_buff ;смещение строки из файла
lea si,symbols ;смещение искомой строки
add si,2 ;что бы перепрыгнуть байты макс сиволов ввода и кол-ва фактически введенных символов
repe cmpsb ;сравнивать строки побайтно,до тех пор пока символы равны
jcxz equals ;0 в cx говорит о том что строки полностью равны
mov [check_flag],0 ;иначе надо сбросить флаг сравнения первого и последнего символов
ret
equals:
sub [temp_pos_hex],1 ;уменешение позиции сравниваемой строки в файле,потому что был вызван read
mov [found_flag],1 ;флаг того,что строки эквивалентны
ret
match endp

begin:
mov ax,data
mov ds,ax
mov es,ax ;для использования repe cmpsb,di исползует сегмент es
xor ax,ax
mov ah,09h
lea dx,msg
int 21h ;вывод сообщения о вводе искомой строки
xor ax,ax
mov ah,0Ah
lea dx,symbols
int 21h ;чтение набора символов
xor ax,ax
mov ah,09h
lea dx,shift
int 21h ;вывод смещения каретки
xor ax,ax
mov ah,3dh
lea dx,path
mov al,00h
int 21h ;открытие файла на диске
jc err_scn ;ошибка открытия файла
mov Hfile,ax ;в Hfile хэндл файла
mov cx,0ffffh ;максимальный обрабатываемый фал не более ffffh байт
read_find:
cmp [found_flag],1 ;флаг того,что искомая строка присутствует в файле,выставляет match
je found
cmp [err_flag],1 ;флаг какой либо ошибки,выставляет read либо смещение указателя в файле
je err_scn
push cx ;в стек счетчик цикла
mov cl,[pos_hex]
mov [temp_pos_hex],cl ;в temp_pos_hex текущая позиция указателя в файле,до того как она будет изменена
call read ;чтение символа из файла
cmp [endf_flag],1 ;флаг конца файла,его выставляет read
je not_found
add [pos_hex],1 ;увеличение текущей позиции указателя в файле
xor ax,ax
mov al,[buff] ;в al - текущий считаный символ
call check ;проверка первого и последнего символов искомой строки с какой либо строклй в файле
pop cx ;возврат счетчика цикла
cmp [check_flag],1 ;идентичны ли первый и последний символы искомой строки с какой либо строкой в файле
jne next_read
push cx ;в стек счетчик цикла
call sub_check ;загрузка всей предпологаемой строки из файла в память и дальнейшая ее проверка
pop cx ;возврат счетчика цикла
next_read:loop read_find ;чтение следующего символа из файла

not_found: ;если искомая строка не присутствует в файле
xor ax,ax
mov ah,09h
lea dx,Nfound
int 21h ;вывод сообщения
jmp ext ;переход к функции возврата в ОС

err_scn: ;если была какая либо ошибка
xor ax,ax
mov ah,09h
lea dx,err_msg
int 21h ;вывод сообщения
jmp ext ;переход к функции возврата в ОС

found: ;если искомая строка была найдена в файле
xor ax,ax
mov al,[temp_pos_hex] ;в al номер позиции этой строки
inc ax ;для того что бы вывод позиции начинался с 1 а не с 0
push ax
push offset pos_dec ;смещение строки для вывода десятичной позиции в файле
call Translate ;преобразование шестнадцатиричной позиции в десятиричную
xor ax,ax
mov ah,09h
lea dx,pos_dec
int 21h ;вывод позиции на экран

ext:
mov ax,4c00h ;функция выхода в ОС
int 21h
code ends
end begin
Опубликовал Kest December 03 2009 20:28:04 · 0 Комментариев · 12445 Прочтений · Для печати

• Не нашли ответ на свой вопрос? Тогда задайте вопрос в комментариях или на форуме! •


Комментарии
Нет комментариев.
Добавить комментарий
Имя:



smiley smiley smiley smiley smiley smiley smiley smiley smiley
Запретить смайлики в комментариях

Введите проверочный код:* =
Рейтинги
Рейтинг доступен только для пользователей.

Пожалуйста, залогиньтесь или зарегистрируйтесь для голосования.

Нет данных для оценки.
Гость
Имя

Пароль



Вы не зарегистрированны?
Нажмите здесь для регистрации.

Забыли пароль?
Запросите новый здесь.
Поделиться ссылкой
Фолловь меня в Твиттере! • Смотрите канал о путешествияхКак приготовить мидии в тайланде?
Загрузки
Новые загрузки
iChat v.7.0 Final...
iComm v.6.1 - выв...
Visual Studio 200...
CodeGear RAD Stud...
Шаблон для новост...

Случайные загрузки
начисление процен...
Gold Submitter II...
Программирование ...
Секреты программи...
Определние размер...
Краснов М. - Open...
AntiRus
Win-Prolog 3.618
около 291 статьи ...
Visual Studio 200...
45 уроков по дельфи
Delphi. Учимся на...
Работа с матрицами
Иллюстрированный ...
Черный круг двига...
RbControls
ZipForge
Flash MP3 Player ...
Род Стивенс. Delp...
Delphi 2005 Учимс...

Топ загрузок
Приложение Клие... 100771
Delphi 7 Enterp... 97787
Converter AMR<-... 20259
GPSS World Stud... 17014
Borland C++Buil... 14186
Borland Delphi ... 10267
Turbo Pascal fo... 7372
Калькулятор [Ис... 5968
Visual Studio 2... 5205
Microsoft SQL S... 3661
Случайные статьи
Лабораторное занят...
Вы можете настроит...
включите для учетн...
Соревнование за до...
Последовательность...
Создание форм нест...
Маленькие кухни
Модернизация сете...
Линии выноски для ...
Функция MEMAVAIL. ...
Заключение [Трасси...
10.8. Пример эффек...
Когда наступает по...
Именование объектов
Инвариант на второ...
Элементы управлени...
Множество. Определ...
Глава 13
Что такое SEO, SEA...
Алгоритмы сжатия ...
ПРИМЕР ЭЛЕКТРОННОГ...
Технологии Gigabit...
Графическая система
• В параметре HKEY...
Кроссбраузерная по...
Статистика



Друзья сайта
Программы, игры


Полезно
В какую объединенную сеть входит классовая сеть? Суммирование маршрутов Занимают ли таблицы память маршрутизатора?