Помощь - Поиск - Пользователи - Календарь
Полная версия: переписать с файла в фаил + найти слова
Форум «Всё о Паскале» > Delphi, Assembler и другие языки. > Assembler
ilona
помогите плз. . .
имею файл в котором записано несколько строк, надо в другой файл выписать все строки в которих каждое слово начинается на "b"из первого файлa
помогите кто как может. . .
спасибо
FreeMan
lp:
push 	offset buff
call 	read_string	;должна быть реализована процедура считывания строки из файла
;конец строки 13,10 (поэтому если строка(обычно последняя) заканчивается на 0, требуется заменить его на 13)

;тут какаянибудь проверка (типа уже достигли конец файла)
test	al,al
jz	exit	;пример возможной проверки

mov 	si,offset buff
jmp 	lp3	;а вдруг строка с пробела начинается
lp1:
lodsb   ;проверка первой буквы
cmp 	al,'b'
jnz 	lp	;если не 'b', то к след строке
lp2:
lodsb   ;поиск след. слова
cmp 	al,13
jz	nx	;слов нима, конец строки
cmp 	al,' '
jnz 	lp2
lp3:	;удалить пробелы между словами
lodsb
cmp 	al,13
jz	nx	;слов нима, конец строки
cmp 	al,' '
jz	lp3	;пробел - пропустить
dec 	si
jmp	lp1	;провереть слово

nx:
;достигнут конец строки, при чем все слова начинались с 'b'
push	offset buff
call	write_string	;должна быть реализованна процедура записи строки в файл
jmp	lp
exit:
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.