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 

Script Content Plugin
Goto page Previous  1, 2, 3 ... 14, 15, 16
 
Post new topic   Reply to topic    Total Commander Forum Index -> Плагины Total Commander printer-friendly view
View previous topic :: View next topic  
Author Message
Flasher



Joined: 06 Nov 2009
Posts: 11422
Location: Москва

Post (Separately) Posted: Tue Dec 20, 2016 16:07    Post subject: Reply with quote

Parazit
Какой такой? ТЗ не вижу.
_________________
Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой.
Back to top
View user's profile Send private message
Parazit



Joined: 16 Nov 2016
Posts: 15
Location: Россия

Post (Separately) Posted: Tue Dec 20, 2016 17:26    Post subject: Reply with quote

Flasher, вывести в колонку Files.Count
Back to top
View user's profile Send private message
Flasher



Joined: 06 Nov 2009
Posts: 11422
Location: Москва

Post (Separately) Posted: Tue Dec 20, 2016 17:33    Post subject: Reply with quote

Code:
With CreateObject("Scripting.FileSystemObject")
  If .FolderExists(FileName) Then Content = .GetFolder(FileName).Files.Count
End With

_________________
Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой.


Last edited by Flasher on Tue Dec 20, 2016 18:49; edited 1 time in total
Back to top
View user's profile Send private message
Parazit



Joined: 16 Nov 2016
Posts: 15
Location: Россия

Post (Separately) Posted: Tue Dec 20, 2016 18:17    Post subject: Reply with quote

Flasher, это весь скрипт? Если да, то он выводит только "Invalid character"
Back to top
View user's profile Send private message
Flasher



Joined: 06 Nov 2009
Posts: 11422
Location: Москва

Post (Separately) Posted: Tue Dec 20, 2016 18:37    Post subject: Reply with quote

Parazit
Не должен.
Code:
[Script]
Section=FilesCount

[FilesCount]
Script=FilesCount.vbs
ParseDirs=1
LongName=1

_________________
Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой.
Back to top
View user's profile Send private message
Parazit



Joined: 16 Nov 2016
Posts: 15
Location: Россия

Post (Separately) Posted: Tue Dec 20, 2016 19:18    Post subject: Reply with quote

Flasher, спасибо, работает
Back to top
View user's profile Send private message
Parazit



Joined: 16 Nov 2016
Posts: 15
Location: Россия

Post (Separately) Posted: Thu Jan 05, 2017 15:54    Post subject: Reply with quote

Flasher, а как вывести имя файла (ов) в подпапках?

Code:

With CreateObject("Scripting.FileSystemObject")
  Content = .GetFolder(FileName).Files.GetFileName
End With
Back to top
View user's profile Send private message
Flasher



Joined: 06 Nov 2009
Posts: 11422
Location: Москва

Post (Separately) Posted: Fri Jan 06, 2017 02:20    Post subject: Reply with quote

Parazit
В каком виде? Имя подле каждого объекта и так есть по умолчанию.
_________________
Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой.
Back to top
View user's profile Send private message
Parazit



Joined: 16 Nov 2016
Posts: 15
Location: Россия

Post (Separately) Posted: Fri Jan 06, 2017 04:49    Post subject: Reply with quote

Flasher, в папках. Мы присваиваем для FileName имена папок в текущем каталоге, правильно?
Внутри этих папок существуют другие файлы и папки. Это также, как мы выводили количество файлов в этих папках, но теперь, вместо количества,
нам необходимо вывести имя (имена) папок (файлов) внутри каждого FileName
Back to top
View user's profile Send private message
Flasher



Joined: 06 Nov 2009
Posts: 11422
Location: Москва

Post (Separately) Posted: Fri Jan 06, 2017 04:53    Post subject: Reply with quote

Parazit
Файлов в каталоге 200 тыс. Строка одна и ограничена по длине, всё не уместится. Я спрашиваю про вид (сортировка, разделители, ограничение). Как это должно выглядеть?
_________________
Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой.
Back to top
View user's profile Send private message
Parazit



Joined: 16 Nov 2016
Posts: 15
Location: Россия

Post (Separately) Posted: Fri Jan 06, 2017 17:23    Post subject: Reply with quote

Просто вывести имя первого файла.

Last edited by Parazit on Sat Jan 07, 2017 03:44; edited 1 time in total
Back to top
View user's profile Send private message
Flasher



Joined: 06 Nov 2009
Posts: 11422
Location: Москва

Post (Separately) Posted: Fri Jan 06, 2017 22:48    Post subject: Reply with quote

Code:
If CreateObject("Scripting.FileSystemObject").FolderExists(FileName) Then
  With CreateObject("Shell.Application").NameSpace(FileName).Items
    .Filter 73952, "*" : If .Count Then Content = .Item(0)
  End With
End If

P.S.: Точки в конце текста, наконец, будем ставить?
_________________
Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой.
Back to top
View user's profile Send private message
Parazit



Joined: 16 Nov 2016
Posts: 15
Location: Россия

Post (Separately) Posted: Sat Jan 07, 2017 03:45    Post subject: Reply with quote

Flasher, спасибо, это то, что нужно.
Back to top
View user's profile Send private message
Display posts from previous:   
Post new topic   Reply to topic    Total Commander Forum Index -> Плагины Total Commander All times are GMT + 4 Hours
Goto page Previous  1, 2, 3 ... 14, 15, 16
Page 16 of 16

 
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