Total Commander Forum Index Total Commander
Форум поддержки пользователей Total Commander
Сайты: Все о Total Commander | Totalcmd.net | Ghisler.com | RU.TCKB
 
 RulesRules   SearchSearch   FAQFAQ   MemberlistMemberlist   UsergroupsUsergroups   RegisterRegister 
 ProfileProfile   Log in to check your private messagesLog in to check your private messages   Log inLog in 

вопрос про коментарии к файлам в DESCRIPT.ION
Goto page 1, 2, 3, 4  Next
 
Post new topic   Reply to topic    Total Commander Forum Index -> Общие вопросы printer-friendly view
View previous topic :: View next topic  
Author Message
SiD



Joined: 09 Jan 2005
Posts: 9

Post (Separately) Posted: Sun Jan 09, 2005 18:03    Post subject: вопрос про коментарии к файлам в DESCRIPT.ION Reply with quote

Когда я скачиваю файлы из инета (FlashGet 'ом), то добавляю коментарии к файлам в окне FlashGet, вопрос: можно сделать так что-бы эти коментарии автоматически переносились в DESCRIPT.ION?

Или если сказать подругому, то как можно перенести коментарии из FlashGet (файла Default.jcd) в TC (файл DESCRIPT.ION)?

Если такое сделать нельзя то может есть какой-нибудь другой менеджер закачек, позволяющий сохранять комментарии в формате TC (в файл DESCRIPT.ION) ?

И ещё вопрос возможно ли увеличить размер коментария к файлу?
Back to top
View user's profile Send private message
Ergo
Site Admin


Joined: 14 Dec 2004
Posts: 430

Post (Separately) Posted: Sun Jan 09, 2005 18:28    Post subject: Reply with quote

SiD
Quote:
Когда я скачиваю файлы из инета (FlashGet 'ом), то добавляю коментарии к файлам в окне FlashGet, вопрос: можно сделать так что-бы эти коментарии автоматически переносились в DESCRIPT.ION?

Ну можно настучать разработчика ФлашГета по голове чтобы они это прикрутили, или перейти на другой даунлоудер, который эту функцию поддерживает, как это сделал я перейдя на бесплатный Download Master
Back to top
View user's profile Send private message
CaptainFlint



Joined: 14 Dec 2004
Posts: 6151
Location: Москва

Post (Separately) Posted: Sun Jan 09, 2005 18:37    Post subject: Reply with quote

Ещё ReGet умеет в descropt.ion сохранять комментарии.
Back to top
View user's profile Send private message
Ergo
Site Admin


Joined: 14 Dec 2004
Posts: 430

Post (Separately) Posted: Sun Jan 09, 2005 19:44    Post subject: Reply with quote

SiD
Как вариант нужен WDX-плагин читающий комментарии из FlashGet-овского файла. Но такого плагина нет. Возможно когда-нибудь в будущем появится.
Back to top
View user's profile Send private message
Volniy



Joined: 15 Dec 2004
Posts: 585
Location: Местный

Post (Separately) Posted: Sun Jan 09, 2005 23:43    Post subject: Reply with quote

Еще вариант - вот такой конвертер.
Back to top
View user's profile Send private message
SiD



Joined: 09 Jan 2005
Posts: 9

Post (Separately) Posted: Mon Jan 10, 2005 00:42    Post subject: Reply with quote

Всем спасибо за помощь, я воспользовался конвертором предложенным Volniy

Volniy у меня такая проблема с этим конвертором возникла: если в каталоге существует файл с комментарием, добавленным в TC, то при добавлении коментария этим конвертором не ставиться знак перевод строки (нажатие клавиши Enter в любом редакторе текста) и этот добавленный комментарий сливаеться с предыдущим, у тебя такая проблема не возникала?
теперь ещё такой вопрос возник: можно ли сделать так, что-бы файл коментария всегда заканчивался символом конца строки (нужно для нормальной работы этого конвертора) ?

а как на счёт увеличения размера коментария?
т.е к каждому файлу отведён комментарий на 512 байт, как это увеличить ?
никто не знает ?
а то чаще всего коментарий не убирается в эти 512 байт
Back to top
View user's profile Send private message
Volniy



Joined: 15 Dec 2004
Posts: 585
Location: Местный

Post (Separately) Posted: Mon Jan 10, 2005 14:01    Post subject: Reply with quote

SiD wrote:
Volniy у меня такая проблема с этим конвертором возникла: если в каталоге существует файл с комментарием, добавленным в TC, то при добавлении коментария этим конвертором не ставиться знак перевод строки (нажатие клавиши Enter в любом редакторе текста) и этот добавленный комментарий сливаеться с предыдущим, у тебя такая проблема не возникала?

Да. Это проблема от самого TC: он в последнем комментарии не ставит перевод строки. Я уже на эту граблину наступал.

Quote:
теперь ещё такой вопрос возник: можно ли сделать так, что-бы файл коментария всегда заканчивался символом конца строки (нужно для нормальной работы этого конвертора) ?

1) написать жалобу автору конвертера, чтобы он сам обработал такую ситуацию
2) написать маленький WSH скрипт, который должным образом откорректирует все существующие файлы описаний

Quote:
а как на счёт увеличения размера коментария?

А это уже к Гислеру Smile
Back to top
View user's profile Send private message
Ergo
Site Admin


Joined: 14 Dec 2004
Posts: 430

Post (Separately) Posted: Mon Jan 10, 2005 16:14    Post subject: Reply with quote

Volniy
Quote:
Quote:
а как на счёт увеличения размера коментария?
А это уже к Гислеру

Почему?
Back to top
View user's profile Send private message
Volniy



Joined: 15 Dec 2004
Posts: 585
Location: Местный

Post (Separately) Posted: Mon Jan 10, 2005 18:26    Post subject: Reply with quote

Ergo wrote:
Почему?

Я имел ввиду, что бОльшая (>512) длина коментариев просто игнорируется самим TC (TC 6.03a, w98se). Так что нет никакого смысла увеличивать их каким-либо способом, раз результата этого в TC все-равно не увидать...
Back to top
View user's profile Send private message
Timur



Joined: 10 Jan 2005
Posts: 1

Post (Separately) Posted: Mon Jan 10, 2005 21:45    Post subject: Reply with quote

Может быть и w98 не поддерживает больше 512, но в TC 6.03 под ХР добавил комментарий размером: 1,17 МБ (1 233 865 байт) ручным редактированием "descript.ion". Думаю, это не предел. ТС без проблем показал этот комментарий. При наведение показывает и по Ctr+Z.
Back to top
View user's profile Send private message
Volniy



Joined: 15 Dec 2004
Posts: 585
Location: Местный

Post (Separately) Posted: Tue Jan 11, 2005 02:56    Post subject: Reply with quote

Timur wrote:
Может быть и w98 не поддерживает больше 512, но в TC 6.03 под ХР добавил комментарий размером: 1,17 МБ (1 233 865 байт) ручным редактированием "descript.ion". Думаю, это не предел. ТС без проблем показал этот комментарий. При наведение показывает и по Ctr+Z.

Ага, только это не фича, это скорее баг Smile. Потому как:

1) это не было предусмотрено автором:

Christian Ghisler в справке totalcmd.hlp wrote:
When using descript.ion, the comment length is limited to (currently) 512 characters.

2) длина более 512 сохраняется только до редактирования через Ctr+Z и вообще не удается в поле редактирования вставить большее количество символов.

А в 98se коментарий в сплывающей подсказке в любом случае обрезается до 512.
Back to top
View user's profile Send private message
SiD



Joined: 09 Jan 2005
Posts: 9

Post (Separately) Posted: Tue Jan 11, 2005 23:37    Post subject: Reply with quote

Volniy wrote:
SiD wrote:
Volniy у меня такая проблема с этим конвертором возникла: если в каталоге существует файл с комментарием, добавленным в TC, то при добавлении коментария этим конвертором не ставиться знак перевод строки (нажатие клавиши Enter в любом редакторе текста) и этот добавленный комментарий сливаеться с предыдущим, у тебя такая проблема не возникала?

Да. Это проблема от самого TC: он в последнем комментарии не ставит перевод строки. Я уже на эту граблину наступал.

Так может кто-нибудь напишет Гислеру, что-бы тот исправил, это???
Мне как рядовому пользователю писать практически бесполезно, да и с английским не лады, а вот если бы ему написал какой-нибудь разработчик плагинов или кто нибудь другой, имеющий с ним контакт, то эту проблему бы испривли гораздо быстрее, тем более сейчас тестируется верския 6.5...

Quote:
теперь ещё такой вопрос возник: можно ли сделать так, что-бы файл коментария всегда заканчивался символом конца строки (нужно для нормальной работы этого конвертора) ?

