Что нового

[Автоматизация] Объединить 2 файла в новый

Tosyk

Новичок
Сообщения
206
Репутация
0
Версия AutoIt: 3.5.4

Описание: Пытаюсь повторить всё тоже самое, что и в этой теме уже сделано: https://autoit-script.ru/index.php?topic=26664.0
но с другими файлами: https://drive.google.com/file/d/1WvONdJ1uVXKCo1rHEhHQyS28dUueU3FZ/view?usp=sharing

Примечания: верхние три строчки из descendant-base.smd нужно заменить на всё содержимое из descendant-base_skel.smd без пустой строки
не могу понять природу работы скрипта поэтому выкидывает ошибку и не объединяет файлы
 
Автор
Tosyk

Tosyk

Новичок
Сообщения
206
Репутация
0
тут нужно поменять 2 строки как я понимаю:

Код:
$Filename = StringRegExp($FullPath, '(^.*)\\(.*)\.(.*)$', 3)
$FileName2 = StringRegExpReplace($FullPath, ".+\\(.+)\_.+", "\1", 1)


если к имени descendant-base.smd добавить _011, а к имени descendant-base_skel.smd добавить, например, _089 то скрипт чудесным образом работает!
 

ra4o

AutoIT Гуру
Сообщения
1,165
Репутация
246
В прошлой теме была заморочка с именами файлов, сейчас как Вы видите работу скрипта ? Так-же через drag&drop ?
 
Автор
Tosyk

Tosyk

Новичок
Сообщения
206
Репутация
0
да, точно также, перетаскиванием.

придумал костыль:

Код:
#include <File.au3>

HotKeySet("{ESC}", "Terminate")
AutoItSetOption("MustDeclareVars", 1)

Local $i
Local $sSourceFile, $sDestFile, $sDestPath, $sExePath, $Dir, $sReadFileModel, $sReadFileSkelet, $sWriteFile, $sReadFileModel2, $sOutputFile, $sSuf
Local $sDrive, $sFolder, $sFileName, $sExt, $sParams, $sRunWait, $TextFile1, $TextFile2, $sModelFile, $sSkeletonFile

