| |
Option Explicit
Dim list, s, file, extPos, spcPos, tnumPos
If wscript.arguments.count <> 1 Then
msgbox "Использование скрипта: " & Wscript.ScriptName & " СписокФайлов.txt" & vblf & _
"Или тащите мышкой СписокФайлов.txt и бросайте на иконку скрипта."
wscript.quit
End if
Set list = CreateObject("Scripting.Dictionary")
With CreateObject("Scripting.FileSystemObject")
For Each s In Split(.OpenTextFile(wscript.arguments(0)).ReadAll, vbCrLf)
tnumPos = InStr(s,".")
If tnumPos < 3 Then
s = "0" & s
End If
list.Add Left(s, 3), s
Next
For Each file In .GetFolder(.GetParentFolderName(wscript.arguments(0))).Files
extPos = InStrRev(file.Name, ".") 'позиция точки перед расширением
spcPos = InStrRev(file.Name, " ", extPos - 1)
s = Mid(file.Name, spcPos + 1, extPos - spcPos)
If list.Exists(s) Then
file.Name = list(s) & Mid(file.Name, extPos)
list.Remove s
End If
Next
End With
|
Кто рубит в написании скриптов? (+) -- Борис -- 17.05.11@11:57 (Чит.: 321)