Форум программистов
 
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail.

Вернуться   Форум программистов > Низкоуровневое программирование > Assembler
Регистрация

Восстановить пароль
Повторная активизация e-mail


Донат для форума - использовать для поднятия настроения себе и модераторам

А ещё здесь можно купить рекламу за 15 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru

Ответ
 
Опции темы
Старый 16.02.2019, 21:05   #1
kompildan
Пользователь
 
Регистрация: 16.02.2019
Сообщений: 14
Репутация: 10
По умолчанию Удалить заданное слово в строке

тут удаляется слово в строке, стоящее после заданного слова, а как удалить только заданное слово ?
Код:
.model small

.data 
    enterStr db "Enter string:",0Dh,0Ah,'$'
    enterSubStr db 0Dh,0Ah,"Enter substring:",0Dh,0Ah,'$'
    result db 0Dh,0Ah,"Result is:",0Dh,0Ah,'$' 
    
    sizeError db 0Dh,0Ah,"Enter substring:",0Dh,0Ah,'$'
    
    length equ 0CBh    ;203
    maxSybols equ 0C8h
    string db length dup('$')
    subString db length dup('$')


.code 

outputString proc
    mov ah, 09h
    int 21h    
ret
outputString endp

inputString proc
    mov ah, 0Ah
    int 21h
ret
inputString endp
                     
                     
isEmpty:
    mov ah, [string[1]]
    cmp ah, 0
    je outputResult    
    mov al, [subString[1]] 
    cmp al, 0
    je outputResult
    jmp isBigEnough
    
isBigEnough:
    cmp ah,al
    jg findWord
    jmp outputResult

findWord:
    mov si, offset string[1]
    mov di, offset subString[2]    
findFirstSymbol:
    call isEnd
    cmp [si], ' '
    je findFirstSymbol
    mov dl, [si]  ;for cpm with another string symbol
    cmp dl, [di]    ;first subString symbol     
    je compareWords
    jmp skipWord
    
compareWords:
    inc di
    cmp [di], 0Dh   
    je checkEndOfWord
    call isEnd
    mov dl, [si]  ;for cpm with another string symbol  
    cmp dl, [di]
    je compareWords
    mov di, offset subString[2] ;check first symbol of subStr again
    jmp skipWord

skipWord:
    call isEnd            
    cmp [si], ' '
    je findFirstSymbol
    jmp skipWord

checkEndOfWord:
    call isEnd
    cmp [si], ' '
    je findNextWordStart
    mov di, offset subString[2] ;check first symbol of subStr again
    jmp skipWord

findNextWordStart:
    call isEnd
    cmp [si], ' '
    je findNextWordStart
    mov bx, si ;next word first symbol pos
    jmp findNextWordEnd

findNextWordEnd:
    inc si
    cmp [si], '$'
    je deleteNextWord
    cmp [si], ' '
    je deleteNextWord
    jmp findNextWordEnd
    
deleteNextWord:
    mov dl, [si]
    mov [bx], dl
    cmp [bx], '$'
    je outputResult
    inc bx
    inc si
    jmp deleteNextWord
    
        
isEnd proc   ;check next symbol with '$' symbol
    inc si
    cmp [si], '$'
    je outputResult
ret
isEnd endp 

;delete all subString words exept 1st
convertSubStringToWord proc
    lea si, subString[1]
convertSubStringToWordLoop:
    inc si    
    cmp [si], 0Dh
    je convertSubStringToWordEnd
    cmp [si], ' '
    jne convertSubStringToWordLoop

    mov [si], 0Dh
    mov [si+1], '$'        
convertSubStringToWordEnd:    
ret
convertSubStringToWord endp

start:

    mov ax, @data
    mov ds, ax 
    mov es, ax
    

    mov [string], maxSybols
    mov [subString], maxSybols
    
    mov dx, offset enterStr  ;output enterStr
    call outputString
    
    mov dx, offset string      ;input string
    call inputString
    
    mov dx, offset enterSubStr    ;output enterSubStr
    call outputString
    
    mov dx, offset subString      ;input string
    call inputString 
    
    call convertSubStringToWord
    
    jmp isEmpty
   
outputResult:    
    
    mov dx, offset result     ;output result
    call outputString
           
    mov dx, offset string[2]     ;output result
    call outputString
           
    
    mov ax, 4c00h ; exit to operating system.
    int 21h    

end start ; set entry point and stop the assembler.
kompildan вне форума   Ответить с цитированием
Старый 19.02.2019, 10:52   #2
R71MT
Профессионал
 
Аватар для R71MT
 
Регистрация: 16.06.2011
Сообщений: 1,312
Репутация: 1064
По умолчанию

Цитата:
Сообщение от kompildan Посмотреть сообщение
а как удалить только заданное слово ?
есть инструкция "repe cmpsb" - она ищет слово (цепочку байт)
как наёдёшь - запоминай пизицию и взведя флаг(DF) - шагай назад.
но простой способ, это копируй в свободный буфер по-символьно.
__________________
Нашедшего выход - затаптывают первым..
R71MT вне форума   Ответить с цитированием
Ответ

Опции темы

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Вставить в строке перед заданным словом другое заданное слово. Axrik Assembler 1 23.04.2013 02:42
Заменить в строке одно слово на другое, заданное с клавиатуры. trum Помощь студентам 5 05.04.2012 17:48
Заменить заданное слово в тексте, находящемся в заданном файле, на другое слово (С++) Lapochka Помощь студентам 6 01.12.2011 14:05
Удалить 2 раза в строке слово, встречающееся более трех раз Новикова Ирина Помощь студентам 1 20.02.2011 21:10
сколько раз заданное слово встречается в данной строке pascal1994 Помощь студентам 4 04.02.2009 09:41


17:03.


Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2019, Jelsoft Enterprises Ltd.

Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru