Что нового
Автор:
Фильтры

Объединить все файлы из основной папки и вложенных

A

AlexVong

Новичок
Сообщения
112
Репутация
1
Версия AutoIt: 3.3.12.0

Описание:

Добрый день.
Прошу помощи в решении задачи - появилась необходимость в папке "Content.IE5", а именно в ее подпапках
разыскать все файлы с расширением *.zakrprn и объединить их в один текстовый файл.
Примечания:
У файлов *.zakrprn может совпадать имя, но содержимое у них разное. Имена подпапок неизвестно и уровень вложения равен 1.
 
joiner

joiner

Модератор
Локальный модератор
Сообщения
3,556
Репутация
628
Код: 
#Include <FileOperations.au3>
$array = _FO_FileSearch('путь к основной папке','*.zakrprn')
$fo = FileOpen('файл, в который пишем',1)
For $i = 1 To $array[0]
	$fr = FileRead($array[$i])
	FileWrite($fo,$fr & @CRLF)
Next
FileClose($fo)
 
CreatoR

CreatoR

Must AutoIt!
Команда форума
Администратор
Сообщения
8,671
Репутация
2,481
joiner
FileOperations.au3 это не стандартная библиотека, поэтому желательно указывать ссылку на скачивание.
 
Z

Z_Lenar

Продвинутый
Сообщения
209
Репутация
52
AlexVong
Вариант:
Код: 
$PID = Run(@ComSpec & ' /C dir /A HS /S /D *.zakrprn', @HomeDrive & @HomePath & '\Local Settings\Temporary Internet Files\Content.IE5', @SW_HIDE, 2)
ProcessWaitClose($PID)
If @extended <> 0 Then
	ProcessClose($PID)
	ConsoleWrite('!>Файлы не найдены' & @CRLF)
	Exit
EndIf
$sBuff = StdoutRead($PID)
ProcessClose($PID)
$aLines = StringSplit($sBuff, @CRLF, 3)
$sPath = ''
$sOut = ''
For $i = 0 To UBound($aLines) - 1
	$aTmp = StringRegExp($aLines[$i], '(.:\\.*)', 1)
	If Not @error Then
		$sPath = $aTmp[0]
		ContinueLoop
	EndIf
	$aTmp = StringRegExp($aLines[$i], '(.*\.zakrprn)', 1)
	If Not @error Then
		$sOut &= FileRead($sPath & '\' & $aTmp[0])
	EndIf
Next
ConsoleWrite($sOut)
; FileWrite(..., $sOut)
 
Вам необходимо войти или зарегистрироваться, чтобы здесь отвечать.
Автор темы Похожие темы Форум Ответы Дата
L Элементы GUI Как объединить сортировку и поиск в виртуальном ListView GUI - Графический интерфейс пользователя 3
Xabib2302 Объединить два hex файла в один Стол заказов 12
L Объединить скрипты в один Стол заказов 4
S Объединить содержимое TXT файлов Стол заказов 2
Tosyk [Автоматизация] Объединить 2 файла в новый Стол заказов 9
Похожие темы
Элементы GUI Как объединить сортировку и поиск в виртуальном ListView
Объединить два hex файла в один
Объединить скрипты в один
Объединить содержимое TXT файлов
[Автоматизация] Объединить 2 файла в новый
Верх