Четверг, 28.11.2024, 09:41 | Приветствую Вас Гость

...

Код

Главная » Статьи » Autoit

Склеиватель файлов

Кому интересно,может создать склеиватель множества файлов.

Ниже приведен простейший объединитель на autoit.

#include <GUIConstantsEx.au3>
#include <FileConstants.au3>
Local $name1 = ""
Local $name2 = ""

Local $hGUI = GUICreate("Склеиватель файлов", 500, 500)
Local $idButton = GUICtrlCreateButton("Склеить файл", 120, 170, 100, 25)
GUICtrlCreateLabel("Путь к первому файлу", 0, 25, 300, 20)
Local $File1 = GUICtrlCreateInput("", 0, 50, 300, 20)
Local $nameFile1 = GUICtrlCreateButton("Задать файл", 350, 50, 100, 20)
GUICtrlCreateLabel("Путь к второму файлу", 0, 75, 300, 20)
Local $nameFile2 = GUICtrlCreateButton("Задать файл", 350, 100, 100, 20)
Local $File2 = GUICtrlCreateInput("", 0, 100, 300, 20)
GUISetState(@SW_SHOW, $hGUI)

While 1
Switch GUIGetMsg()
Case $GUI_EVENT_CLOSE
ExitLoop
Case $nameFile1
Local $sFileOpenDialog = FileOpenDialog("Выбрать файл", @ScriptDir & "\", "All (*.*)", $FD_FILEMUSTEXIST)
GUICtrlSetData($File1,$sFileOpenDialog)
$name1 =GUICtrlRead($File1)
Case $nameFile2
Local $sFileOpenDialog = FileOpenDialog("Выбрать файл", @ScriptDir & "\", "All (*.*)", $FD_FILEMUSTEXIST)
GUICtrlSetData($File2,$sFileOpenDialog)
$name2 = GUICtrlRead($File2)
Case $idButton

$hFile1 = FileOpen($name1, 0)
$hFile2 = FileOpen($name2, 0)
$text1 = FileRead($hFile1)
$text2 = FileRead($hFile2)

$hFile = FileOpen("test.txt", 1)

FileWrite($hFile, $text1)
FileWrite($hFile, $text2)

msgbox(0,"Сообщение","Объединение файлов завершено")
EndSwitch
WEnd


 

Категория: Autoit | Добавил: moskov (21.03.2022)
Просмотров: 134 | Рейтинг: 0.0/0
Добавлять комментарии могут только зарегистрированные пользователи.
[ Регистрация | Вход ]

Меню сайта

Категории раздела

PHP [41]
C++ [71]
Autoit [108]
Processing [105]
Basic4GL [7]
Fasm [2]
PABC [7]
Js [236]
Gentee [1]
Python [204]
Java android [3]
Small Basic [9]

Мини-чат

Статистика


Онлайн всего: 12
Гостей: 12
Пользователей: 0

Форма входа

Друзья сайта

  • ЗОВ КОСМОСА

  • Хулиган Вселенной

  • Тюремная поэзия

  • Религиозная поэзия

  • Сайт клана ЛеГиоН
  • Поиск