| View previous topic :: View next topic |
| Author |
Message |
Batya
Joined: 15 Dec 2004
Posts: 2229
Location: Москва, Россия
|
 (Separately) Posted: Tue Jul 29, 2008 10:36 Post subject: |
 |
|
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 |
|
 |
Lev
Joined: 02 Mar 2005
Posts: 392
|
| (Separately) Posted: Tue Jul 29, 2008 15:32 Post subject: |
|
|
1) я к хелперу привык
2) я не люблю расписывать кнопки
3) некоторые мои скрипты работающие с выделенными в тотале файлами вызываются вообще не из-под тотала
зы. как раз хотел убрать второй проход по dictionary, но ты опередил :) |
|
| Back to top |
|
|
Batya
Joined: 15 Dec 2004
Posts: 2229
Location: Москва, Россия
|
| (Separately) Posted: Tue Jul 29, 2008 16:09 Post subject: |
|
|
| Lev wrote: | | 3) некоторые мои скрипты работающие с выделенными в тотале файлами вызываются вообще не из-под тотала |
 Прикольно.
_________________
Нет, я не сплю. Я просто медленно моргаю. |
|
| Back to top |
|
|
aLexx
Joined: 14 Mar 2005
Posts: 442
Location: Новокузнецк
|
| (Separately) Posted: Wed Jul 30, 2008 23:37 Post subject: |
|
|
Кстати, удаление дублей строк есть и в Notepad++.
Вот тута:
 |
|
| Back to top |
|
|
maxeon
Joined: 20 Nov 2007
Posts: 5
|
| (Separately) Posted: Mon Aug 18, 2008 13:39 Post subject: |
|
|
| Batya wrote: | maxeon
Все ли устраивает в батнике от Bishop-а? Или нужен скрипт с доп. возможностями? |
да, сойдет вполне, спасибо за труд 
| Моторокер wrote: | Попробуй программу Автоформат.
Вставь текст, нажми правую кнопку, выбери Удалить дубли. |
отлично работает, маленькая прекрасная софтинка
спс за совет
aLexx
достаточно просто выбрать эту опцию или потом надо что-то типа запуска произвести ?
проверил, ничего не изменилось.. |
|
| Back to top |
|
|
Tol!k
Joined: 01 Apr 2008
Posts: 1727
Location: Арзамас
|
| (Separately) Posted: Tue Aug 19, 2008 17:39 Post subject: |
|
|
И в догонку.
maxeon, текстовый редактор EditPlus -> выделение -> кнопка Sort -> галка Remove duplicates |
|
| Back to top |
|
|
aLexx
Joined: 14 Mar 2005
Posts: 442
Location: Новокузнецк
|
| (Separately) Posted: Wed Aug 20, 2008 00:31 Post subject: |
|
|
Придётся ещё и отсортировать...
Тогда эта опция отработает. По другому никак!  |
|
| Back to top |
|
|
|
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
