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 |
|