Поиск и замена заданной последовательности символов в заданном файле - Assembler

Узнай цену своей работы

Формулировка задачи:

Программа должна выполнять поиск заданной последовательности символов в заданном файле, менять ее на другую заданную последовательность (того же размера) и измененный текст вводить в другой файл. Моя программа работает только для небольших файлов, так как считывает буфером только один раз и ищет в нем. Необходимо чтобы программа работала и для больших файлов, то есть считывала текст в цикле. Ни как не получается добавить цикл, прошу помогите!
Листинг программы 
  1. code_seg segment
  2. assume cs:code_seg, ds:code_seg
  3. .386
  4. org 100h
  5.  
  6. start:
  7.  
  8. FileNamePrint:
  9.  
  10.     mov ah,09h 
  11.     mov dx,offset msg1
  12.     int 21h
  13.     
  14.     mov AH, 0Ah
  15.     mov DX, offset FileName
  16.     int 21h
  17.  
  18.     xor BH, BH
  19.     mov BL, FileName[1]
  20.     mov FileName[BX+2], 0
  21.     
  22.     lea dx, ent         ;Перенос каретки
  23.     mov ah, 9
  24.     int 21h
  25.     
  26. OpenFile: 
  27.  
  28.     mov ax, 3D02h 
  29.     mov dx, offset filename + 2
  30.     int 21h 
  31.     jc OpenError 
  32.  
  33.     mov handle, ax 
  34.  
  35.     mov ah,09h 
  36.     mov dx,offset msg4
  37.     int 21h
  38.     
  39.     lea dx, ent         ;Перенос каретки
  40.     mov ah, 9
  41.     int 21h
  42.     
  43. InputOne: ;Ввод первой строки
  44.  
  45.     mov ah,09h 
  46.     mov dx, offset msg2
  47.     int 21h 
  48.     
  49.     mov ah,0ah 
  50.     mov dx, offset string
  51.     int 21h 
  52.     
  53.     lea dx, ent         ;Перенос каретки
  54.     mov ah, 9
  55.     int 21h
  56.     
  57. InputTwo:   ; строка на которую заменять
  58.  
  59.     mov ah,09h 
  60.     mov dx, offset msg3
  61.     int 21h 
  62.     
  63.     mov ah,0ah 
  64.     mov dx, offset newstr
  65.     int 21h 
  66.     
  67.     lea dx, ent         ;Перенос каретки
  68.     mov ah, 9
  69.     int 21h
  70.  
  71. ReadFromFile:
  72.  
  73.     mov    ah,3fh
  74.     lea    dx,buffer    
  75.     mov    bx,handle     
  76.     mov    cx,60000       
  77.     int    21h
  78.     jc     Error_Read
  79.  
  80.     lea    di,buffer
  81.     
  82. Inspection:        ;сравнение строк
  83.     mov    cx,60000
  84.     mov    al,string + 2
  85.     repne  scasb          ;Сравнить байт по адресу ES:(E)DI с AL(пока !=)
  86.     je     Found          ;Условие перехода:ZF=1
  87.     jmp    Failed
  88.  
  89. Found:      ;замена подстроки если нашлось
  90.     push   ax
  91.     mov    al, string + 1
  92.     dec    di
  93.     lea    si,string + 2
  94.     mov    cx, ax
  95.     repe   cmpsb
  96.     pushf                  ; значения флагов в стек
  97.     dec    di
  98.     popf
  99.     jne    Inspection
  100.  
  101.     mov    cx, ax
  102.     sub    di,cx
  103.     inc    di
  104.     lea    si,newstr + 2
  105.     rep    movsb            ;Переслать байт из строки в строку
  106.     pop    ax
  107.  
  108. FileName2Print:
  109.  
  110.     mov ah,09h 
  111.     mov dx,offset msg7
  112.     int 21h
  113.     
  114.     mov AH, 0Ah
  115.     mov DX, offset FileName2
  116.     int 21h
  117.  
  118.     xor BH, BH
  119.     mov BL, FileName2[1]
  120.     mov FileName2[BX+2], 0
  121.     
  122.     lea dx, ent               ;Перенос каретки
  123.     mov ah, 9
  124.     int 21h
  125.  
  126. OpenFile2: 
  127.  
  128.     mov ax, 3D02h 
  129.     mov dx, offset filename2 + 2
  130.     int 21h 
  131.     jc OpenError
  132.  
  133.     mov handle2, ax 
  134.  
  135.     mov ah,09h 
  136.     mov dx,offset msg4
  137.     int 21h
  138.     
  139.     lea dx, ent                ;Перенос каретки
  140.     mov ah, 9
  141.     int 21h
  142.  
  143. File2Pointer:
  144.     ; DOS Fn 42H: установить указатель файла -- LSEEK.
  145.     ; output: AX = код ошибки если CF установлен.
  146.     ; DX:AX = новая позиция указателя файла.
  147.     mov    cx,0           
  148.     mov    dx,0         ; CX:DX = на сколько передвинуть указатель: (CX * 65536) + DX 
  149.     mov    bx,handle2    ; BX = описатель файла.
  150.     mov    ax,4200h     ; AL = 0 переместить к началу файла + CX:DX.
  151.     int    21h
  152.     
  153. WriteToFile2:
  154.     
  155.     mov    ah,40h
  156.     lea    dx,buffer    
  157.     mov    bx,handle2    
  158.     mov    cx, 60000      
  159.     int    21h
  160.     jmp    CloseFile2
  161.  
  162. ;------------------Errors--------------------;
  163. OpenError:
  164.     mov    ah,09h
  165.     lea    dx,error_msg1
  166.     int    21h
  167.     jmp    Exit
  168.  
  169. Failed:
  170.     mov    ah,09h
  171.     lea    dx,msg5
  172.     int    21h
  173.     jmp    CloseFile
  174.   
  175. Error_Read:
  176.     mov    ah,09h
  177.     lea    dx,error_msg2
  178.     int    21h
  179.     jmp    CloseFile
  180.  
  181. CloseFile:
  182.     mov    ah,3Eh
  183.     mov    bx,handle    
  184.     int    21h
  185.     
  186. CloseFile2:
  187.     mov    ah,3Eh
  188.     mov    bx,handle2    
  189.     int    21h
  190.     
  191. Exit:
  192.     mov    ah, 1
  193.     int    21h
  194.     mov    ax,4c00h
  195.     int    21h
  196.     
  197. ;------------------Data---------------------;
  198.     
  199. FileName    DB  14,0,14 dup  (0)
  200. FileName2   DB  14,0,14 dup  (0)
  201. msg1        db  'Enter FileName   $'
  202. msg2        db  'Enter word you want to replace: $' 
  203. msg3        db  'Enter second word: $'
  204. msg4        db  'File was open.$' 
  205. msg5        db  'Not found$'
  206. msg7        db  'Enter FileName to write $'
  207. ;msg        db  'Word found$'
  208.  
  209. error_msg1  db  'File wasnt open.$'
  210. error_msg2  db  'Cant read from file.$'
  211.  
  212. buffer      db  60010 dup (?)
  213. string      db  200 dup ('$')
  214. newstr      db  200 dup ('$')
  215. strlen      db  ?
  216. handle      dw  0
  217. handle2     dw  0
  218. ent         db  10, 13, '$'
  219.  
  220. ret
  221. code_seg ends
  222. end start
