[william-p]

Кстати, VBS тоже можно, но только этот код не ищет по маркерам, только по пустой строке.

Код:

FileAll = "file.txt"

Set FSO = CreateObject("Scripting.FileSystemObject")

Set F = FSO.OpenTextFile(FileAll, 1)
MassAll = Split(Replace(F.ReadAll, Chr(10), ""), Chr(13))
F.Close

lf = True
nf = 0
For i = 0 To UBound(MassAll)
    If Len(Trim(MassAll(i))) <> 0 Then
       If lf Then
          lf = False
          nf = nf + 1
          Set F = FSO.OpenTextFile(WHere + Right("0000" + CStr(nf), 4) + ".txt", 2, True)
          F.Write MassAll(i)
       Else
          F.Write vbCrLf + MassAll(i)
       End If
    Else
       If Not lf Then F.Close
       lf = True
    End If
Next