Batya
|
 Posted: Wed Oct 14, 2009 14:33 Post subject: |
 |
|
Дерия
Сделал vbs-скрипт для ScriptContentPlugin, который можно использовать в MRT:
| Code: | '========== Изменяемые параметры ==============
Const FileList = "C:\FileList.txt" 'Файл-список
'==============================================
Dim FSO
Set FSO = CreateObject("Scripting.FileSystemObject")
Const ForReading = 1
content = Result
Set FSO = Nothing
Function Result
Dim List, FF, i
Result = "==="
If Not FSO.FileExists(FileList) Then
Exit Function
End If
On Error Resume Next
List = FSO.OpenTextFile(FileList, ForReading, False).ReadAll
If Err.Number <> 0 Then
Exit Function
End If
On Error GoTo 0
i = 0
For Each FF In Split(List, vbNewLine)
i = i + 1
If LCase(FF) = LCase(FSO.GetFileName(filename)) Then Result = i
Next
End Function |
Установка:
1. Устанавливается указанный плагин.
2. Сохраняем приведённый выше код скрипта под под каким либо именем, например, RowNumInList.vbs.
3. Кладется данный скрипт рядом с файлом плагина.
4. Исправляется инишник плагина script.ini примерно таким образом: | Code: | [Script]
Section=General
[General]
LongName=1
ParseDirs=1
Script=RowNumInList.vbs |
5. В TC создаем новый пользовательский набор колонок с колонкой "Result" плагина.
Использование 1:
1. Включаем созданный пользовательский набор колонок.
2. Сортируемся по колонке "Result".
3. Выделяем файлы, которые хотим переименовать.
4. В TC выполняем "Файлы -> Групповое переименование".
5. Указываем шаблон "[C]_[N]".
6. Нажимаем "Выполнить".
Использование 2:
1. Выделяем файлы, которые хотим переименовать.
2. В TC выполняем "Файлы -> Групповое переименование".
3. Указываем шаблон "[=script.Result]_[N]".
4. Нажимаем "Выполнить".
В первом случае номер в начале имени файла будет подставлять TC по порядку, во втором случае номер в начале имени файла будет соответствовать номеру строки в файле-списке.
_________________
Нет, я не сплю. Я просто медленно моргаю. |
|
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
