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 

Удаление одинаковых названий файлов в документе
Goto page Previous  1, 2
 
Post new topic   Reply to topic    Total Commander Forum Index -> Общие вопросы printer-friendly view
View previous topic :: View next topic  
Author Message
Batya



Joined: 15 Dec 2004
Posts: 2229
Location: Москва, Россия

Post (Separately) Posted: Tue Jul 29, 2008 10:36    Post subject: Reply with quote

Lev
На мой взгляд, не стОит пользоваться Helper-ом, когда можно обойтись без него (не у всех же он установлен). Лучше имя файла передать через входной параметр %P%N.
Code:
'Удаление дублирующихся строк
'Параметр вызова из TC:
'  %P%N
File = WScript.Arguments(0)
Set FSO = CreateObject("Scripting.FileSystemObject")
Set Dic = CreateObject("Scripting.Dictionary")

StrArr = Split(FSO.OpenTextFile(File, 1, False).ReadAll, vbNewLine)

For Each S In StrArr
  If Not Dic.Exists(S) Then
    NewText = NewText & vbNewLine & S
    Dic.Add S, ""
  End If
Next

FSO.CreateTextFile(File & ".filtered").Write Mid(NewText, Len(vbNewLine) + 1)

_________________
Нет, я не сплю. Я просто медленно моргаю.
Back to top
View user's profile Send private message
Lev



Joined: 02 Mar 2005
Posts: 392

Post (Separately) Posted: Tue Jul 29, 2008 15:32    Post subject: Reply with quote

1) я к хелперу привык
2) я не люблю расписывать кнопки
3) некоторые мои скрипты работающие с выделенными в тотале файлами вызываются вообще не из-под тотала

зы. как раз хотел убрать второй проход по dictionary, но ты опередил :)
Back to top
View user's profile Send private message
Batya



Joined: 15 Dec 2004
Posts: 2229
Location: Москва, Россия

Post (Separately) Posted: Tue Jul 29, 2008 16:09    Post subject: Reply with quote

Lev wrote:
3) некоторые мои скрипты работающие с выделенными в тотале файлами вызываются вообще не из-под тотала

Smile Прикольно.
_________________
Нет, я не сплю. Я просто медленно моргаю.
Back to top
View user's profile Send private message
aLexx



Joined: 14 Mar 2005
Posts: 442
Location: Новокузнецк

Post (Separately) Posted: Wed Jul 30, 2008 23:37    Post subject: Reply with quote

Кстати, удаление дублей строк есть и в Notepad++.
Вот тута:
Back to top
View user's profile Send private message
maxeon



Joined: 20 Nov 2007
Posts: 5

Post (Separately) Posted: Mon Aug 18, 2008 13:39    Post subject: Reply with quote

Batya wrote:
maxeon
Все ли устраивает в батнике от Bishop-а? Или нужен скрипт с доп. возможностями?

да, сойдет вполне, спасибо за труд Wink

Моторокер wrote:
Попробуй программу Автоформат.
Вставь текст, нажми правую кнопку, выбери Удалить дубли.

отлично работает, маленькая прекрасная софтинка
спс за совет

aLexx
достаточно просто выбрать эту опцию или потом надо что-то типа запуска произвести ?
проверил, ничего не изменилось..
Back to top
View user's profile Send private message
Tol!k



Joined: 01 Apr 2008
Posts: 1727
Location: Арзамас

Post (Separately) Posted: Tue Aug 19, 2008 17:39    Post subject: Reply with quote

И в догонку.
maxeon, текстовый редактор EditPlus -> выделение -> кнопка Sort -> галка Remove duplicates
Back to top
View user's profile Send private message
aLexx



Joined: 14 Mar 2005
Posts: 442
Location: Новокузнецк

Post (Separately) Posted: Wed Aug 20, 2008 00:31    Post subject: Reply with quote

Придётся ещё и отсортировать...
Тогда эта опция отработает. По другому никак! Sad
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 Previous  1, 2
Page 2 of 2

 
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