Alex_Piggy
Advanced Member | Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
использование - сохранить как scriptsplit.vbs, затем - команда
wget URL -O- | cscript scriptsplit.vbs
Код:
SplitSize = 10 * 1024 * 1024 * 1024
Set FSO = CreateObject("Scripting.FileSystemObject")
Set stdin = fso.GetStandardStream(0)
Count = 0
Do Until stdin.AtEndOfStream
Data = Data & stdin.Read(1024)
Size = Size + Len(Data)
If (Size => SplitSize) Then
Set CurrFile = FSO.CreateTextFile(Date & Replace(Time,":",".") & Count,1)
CurrFile.Write(Data)
CurrFile.Close
Size = 0
Data = ""
Count = Count + 1
End If
Loop
Set CurrFile = FSO.CreateTextFile(Date & Replace(Time,":",".") & Count ,1)
CurrFile.Write(Data)
CurrFile.Close
|
|
