Flasher
|
 Posted: Sat Jul 16, 2011 18:14 Post subject: |
 |
|
shveicar
| Code: | ' Создание списка c добавлением строк из строки
' выделенного файла по схеме: <строка>/<№ счётчика>/
' Параметры: %V "путь к создаваемому файлу" <первый № счётчика> <число строк>
' Пример: %V "%PCписок_для_"%N 1 250
'=======================================================
With CreateObject("Scripting.FileSystemObject")
Set File = .OpenTextFile(WScript.Arguments(0),1)
Set List = .OpenTextFile(WScript.Arguments(1),8,True)
End With
Str = File.ReadLine
For i=WScript.Arguments(2) to Abs(WScript.Arguments(2))+Abs(WScript.Arguments(3))-1
If Right(Str,1)="/" Then
List.WriteLine Str & i & "/"
Else
List.WriteLine Str & "/" & i & "/"
End If
Next
List.Close
WScript.Quit |
Могу, в принципе, для удобства добавить окна с вопросами, с чего начинать и сколько строк создавать. Может пригодиться в некоторых ситуациях.
Last edited by Flasher on Sun Jul 17, 2011 00:06; edited 2 times in total |
|
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
