[megaloman]

VBS

Код:

FileIn = "Z:\Box_In\Большой txt файл.txt"
Delim = "//=================="
sURL = "[b]Download"

OutFiles = Array("start", "Z:\Box_Out\firstpackuurl.txt", _
                "yandex", "Z:\Box_Out\secondpackurl.txt", _
                "oszone", "Z:\Box_Out\для отладки несуществующего.txt", _
                "google", "Z:\Box_Out\thirdpackurl.txt")
i1 = LBound(OutFiles)
NFiles = Int(((UBound(OutFiles) - i1) + 1) / 2)

Set FSO = CreateObject("Scripting.FileSystemObject")

Set fIn = FSO.OpenTextFile(FileIn, 1, False)  ', -2)
Alls = fIn.ReadAll
fIn.Close

Mas = Split(Alls, Delim)
Set Alls = Nothing

ReDim OutTxt(NFiles)
For i = 1 To NFiles
    OutTxt(i) = ""
Next

For Each iMas In Mas
    iURL = Split(iMas, sURL)
    i2 = UBound(iURL)
    If i2 - i1 > 0 Then
        For i = 1 To NFiles
            ii = InStrRev(iURL(i2), OutFiles(2 * i - 2 + i1))
            If ii > 0 Then
                OutTxt(i) = OutTxt(i) + iMas + Delim
            End If
        Next
    End If
Next

For i = 1 To NFiles
    If Len(OutTxt(i)) <> 0 Then
        Set fIn = FSO.CreateTextFile(OutFiles(2 * i - 1 + i1), True)
        fIn.Write OutTxt(i)
        fIn.Close
    End If
Next

[Alexander_88]

Спасибо, компьютер как назло сломался. На днях протестирую обязательно

[Alexander_88]

Проверил, все работает.. единственное, в каждом выводимом txt документе, в самом верху одна пустая строка.