[Iska]

Diamond, есть одно замечание: желательно упомянуть, что слияние отдельных частей созданным пакетным файлом желательно производить на разделе с файловой системой NTFS, поскольку именно там записи о файлах в MFT хранятся в упорядоченном виде, именно в таком порядке они будут возвращаться по FindFirst/NextFile и обрабатываться командой «copy …».

На файловых системах FATxx (FAT16/FAT32; насчёт FAT12, полагаю, озадачиваться сим бессмысленно даже теоретически , на exFat не проверялось) обработка будет идти в порядке создания записей файлов в каталоге, что может привести к неверным результатам слияния на разделах с этими файловыми системами.

Вероятность этого исчезающе мала, но, тем не менее, существует.

[Diamond]

Iska, У меня на FAT32 объединяются без проблем, на NTFS проверить не могу(диск полностью "забит")

Изначально создаваемый пакетный файл не использовал подставные символы т.е. каждое имя части указывалось точно(part1+part2+... и т.д.), но в этом случае может возникнуть ошибка из-за ограничения на длину строки в пакетном файле. Ещё у меня возникала мысль использовать цикл "For" (в пакетном файле) чтобы обойти это ограничение но я отказался от этой идеи.

[Iska]

Изначально создаваемый пакетный файл не использовал подставные символы т.е. каждое имя части указывалось точно(part1+part2+... и т.д.), но в этом случае может возникнуть ошибка из-за ограничения на длину строки в пакетном файле. Ещё у меня возникала мысль использовать цикл "For" (в пакетном файле) чтобы обойти это ограничение но я отказался от этой идеи.

Один-в-один , коллега. С тем исключением, что тот самый пример из справки («copy /b *.exe combin.exe ») я обошёл своим вниманием по вышеупомянутой причине.

Вы отказались, а я сделал как раз с «FOR /L», и результат оказался весьма удручающ (на больших объёмах/количествах частей время росло в геометрической прогрессии, хотя, конечно, можно было и тут несколько сократить время, используя слияние попарно, но я этого не стал делать).

Iska, У меня на FAT32 объединяются без проблем, на NTFS…

Вот пример, на котором будет отчётливо видна существующая разница в порядке слияния между FAT и NTFS (для этого копируемые файлы в примере создаются в порядке, отличном от нарастающего):

читать дальше »

Код:

@echo off

md ".\Test"
cd ".\Test"

echo 03>03.txt
echo 02>02.txt
echo 01>01.txt

copy *.txt result.dat
type result.dat

del result.dat
del *.txt

cd ".."
rd ".\Test"

Такое может возникнуть, например, при переносе частей на флэшке с машины на машину в раздел FAT в случайном (не нарастающем) порядке.

В принципе, я думаю, что можно (и нужно) побороться и с FAT, например, предварительно сделав перенос отдельных частей в правильном порядке во временную папку (хотя бы тем же «FOR /L»), а затем уже безболезненно выполняя «copy /b *.parts …». Во всяком случае, я у себя именно так попробую и сделать, что-то наподобие:

Код:

@echo off
setlocal enableextensions enabledelayedexpansion

md ".\Test"
cd ".\Test"

echo 03>03.txt
echo 02>02.txt
echo 01>01.txt


set strTempFolder=$temp%random%
md ".\%strTempFolder%"

for /l %%i in (1,1,99) do (
    set number=00%%i
    set strPartFile=!number:~-2!.txt

    if exist "!strPartFile!" (
        move "!strPartFile!" ".\%strTempFolder%\!strPartFile!">nul
    )
)

copy /b ".\%strTempFolder%\*.txt" "result2.dat"
move ".\%strTempFolder%\*.txt" ".">nul
rd /s /q ".\%strTempFolder%"
echo [result2.dat] & type "result2.dat"

или, например, получая гарантированно отсортированный список файлов-частей посредством «dir /b /o:n ??.txt», или попросту задавая хранение списка частей в самом пакетном файле при его создании, и лишь потом делая шаманство «move в папку-combine-move назад».

