Модераторы: Avada, CaptainFlint, Nik, d-view, Моторокер
Хорошо бы, как в rhash обновление crc файлов, a если их нет то создание.Flasher писал(а):Кстати, а почему не сделать аналог с фильтром и созданием Info.<CRC>?
Так не бывает. Чтобы что-то дополнить, нужно узнать, что дополнять, а значит, перечитать crc. Только это делать вовсе необязательно, достаточно перезаписать файл целиком. Поэтому я и не понял, зачем приводился пример с rhash, если данное событие в аналоге и так реализовано.SVM писал(а):rhash может не пересчитывать заново crc всех файлов (судя по скорости), а считает только те файлы которых нет в *.md5 и дополняет crc файл.
А чего не подкупить ещё? За 2-2.5 тыс. можно взять 4 Гб.SVM писал(а):всю оперативную память 2 Гб
Я думал в rhash -u, --update, в файле crc проверяет по имени недостающие файлы, считает только их и добавляет в crc файл. Например в папке 1 Тб файлов, добавил несколько файлов в папку и из-за этого пересчитывать все файлы? Я делаю это вручную, посчитал crc 2 файлов, открыл в akelPad, скопировал 2 строки в буфер, добавил в общий crc.Flasher писал(а):Так не бывает.
Компьютеру лет 6, его проще полностью обновить или искать БУ память.Flasher писал(а):А чего не подкупить ещё?
SVM писал(а):Компьютеру лет 6, его проще полностью обновить или искать БУ память
Так 6 лет назад современные материнки допускали на борт DDR3.Тогда буду пользоваться первым скриптом XMD5, а умляуты и юникод переименовывать в Total Commander.Flasher писал(а):Так как быть? Временно переименовывать на момент чекинга? Или к rhash обратимся?
Нужен скрипт аналог предыдущих скриптов, то есть в каждой папке *.md5 файлFlasher писал(а):Рекурсия там есть, но она собирает всё в один файл, что для нас, как я понимаю, не годится
Мм.. А что не так с утилитами? Я помимо rhash ещё 3 нашёл, которые читают юникодные имена. Самая маленькая - 93 Кб.SVM писал(а):Тогда буду пользоваться первым скриптом XMD5
Я то имел в виду - скриптом переименовывать...SVM писал(а):а умляуты и юникод переименовывать в Total Commander.
Да, я понимаю, просто вариант с единым для подпапок хэш-файлом не такой уж и безнадёжный в плане удобства. Только работать с ним придётся не средствами ТС.SVM писал(а):Нужен скрипт аналог предыдущих скриптов, то есть в каждой папке *.md5 файл
Не пойму это про какой скрипт, переименование файлов в структуре активного каталога по MD5, или подсчёт crc - сумм файлов и добавления в crc файлы? Если есть решение по умляутам и юникоду, то было бы отлично.Flasher писал(а):А что не так с утилитами? Я помимо rhash ещё 3 нашёл, которые читают юникодные имена.
Может этот вариант и удобный, но отпадает возможность проверки в Total Commander. А если удалить папку, потом нужно будет обновлять единый crc файл. Проще удалить папку вместе с crc файлом и не обновлять единый crc файл.Flasher писал(а):просто вариант с единым для подпапок хэш-файлом не такой уж и безнадёжный в плане удобства.
Сперва нужно сделанное допилить, т.е. речь только о Юникоде и сохранении памяти.SVM писал(а):Не пойму это про какой скрипт, переименование файлов в структуре активного каталога по MD5 ... Если есть решение по умляутам и юникоду, то было бы отлично.
Код: Выделить всё
'======================================================================
' Восстановить имена файлов в структуре активного каталога, сопоставляя
' данные с вложенным в каждую директорию хэш-файлом (по умолчанию md5)
' Ссылка на утилиту: http://www.fastpictureviewer.com/bin/hashfile.zip
' Условие: путь запуска - пустой
' Параметры: <фильтр-список расширений> <-sha1|-sha256>
' Примеры: *.* | *.txt;*.lst -sha1
' Автор: Flasher ©
'======================= Путь к утилите hashfile ======================
HPath = """%COMMANDER_PATH%\Utils\hashfile\hashfile.exe"""
'======================================================================
With WScript.Arguments
Filt = .Item(0) : If .Count = 2 Then Alg = " " & .Item(1)
End With : Dim WSH : Set WSH = CreateObject("WScript.Shell")
If InStrRev(WScript.FullName, "WScript.exe") Then
WSH.Run "CScript.exe """ & WScript.ScriptFullName & """ " & Filt & Alg, 0
WScript.Quit
End If : Set ShA = CreateObject("Shell.Application")
Set FSO = CreateObject("Scripting.FileSystemObject")
Set Dict = CreateObject("Scripting.Dictionary")
Ext = Mid(Alg, 3) : If Ext = "sha1" Then Ext = "sha"
T = 1 : If Alg = "" Then Ext = "md5"
ForFolder WSH.CurrentDirectory
WSH.Popup Space(10) & "Готово!", 1.5, " Восстановление имён по " & Alg, 64
Sub ForFolder(Path)
Set Items = ShA.NameSpace(Path).Items
Items.Filter 192, "*." & Ext
If Items.Count = 1 Then
FP = Items.Item(0).Path
With CreateObject("ADODB.Stream")
.Open : .LoadFromFile FP : .Type = 1
For i = 2 To 4
.Position = 0 : .Read(i) : Str = Str & Hex(AscB(.Read(2)))
Next : Enc = "windows-1251" : If Str = "EFBBBF" Then Enc = "UTF-8"
.Close : .Type = 2 : .Open : .CharSet = Enc : .LoadFromFile FP
Do : F = .ReadText(-2) : Str = Split(F, " *")
Sum = Str(0) : If Filt <> "*.*" Then T = 0
If T = 0 And InStr(LCase(Filt), LCase(FSO.GetExtensionName(Str(1)))) Then T = 1
If T And Not Dict.Exists(Sum) Then Dict.Add Sum, Str(1) : c = c + 1
Loop Until .EOS : .Close
End With : Items.Filter 192, Filt
For Each F in Items
If LCase(FSO.GetExtensionName(F)) <> Ext And Abs(F.Size) > 0 Then
Sum = Split(WSH.Exec(HPath & Alg & " """ & F.Path & """").StdOut.ReadLine, ": ")(1)
Sum = Left(Sum, Len(Sum) - 1)
If Dict.Exists(Sum) Then
s = s + 1 : N = Dict.Item(Sum) : If Not FSO.FileExists(Path & "" & N) Then F.Name = N
End If
End If : If s = c Then Exit For
Next : Dict.RemoveAll
End If : Items.Filter 160, "*"
If Items.Count Then
For Each Fold in Items : ForFolder Fold.Path : Next
End If
End SubСкрипт проверяет все файлы, в том числе те, что не были переименованы. Это же заведомо узнать невозможно.SVM писал(а):потом 10 минут ничего не переименовывает
В коде нет ничего такого, чтобы подобное могло происходить.SVM писал(а):в процессах идёт подсчёт md5 уже переименованного файла