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