В любом случае — отдельное спасибо: как бы то ни было, а Вы своим скриптом помогли мне осознать своё искреннее заблуждение в этом вопросе (что делать «copy /b *.parts …» всё-таки можно, выполнив предварительно некоторые телодвижения).

[Diamond]

Iska, Спасибо за подробное разъяснение ошибки слияния!
Отдельное спасибо за рабочий пример, имхо, главная привлекательность этой идеи, как раз и заключается в использовании пакетного файла.
+5

[eacl]

Люди подскажите а как таким же с помобом с помощью bat разбить файл на несколько маленьких, после определенного слова например конец?
Очень нужно

[STARSsoft]

Есть большой HTML файл. Одного текста только почти на 30 мегабайт. Разные части текста в файле разделены тегами-комментариями, например <!-- Post --> тут сам текст <!-- # Post -->.
Нужно каждую часть между этими тегами сохранить в отдельный файл. Имя файла не имеет значения, можно даже просто цифрами по порядку.
Сидеть и копипастить уже заморился, а таких файлов несколько.

[AZJIO]

STARSsoft,

FileOperations.au3

Код:

#include <FileOperations.au3>

$sPath = @ScriptDir & '\index.htm'
$sText = FileRead($sPath)
$aSplit = _StringSplitRegExp($sText, '<!-- Post -->.*?<!-- # Post -->')
For $i = 1 To $aSplit[0]
    $sPathNew = _FO_GetCopyName($sPath, 1)
    $hFile = FileOpen($sPathNew, 2)
    FileWrite($hFile, $aSplit[$i])
    FileClose($hFile)
Next

; http://www.autoitscript.com/forum/topic/139260-autoit-snippets/?p=1065198
; http://www.autoitscript.com/forum/topic/139260-autoit-snippets/page__st__140#entry1036931
; http://www.autoitscript.com/forum/topic/65662-stringsplitregexp/
; Автор ..........: AZJIO
Func _StringSplitRegExp($sString, $sPattern, $flag = 0, $sIncludeMatch = 0, $iCount = 0)
    Local $sSplit, $sDelim, $sReplace, $Toggle, $iPos = 1
    If IsBinary($sString) Then
        $sString = Hex($sString)
        $sDelim = Chr(1)
        Local $aError[2] = [1, $sString]
    Else
        Local $aError[2] = [1, $sString]
        For $i = 1 To 30
            $Toggle = Not $Toggle
            If $Toggle Then ; 1, 30, 3, 28    ...   27, 4, 29, 2
                $sDelim &= Chr($i)
            Else
                $sDelim &= Chr(32 - $i)
            EndIf
            $iPos = StringInStr($sString, $sDelim, 1, 1, $iPos) ; смещение позволяет найти разделитель за 1 проход
            If Not $iPos Then ExitLoop ; если вхождение не найдено, то разделитель сформирован
        Next
        If $iPos Then Return SetError(1, 0, $aError)
    EndIf
    Switch $sIncludeMatch
        Case 0
            $sReplace = $sDelim
        Case 1
            $sReplace = "$0" & $sDelim
        Case 2
            $sReplace = $sDelim & "$0"
    EndSwitch
    $sSplit = StringRegExpReplace($sString, $sPattern, $sReplace, $iCount)
    If @error Then Return SetError(2, @extended, $aError)
    If Not @extended Then Return SetError(3, 0, $aError)
    If $flag Then $flag = 2
    Return StringSplit($sSplit, $sDelim, 1 + $flag)
EndFunc   ;==>_StringSplitRegExp

[AZJIO]

STARSsoft, перечитал твой пост. Я ошибся, тот вариант использует текст как разделитель. Вот обычное регулярное выражение, которое возвратит текст между тегами в массив.

Код:

#include <FileOperations.au3>
$sPath = @ScriptDir & '\index.htm'
$vText = FileRead($sPath)
$vText=StringRegExp($vText, '<!-- Post -->(.*?)<!-- # Post -->', 3)
For $i = 0 To UBound($vText)-1
    $sPathNew = _FO_GetCopyName($sPath, 1)
    $hFile = FileOpen($sPathNew, 2)
    FileWrite($hFile, $vText[$i])
    FileClose($hFile)
Next