Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- FileSelectFile, SelectedFile, 3, %scriptdir%,Открыть файл, Текстовые файлы (*.txt)
- if SelectedFile =
- return
- SplitPath, SelectedFile , , dir, ext, name_no_ext ;Парсинг полного пути к файлу
- Postfix:= _edit
- ;MsgBox, %dir%\%name_no_ext%_edit.%Ext%
- FileRead, Text, %SelectedFile%
- if not ErrorLevel ; Загрузка успешна.
- {
- MsgBox, 3, Сохранение файла, Заменить исходный файл? (Нет - создать новый)
- IfMsgBox Yes
- {
- FileDelete, %SelectedFile% ;Действие да
- if ErrorLevel
- MsgBox, Ошибка перезаписи файла
- }
- Else IfMsgBox No
- {
- StringReplace, name_no_ext, name_no_ext, %name_no_ext%, %name_no_ext%_edit ;Действие нет
- FileDelete, %dir%\%name_no_ext%.%Ext%
- }
- Else IfMsgBox Cancel
- {
- return ;Действие отмена
- }
- Text:= % RegExReplace(Text, "Checkmark", " ")
- Text:= % RegExReplace(Text, "tgh", " ")
- FileAppend, %Text% , %dir%\%name_no_ext%.%Ext%
- }
- else
- MsgBox, Ошибка открытия файла
Add Comment
Please, Sign In to add comment