Что нового

Объединить содержимое TXT файлов

SavickiyAV

Чайник
Сообщения
12
Репутация
0
Есть большое количество TXT файлов. Нужно в каждым из этих файлов перед текстом вставить содержимое текстового определенного текстового файла
 

CreatoR

Must AutoIt!
Команда форума
Администратор
Сообщения
8 159
Репутация
2 329
Как интересно...
 

CreatoR

Must AutoIt!
Команда форума
Администратор
Сообщения
8 159
Репутация
2 329
AutoIt код:
#include <File.au3>

$aDst_Files = _FileListToArray(@ScriptDir & '\Files', '*.txt', 1, True)
If @error Then Exit MsgBox(48, @ScriptName & ' - Error', 'Unable to get files list.' & @CRLF & @CRLF & 'OK ==> EXIT', 0, Default)

$sSrc_File = @ScriptDir & '\File.txt'
$sSrc_Read = FileRead($sSrc_File)

For $i = 1 To UBound($aDst_Files) - 1
    $sDst_Read = FileRead($aDst_Files[$i])
   
    $hFile = FileOpen($aDst_Files[$i], 2)
    FileWrite($hFile, $sSrc_Read & $sDst_Read)
    FileClose($hFile)
Next
 
Верх