1) написать жалобу автору конвертера, чтобы он сам обработал такую ситуацию
[/quote]
Автору плагина написал, пока молчит

Quote:

2) написать маленький WSH скрипт, который должным образом откорректирует все существующие файлы описаний

может кто-нибудь знающий напишет такой скрипт???

или лучше плагин, он несложный, только я в программировании не очень разбираюсь

формат у файла *.log

**********
Имя:spb.gprs.monitor.v2.0.arm.ppc2002.regged-cscpda.rar
URL:ftp://213.148.9.3:38051/upload/from falc/10-2003/spb.gprs.monitor.v2.0.arm.ppc2002.regged-cscpda.rar
Размер: 186KB
Время Сохранения:Tue Jan 11 22:25:42 2005
Ссылка:
Комментарий:GPRS монитор
********

от плагина требуеться всего-лишь из подобного лог файла записать (или дописать) в Descript.ion в новой строке значение после "Имя:" пробел значение после "Комментарий:", всё это должно быть записано в одну строку
После чего удалять этот лог файл (желательно опционально, т.е. при желании не удалять)
Back to top
View user's profile Send private message
Volniy



Joined: 15 Dec 2004
Posts: 585
Location: Местный

Post (Separately) Posted: Wed Jan 12, 2005 21:25    Post subject: Reply with quote

2SID
Вот, зацени-ка мой вариант конвертора LOG-ов в Descript.ion. Если FlashGet не русифицирован, надо будет заменить "Комментарий:" и "Имя:" на английский вариант.
Code:
'=========================[ Start of file ]=========================

'  File:         LogToDescription.vbs
'  Description:  Вычитывает описания файлов из FlasGet-овских log-ов
'                в текущей папке и в каждой вложенной в нее, и
'                и заносит их в стандартный descript.ion
'  Installation: Создайте кнопку на панели TC
'                Команда: "диск:\путь\к\файлу\LogToDescription.vbs"
'                Параметры: "%P" [Внимание, именно в кавычках!]
'  Version:      3-я редакция, исправленная

'  Copyright:    (c) 2005, Volniy

Option Explicit

Dim Fso, LogsCnt

Set Fso = CreateObject("Scripting.FileSystemObject")

If Fso.FolderExists(WScript.Arguments(0)) = False Then
   MsgBox "Указана неверная директория!", vbCritical, "Ошибка"
Else
   Call ScanFolderForLog(Fso.GetFolder(WScript.Arguments(0)))
   MsgBox "Операция успешно завершена." & vbcr &  _
   "Всего LOG-файлов FlashGet: "& LogsCnt  , vbInformation, "Сообщение"
End If

Set Fso = Nothing
WScript.Quit

Sub ScanFolderForLog(curFolder)
   
   Dim SF
   
   For Each SF In curFolder.SubFolders
      ScanFolderForLog SF
   Next
   
   Call EditDescription(curFolder)
   
