Volniy
|
 Posted: Tue Jan 12, 2010 16:50 Post subject: |
 |
|
| JayK wrote: | | А если разбиение не по одной строке, а по задаваемому кол-ву, можно такое сделать? |
Можно (еще один "наколенный" скрипт  ).
Исправленный вариант.
| Code: | Dim fso, InFile, Cnt, Stroki, ts, nn
Set fso = CreateObject("Scripting.FileSystemObject")
InFile = WScript.Arguments(0)
Set ts=fso.OpenTextFile(InFile,1)
Const n=3 ' число строк в каждом "куске"
Cnt=0
Do Until ts.AtEndOfStream
Stroki=""
For nn = 1 To n
If Not ts.AtEndOfStream Then
Stroki=Stroki & ts.ReadLine & vbNewLine
End If
Next
Set MyFile= fso.CreateTextFile(InFile & "." & CStr(Cnt), True)
MyFile.Write(Stroki)
MyFile.Close
Cnt=Cnt+1
Loop
ts.Close
Set ts=Nothing
Set fso = Nothing
WScript.Quit
|
Last edited by Volniy on Wed Jan 13, 2010 18:45; edited 1 time in total |
|
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
