Форум программистов [Powered by Invision Power Board]

Код

format PE GUI 4.0
entry start
include 'win32ax.inc'
section '.code' code readable executable
start:
;-----------Отываем файл для записи--------------
invoke CreateFile, _FileName_2, GENERIC_WRITE, 0, NULL, \
OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, NULL
mov [_hFile_2], eax
cmp eax, INVALID_HANDLE_VALUE
je FileNotOpen
;-----------Отываем файл для записи--------------

;-----------Отываем файл для чтения--------------
invoke CreateFile, _FileName_1, GENERIC_READ, 0, NULL, \
OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, NULL
cmp eax, INVALID_HANDLE_VALUE
je FileNotOpen
mov [_hFile_1], eax
;-----------Отываем файл для чтения--------------

;----------Манипуляции с файлом для чтения-------
invoke GetFileSize,[_hFile_1],0
mov [_SzFile],eax
cmp eax, 0
je FileNotOpen
;----------Манипуляции с файлом для чтения-------

;---------Цикл считывания символа----------------
Lk:
mov [_Kolon], NULL
Lh:
xor ebx, ebx
xor eax,eax
mov[ResultS], NULL
Lo:
invoke ReadFile, [_hFile_1],_Buffer, 1, _r, NULL
cmp [_Buffer], 0xD 
je La
cmp [_Buffer], 0xA
je Lm
invoke lstrcat, ResultS, _Buffer
La:
inc ebx
jmp Lo
Lm:
inc ebx
add [_RowLo], ebx
;---------Конец Цикла считывания символа----------------

;---------Расчет необходимого числа пробелов-----
invoke lstrlenA, ResultS
mov edx,10
sub edx,eax
mov [_RowPB], edx
;---------Конец Расчета необходимого числа пробелов-----

;------------Цикл записи пробелов-----------------------
xor ebx,ebx
Lw:
cmp ebx, [_RowPB]
je Le
invoke lstrcat,_Kolon, _Probel
inc ebx
jmp Lw
Le:
;------------Конец Цикла записи пробелов-----------------

invoke lstrcat,_Kolon, ResultS
mov eax, [_SzFile]
cmp eax, [_RowLo]
je Lp

invoke lstrlenA,_Kolon
cmp eax, 80
jb Lh

invoke lstrcat,_Kolon, _PerStr
invoke lstrlenA,_Kolon
jmp Ly

Lp:
 invoke lstrlenA,_Kolon

Ly:
invoke WriteFile, [_hFile_2], _Kolon, eax, _r, NULL

mov eax,[_RowLo]
cmp eax, [_SzFile]
jb Lk

;-----------Блок выхода из программы-----------------
invoke CloseHandle, [_hFile_1]
mov [_hFile_1], NULL

invoke CloseHandle, [_hFile_2]
mov [_hFile_2], NULL

jmp Exit
FileNotOpen:
invoke MessageBox,0, _FileErrorOpen, NULL, MB_ICONERROR
Exit:
invoke MessageBox,0, ' Программа завершена. Файлы закрыты.','Сообщение программы', MB_ICONERROR
invoke ExitProcess, 0
;-----------Блок выхода из программы-----------------

section '.data' data readable
_FileName_1 du 'C:\1.txt',0
_FileName_2 du 'C:\2.txt',0
_FileErrorOpen du 'File opening failt', 0
LL db 0
_Probel db ' ',0
_PerStr db '',0xD
_EndStr db '',0

_RowSym dd 9


section '.rdata' data readable writeable
_hFile_1 dd NULL
_hFile_2 dd NULL
_Buffer rb 22
_r dd 0
_CHC dd 0

formats db '%02d',0
result db 256 dup (?)
ResultS db ?
Rez db ?
_LongStr dd ?
_AmProbel dd ?
_Kolon rd 22
AA dd ?
_SzFile dd ?
_SzFile_1 dd ?
_RowPB dd ?
_RowLo dd ?

section '.idata' data import readable writeable
library kernel, 'kernel32.dll',\
user , 'user32.dll'
import kernel,\
CreateFile ,    'CreateFileW',\
GetFileSize ,   'GetFileSize',\
SetFilePointer, 'SetFilePointer',\
ReadFile ,      'ReadFile',\
WriteFile,      'WriteFile',\
CloseHandle ,   'CloseHandle',\
SetEndOfFile,   'SetEndOfFile',\
ExitProcess ,   'ExitProcess',\
lstrcat ,       'lstrcatA',\
lstrlenA,       'lstrlenA'

import user,\
MessageBox , 'MessageBoxA',\
 wsprintf,   'wsprintfA'