Volniy
|
 Posted: Wed Jan 06, 2010 12:11 Post subject: |
 |
|
| Code: | Dim fso, InFile, Cnt, Stroka, ts
Set fso = CreateObject("Scripting.FileSystemObject")
InFile = WScript.Arguments(0)
Set ts=fso.OpenTextFile(InFile,1)
Cnt=0
Do Until ts.AtEndOfStream
Stroka=ts.ReadLine
Set MyFile= fso.CreateTextFile(InFile & "." & CStr(Cnt), True)
MyFile.WriteLine(stroka)
MyFile.Close
Cnt=Cnt+1
Loop
ts.Close
Set ts=Nothing
Set fso = Nothing
WScript.Quit
|
Сохранить в VBS-файл (например SplitByLine.vbs) и повесить на кнопку, в качестве ее параметров написать: ""%P%N"" (именно в двойных кавычках!). Нажимать кнопку, когда курсор на файле-истточнике.
NB Пустые строки считаются и файлы для них создаются. Если файл-источник в Unicode, то нужно будет изменить пару параметров. |
|
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
