Кому интересно,может создать склеиватель множества файлов.
Ниже приведен простейший объединитель на 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
|