If $CmdLine[0] <> 0 Then
	ProgressOn("Converting", "", "0%")
	For $i = 1 To $CmdLine[0]
		$sSourceFile = $CmdLine[$i]
		_PathSplit($sSourceFile, $sDrive, $sFolder, $sFileName, $sExt)
		ProgressSet(($i / $CmdLine[0]) * 100, $sFileName & $sExt, String(Round($i / $CmdLine[0] * 100, 1)) & "%")

		If FileExists($sSourceFile) Then
			$sSuf = '_011'
			_FileRename_($sSourceFile, @WorkingDir & '\' & $sFileName & $sSuf & $sExt, 1)
			_FileRename_(@WorkingDir & '\' & $sFileName & '_skel.smd', @WorkingDir & '\' & $sFileName & $sSuf & '_skel' & $sExt, 1)
			_FileRename_(@WorkingDir & '\' & $sFileName & '-base' & '_skel.smd', @WorkingDir & '\' & $sFileName & '_012' & '_skel' & $sExt, 1)

			$sModelFile = @WorkingDir & '\' & $sFileName & $sSuf & $sExt
			$sSkeletonFile = @WorkingDir & '\' & $sFileName & $sSuf & '_skel' & $sExt
;~ 			ConsoleWrite("Model: " & $sModelFile & @CRLF)
;~ 			ConsoleWrite("Skeleton: " & $sSkeletonFile & @CRLF)

			$sOutputFile = @WorkingDir & '\' & $sFileName & '_rigged.smd'
			$sReadFileModel = StringRegExp($sModelFile, '(^.*)\\(.*)\.(.*)$', 3)
			$sReadFileModel2 = StringRegExpReplace($sModelFile, ".+\\(.+)\_.+", "\1", 1)
			$sReadFileSkelet = _FileListToArray($sReadFileModel[0] & '\', $sReadFileModel2 & '_*_skel.' & $sReadFileModel[2], 1)

			If Not @error Then
				$TextFile1 = StringTrimLeft(FileRead($sModelFile),1)
				$TextFile2 = FileRead($sReadFileSkelet[1])
				FileWrite($sOutputFile,$TextFile2&$TextFile1)
				_FileDeleteEmptyLines($sOutputFile)

			Else
				MsgBox(16, 'Ошибка', 'Не найден файл для замены')
			EndIf

			_FileRename_(@WorkingDir & '\' & $sFileName & $sSuf & $sExt, $sSourceFile, 1)
			_FileRename_(@WorkingDir & '\' & $sFileName & $sSuf & '_skel' & $sExt, @WorkingDir & '\' & $sFileName & '_skel.smd', 1)
			_FileRename_(@WorkingDir & '\' & $sFileName & '_012' & '_skel' & $sExt, @WorkingDir & '\' & $sFileName & '-base' & '_skel.smd', 1)

		Else
			MsgBox(0, 'Error', "File [" & $sSourceFile & "] not found")
		EndIf

	Next
	ProgressSet(100, "Converting complete", "100%")

	Sleep(1000)
	ProgressOff()
Else
	MsgBox(0, "Usage", "Drop file(s) on " & @ScriptName)
	ConsoleWrite("Usage: " & @ScriptName & " <file>" & @CRLF)
EndIf

Func _FileDeleteEmptyLines($sFile)
	Local $sFileContent = StringRegExpReplace(FileRead($sFile), "(\r?\n){1,}", "\1")
	Local $hFOpen = FileOpen($sFile, 2 + FileGetEncoding($sFile))
	FileWrite($hFOpen, StringStripWS($sFileContent, 3))
	FileClose($hFOpen)
EndFunc

; ## FUNCTION ##=========================================================================
; Name ..............:  _FileRename_
; Description .......:  Rename a File
; Syntax ............:  _FileRename_($s_Source, $s_Destination, $i_Flag = 0)
; Parameters ........:  $s_Source               Source File
;                       $s_Destination          Destination File
;                       $i_Flag                 Flag    0 = (default) do not overwrite existing files
;                                                       1 = overwrite existing files
;                                                       8 = Create destination directory structure if it doesn't exist
; Return values .....:  Success:    Returns 1
;                       Failure:    Returns 0
; Author ............:  'charvi' <charvista at gmail dot com>
; Creation Date .....:  2009-01-05
; Version ...........:  0.0.0.1
; Version Date ......:  2009-01-05
; Remarks ...........:  If the source and destination paths are on different volumes a copy and delete operation is performed rather than a move.
;                       The destination directory must already exist, except using with flag value '8'.
;                       For instance the combined flag '9' (1 + 8) overwrites the target file and prechecks for the destination directory structure and if it doesn't exist creates it automatically.
;                       Some file attributes can make the overwriting impossible.
;========================================================================================
Func _FileRename_($s_Source, $s_Destination, $i_Flag = 0)
    Local $i
    $i = FileMove($s_Source, $s_Destination, $i_Flag)
    Return $i
EndFunc

Func Terminate()
	Exit
EndFunc   ;==>Terminate

Exit (0)



Добавлено:
Сообщение автоматически объединено:

я начал сталкиваться с более вариативными именами. отсюда вопрос: допустим у меня есть несколько файлов (условно 3) моделей SMD и есть некоторое количество (для пример возьму 1) скелетов в том же формате SMD. как и раньше мне нужно первые три строчки из файлов с моделями заменить содержимым файла со скелетом без пустых строк. так вот

как сделать перетаскивание любого количества файлов (условно 3) с моделями и 1 выбранного скелета на скрипт, чтобы на выходе получить 3 объединённых файла модель+скелет, учитывая, что у файла со скелетом всегда есть суфикс _skel

т.е. скрипт в цикле должен из предложенных файлов увидеть файл с суфиксом _skel и заменить своим содержимым три первые строчки всех остальных файлов.

надеюсь понятно написал
 
Автор
Tosyk

Tosyk

Новичок
Сообщения
206
Репутация
0
может кто-то помочь расширить скрипт?
 

ra4o

AutoIT Гуру
Сообщения
1,165
Репутация
246
Примеры файлов можете прикрепить ?
 
Автор
Tosyk

Tosyk

Новичок
Сообщения
206
Репутация
0
@ra4o,
можете помочь? если у вас время появилось
 
Верх