Вот так пытался сделать цикл: ===================================================
Листинг программы 
  1. code_seg segment
  2. assume cs:code_seg, ds:code_seg
  3. .386
  4. org 100h
  5.  
  6. start:
  7.  
  8. FileNamePrint:
  9.  
  10.     mov ah,09h 
  11.     mov dx,offset msg1
  12.     int 21h
  13.     
  14.     mov AH, 0Ah
  15.     mov DX, offset FileName
  16.     int 21h
  17.  
  18.     xor BH, BH
  19.     mov BL, FileName[1]
  20.     mov FileName[BX+2], 0
  21.     
  22.     lea dx, ent         ;Перенос каретки
  23.     mov ah, 9
  24.     int 21h
  25.     
  26. OpenFile: 
  27.  
  28.     mov ax, 3D02h 
  29.     mov dx, offset filename + 2
  30.     int 21h 
  31.     jc OpenError 
  32.  
  33.     mov handle, ax 
  34.  
  35.     mov ah,09h 
  36.     mov dx,offset msg4
  37.     int 21h
  38.     
  39.     lea dx, ent         ;Перенос каретки
  40.     mov ah, 9
  41.     int 21h
  42.     
  43. InputOne:
  44.  
  45.     mov ah,09h 
  46.     mov dx, offset msg2
  47.     int 21h 
  48.     
  49.     mov ah,0ah 
  50.     mov dx, offset string
  51.     int 21h 
  52.     
  53.     lea dx, ent         ;Перенос каретки
  54.     mov ah, 9
  55.     int 21h
  56.     
  57. InputTwo:
  58.  
  59.     mov ah,09h 
  60.     mov dx, offset msg3
  61.     int 21h 
  62.     
  63.     mov ah,0ah 
  64.     mov dx, offset newstr
  65.     int 21h 
  66.     
  67.     lea dx, ent         ;Перенос каретки
  68.     mov ah, 9
  69.     int 21h
  70.     
  71.     FileName2Print:
  72.  
  73.     mov ah,09h 
  74.     mov dx,offset msg7
  75.     int 21h
  76.     
  77.     mov AH, 0Ah
  78.     mov DX, offset FileName2
  79.     int 21h
  80.  
  81.     xor BH, BH
  82.     mov BL, FileName2[1]
  83.     mov FileName2[BX+2], 0
  84.     
  85.     lea dx, ent               ;Перенос каретки
  86.     mov ah, 9
  87.     int 21h
  88.  
  89. OpenFile2: 
  90.  
  91.     mov ax, 3D02h 
  92.     mov dx, offset filename2 + 2
  93.     int 21h 
  94.     jc OpenError
  95.  
  96.     mov handle2, ax 
  97.  
  98.     mov ah,09h 
  99.     mov dx,offset msg4
  100.     int 21h
  101.     
  102.     lea dx, ent                ;Перенос каретки
  103.     mov ah, 9
  104.     int 21h
  105.     
  106.     File2Pointer:
  107.  
  108.     mov    cx,0           
  109.     mov    dx,0         ; CX:DX = на сколько передвинуть указатель: (CX * 65536) + DX 
  110.     mov    bx,handle2    ; BX = описатель файла.
  111.     mov    ax,4200h     ; AL = 0 переместить к началу файла + CX:DX.
  112.     int    21h
  113.     
  114. FilePointer:
  115.    
  116.     mov    cx,0           
  117.     mov    dx,0         ; CX:DX = на сколько передвинуть указатель: (CX * 65536) + DX 
  118.     mov    bx,handle    ; BX = описатель файла.
  119.     mov    ax,4200h     ; AL = 0 переместить к началу файла + CX:DX.
  120.     int    21h
  121. metka:
  122.     
  123.     mov ah,09h 
  124.     mov dx,offset msg10
  125.     int 21h
  126.     
  127. ReadFromFile:
  128.  
  129.     mov    ah,3fh
  130.     lea    dx,buffer    
  131.     mov    bx,handle     
  132.     mov    cx,10    
  133.     int    21h
  134.     
  135.      jc     Error_Read
  136.     
  137.     push ax
  138.  
  139.     lea    di,buffer
  140.  
  141. Inspection:
  142.     mov    cx,10
  143.     mov    al,string + 2
  144.     repne  scasb          ;Сравнить байт по адресу ES:(E)DI с AL(пока !=)
  145.     je     Found          ;Условие перехода:ZF=1
  146.     
  147.     jmp    WriteToFile2
  148.  
  149. Found:
  150.  
  151.     mov ah,09h 
  152.     mov dx,offset msg11
  153.     int 21h
  154.  
  155.     mov    al, string + 1
  156.     dec    di
  157.     lea    si,string + 2
  158.     mov    cx, ax
  159.     repe   cmpsb
  160.     pushf                  ; значения флагов в стек
  161.     dec    di
  162.     popf
  163.     jne    Inspection
  164.  
  165.     mov    cx, ax
  166.     sub    di,cx
  167.     inc    di
  168.     lea    si,newstr + 2
  169.     rep    movsb            ;Переслать байт из строки в строку
  170.  
  171. WriteToFile2:
  172.     
  173.     mov    ah,40h
  174.     lea    dx,buffer    
  175.     mov    bx,handle2    
  176.     mov    cx, 10    
  177.     int    21h
  178.     
  179.     mov ah,09h 
  180.     mov dx,offset msg13
  181.     int 21h
  182.  
  183. Looper: 
  184.     ;mov cx, 1
  185.     pop ax
  186.     cmp ax, 0
  187.     jne metka
  188.     ;loop metka
  189.     
  190.     mov ah,09h 
  191.     mov dx,offset msg12
  192.     int 21h
  193.     
  194.     jmp    CloseFile2
  195.  
  196. ;------------------Errors--------------------;
  197. OpenError:
  198.     mov    ah,09h
  199.     lea    dx,error_msg1
  200.     int    21h
  201.     jmp    Exit
  202.  
  203. Failed:
  204.     mov    ah,09h
  205.     lea    dx,msg5
  206.     int    21h
  207.     jmp    CloseFile
  208.   
  209. Error_Read:
  210.     mov    ah,09h
  211.     lea    dx,error_msg2
  212.     int    21h
  213.     jmp    CloseFile
  214.  
  215. CloseFile:
  216.     mov    ah,3Eh
  217.     mov    bx,handle    
  218.     int    21h
  219.     jmp   Exit
  220.     
  221. CloseFile2:
  222.     mov    ah,3Eh
  223.     mov    bx,handle2    
  224.     int    21h
  225.     jmp    CloseFile
  226.     
  227. Exit:
  228.     mov    ah, 1
  229.     int    21h
  230.     mov    ax,4c00h
  231.     int    21h
  232.     
  233. ;------------------Data---------------------;
  234.     
  235. FileName    DB  14,0,14 dup  (0)
  236. FileName2   DB  14,0,14 dup  (0)
  237. msg1        db  'Enter FileName   $'
  238. msg2        db  'Enter word you want to replace: $' 
  239. msg3        db  'Enter second word: $'
  240. msg4        db  'File was open.$' 
  241. msg5        db  'Not found$'
  242. msg7        db  'Enter FileName to write $'
  243. ;msg        db  'Word found$'
  244. msg10       db ' cycle $'
  245. msg11      db '  found $'
  246. msg12      db '  vyhod $'
  247. msg13      db '  write $'
  248. error_msg1  db  'File wasnt open.$'
  249. error_msg2  db  'Cant read from file.$'
  250.  
  251. buffer      db  11 dup (?)
  252. string      db  200 dup ('$')
  253. newstr      db  200 dup ('$')
  254. strlen      db  ?
  255. handle      dw  0
  256. handle2     dw  0
  257. ent         db  10, 13, '$'
  258.  
  259. ret
  260. code_seg ends
  261. end start

Решение задачи: «Поиск и замена заданной последовательности символов в заданном файле»

textual
Листинг программы 
  1. call getchar
  2. jc EndOfFile
  3. . . .
  4. getchar proc
  5.   . . .
  6.   clc  ; сбросить флаг CF
  7.   ret
  8.   . . .
  9.   stc  ; установить флаг CF
  10.   ret
  11. getchar endp

ИИ поможет Вам:

  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

6   голосов , оценка 3.333 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Бесплатно
Оформите заказ и авторы начнут откликаться уже через 10 минут
Похожие ответы