Flasher
|
 Posted: Fri Mar 23, 2012 03:01 Post subject: |
 |
|
shveicar
Создавать новую тему, думаю, не стоит. Специфика обеих задач узкая и лежит в одной области.
| Code: | '========================================================================
' Переименовать базовые N-имена близлежащих файлов в базовые имена
' выделенных файлов с наличием в URL-теге их первой строки тех же N-имён
' Параметры: %WL <расширение N-файлов>
'========================================================================
With WScript.Arguments
If .Count = 0 Then WScript.Quit
List = .Item(0) : Ext = .Item(1)
End With
With CreateObject("Scripting.FileSystemObject")
For Each F in Split(.GetFile(List).OpenAsTextStream(1, -1).ReadAll, vbNewLine)
If .FileExists(F) Then
Line = .GetFile(F).OpenAsTextStream(1, -2).ReadLine : NN = InStr(Line, "URL=") + 4
FileName = .GetBaseName(Mid(Line, NN, InStrRev(Line, """>") - NN)) & "." & Ext
.GetFile(.GetParentFolderName(F) & "\" & FileName).Name = .GetBaseName(F) & "." & Ext
End If
Next
End With |
Если второй скрипт устраивает, то первый править уже не требуется? |
|
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
