swr
Дело в том, что при каждом обращении к файлу придётся читать кодировку descript.ion, т. к. WACP не разделяет буферизацию для активной папки и её объектов. Т.е. скорость будет соответствующая.
В Script\ плагина кидаем:
CommentPart.vbs
Code:
Set FSO = CreateObject("Scripting.FileSystemObject")
ion = FSO.GetParentFolderName(FileName) & "\descript.ion"
If FSO.FileExists(ion) Then
If FSO.GetFile(ion).Size > 3 Then
Pattern = ".*\(([^)(]+)\)$" ' здесь задаётся паттерн искомой части комментария
With CreateObject("SAPI.SpFileStream") .Open ion : .Read ArrB, 3 : .Close : End With
For i = 1 To 2 : Dec = Dec & AscB(MidB(ArrB, i, 1)) : Next
Select Case Dec
Case 239187 Enc = "UTF-8"
Case 255254 Enc = "UTF-16LE"
Case 254255 Enc = "UTF-16BE"
Case Else Enc = "Windows-1251"
End Select
With CreateObject("ADODB.Stream")
.Open : .Type = 2 : .CharSet = Enc : .LoadFromFile ion : All = .ReadText : .Close
End With
FileName = FSO.GetFileName(FileName)
If InStr(FileName, " ") Then FileName = """" & FileName & """"
With New RegExp
.Pattern = "([[\]\{}\-\(\)^(\$\+\.])" : .Global = 1 : .MultiLine = 1
.Pattern = "^" & .Replace(FileName, "\$1") & " " & Pattern
.Global = 0 : If .Test(All) Then Content = .Execute(All)(0).SubMatches(0)
End With
Выполняем cm_UnloadPlugins или перезапускаем ТС. _________________ Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой.
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
CommentPart.vbs
