Flasher
|
 Posted: Mon May 30, 2011 12:53 Post subject: |
 |
|
Упрощаю:
| Code: | ' Добавление ссылок в файл-список из выделенных url
' Параметры: %L "<путь к файлу-списку>"
' Пример: %L "%TСсылки.txt"
'=====================================
With CreateObject("Scripting.FileSystemObject")
Set TempFile = .OpenTextFile(WScript.Arguments(0),1)
On Error Resume Next
Do While Not TempFile.AtEndOfStream
URLFile = .OpenTextFile(TempFile.ReadLine).ReadAll
Str=Filter(Split(URLFile, vbNewLine), "URL=", true, 1)
Set List = .OpenTextFile(WScript.Arguments(1),8,True)
List.WriteLine Mid(Str(0), 5)
List.Close
URLFile.Close
Loop
TempFile.Close
End With |
|
|
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