End Sub

 Function DescriptionFromLOG(Path, LogFile)
   Dim dscNew, dscOld, tmp, forFile, IsFlashLOG
   Dim TS1, TS2, NoAdd, Entry, pos, pos2, TargetION
   
   TargetION = Fso.BuildPath(Path, "DESCRIPT.ION")
   Const ForReading = 1, ForWriting = 2
   
   ' Ищем описание для файла в log-файле
   Set TS1 = Fso.OpenTextFile(LogFile, ForReading)
   
   Do While TS1.AtEndOfStream <> True
      tmp = TS1.ReadLine
     
      pos2 = InStr(1, tmp, "Имя:", vbTextCompare)
      If pos2 Then
         forFile = Mid(tmp, pos2 + Len("Имя:"))  ' Нашли имя и сохранили
         IsFlashLOG = IsFlashLOG + 1
      End If
      pos = InStr(1, tmp, "Комментарий:", vbTextCompare)

      If pos Then
         Entry = Mid(tmp, pos + Len("Комментарий:")) ' Комментарий сохранили в Entry
         IsFlashLOG = IsFlashLOG + 1
      ElseIf IsFlashLOG = 2 Then    ' Все за 1-ой строкой комментария - тоже комментарий
         Entry = Entry & " " & tmp
      End If

   Loop
   
   TS1.Close
   Set TS1 = Nothing
   
   If Len(Entry) Then                  ' Если комментарий был найден
     
      ' Добавляем имя файла (при пробеле в имени - в кавычках)
      If InStr(1, forFile, " ") Then forFile = """" & forFile & """"
      Entry = forFile & " " & Entry
      If Fso.FileExists(TargetION) Then     ' Если уже есть файл Description
         Set TS2 = Fso.OpenTextFile(TargetION, ForReading)
         
         Do While TS2.AtEndOfStream <> True
            tmp = TS2.ReadLine
           
            If InStr(1, tmp, forFile, vbTextCompare) Then
               tmp = Entry             ' Подменяем, если там уже есть старый комментарий
               NoAdd = True            ' и отмечаем, что добавлять новую строку уже не нужно
            End If
           
            dscNew = dscNew & tmp & vbCrLf  ' Готовим содержимое для Descript.ion
         Loop
         
         TS2.Close
         If NoAdd = False Then dscNew = dscNew & Entry
      Else
         ' Если файла DESCRIPT.ION нет, то будем создавать его с нуля
         dscNew = Entry                ' Запомним найденный комментарий
         
      End If
     
      On Error Resume Next
     
      Fso.GetFile(TargetION).Attributes = 0     ' Снимаем атрибуты
      Set TS2 = Fso.OpenTextFile(TargetION, ForWriting, True)
      TS2.Write dscNew                 ' Пишем целевой файл файл
      TS2.Close
      Fso.GetFile(TargetION).Attributes = 34    ' Скрытый и Архивный атр.
   End If
   
   Set TS2 = Nothing
   ' Возвратим True, если это был действительно FlashGet-овский LOG
   DescriptionFromLOG = CBool(IsFlashLOG = 2)

End Function

Sub EditDescription(curFolder)
   
   Dim F, fExt
   
   For Each F In curFolder.Files
      fExt = UCase(Fso.GetExtensionName(F.Name))
     
      If fExt = "LOG" Then
         LogsCnt = LogsCnt + 1
         ' Обработка исходного файла только если
         ' LOG был именно FlashGet-овский
         If DescriptionFromLOG(curFolder.Path, F.Path) Then
           
            '  Переименование LOG в TXT
            '  F.Name = Fso.GetBaseName(F.Name) & ".txt"
           
            '  или просто их удаление:
            '  F.Delete True
         End If
         
      End If
     
   Next
   
End Sub

'=========================[  End of file  ]=========================

В данном варианте строки, дающие возможность удалять или переименовывать LOG-и, закомментированы (на всякий случай).


Last edited by Volniy on Thu Jan 27, 2005 12:19; edited 2 times in total
Back to top
View user's profile Send private message
SiD



Joined: 09 Jan 2005
Posts: 9

Post (Separately) Posted: Thu Jan 13, 2005 15:06    Post subject: Reply with quote

Volniy wrote:
2SID
Вот, зацени-ка мой вариант конвертора LOG-ов в Descript.ion. Если FlashGet не русифицирован, надо будет заменить "Комментарий:" на его английский вариант.


У меня вообще не запускается, наверно нужно установленный VB-script, или если он ставится по дефолту вместе с windows, то ассоциировать его с *.vbs файлами[/img]
Back to top
View user's profile Send private message
Volniy



Joined: 15 Dec 2004
Posts: 585
Location: Местный

Post (Separately) Posted: Thu Jan 13, 2005 16:13    Post subject: Reply with quote

Quote:
У меня вообще не запускается, наверно нужно установленный VB-script, или если он ставится по дефолту вместе с windows, то ассоциировать его с *.vbs файлами

Чтобы не заморачиваться с поиском где и что у тебя там не включено/не ассоциировано, просто скачай и установи последнюю версию WSH (5.6) :
для Windows 2000 and XP,
для Windows Server 2003 или
для Windows 98, Windows ME, and Windows NT 4.0
и тогда у тебя будут работать самые продвинутые скрипты.

PS При загрузке сначала выбирай нужную локализацию (Change Language)


Last edited by Volniy on Sat Jan 15, 2005 15:39; edited 1 time in total
Back to top
View user's profile Send private message
Display posts from previous:   
Post new topic   Reply to topic    Total Commander Forum Index -> Общие вопросы All times are GMT + 4 Hours
Goto page 1, 2, 3, 4  Next
Page 1 of 4

 
Jump to:  
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum


Powered by phpBB © 2001, 2005 phpBB Group