Головна » Файли » Готові скрипти

Пошук по списку рядків, які дублюються
29.04.2022, 16:38

Скрипт шукає у списку рядки, які дублюються і видаляє їх. При цьому не тільки ті, які дублюються, а кожен із тих, які дублювалися (в тому числі і перший).

;скопіюйте в буфер текст, який потрібно обробити
@Text.Paste
$Text=@Text.Text
@Text[2].Text $Text
;
$FC=@Text.Count
@Progress.Start $FC Опрацювання...
$I=0
%Loop
$I=$I+1
$LineT1=@Text.Line[$I]
@Progress.StepBy
$rogress=@Progress.Canceled
@if $rogress=1 then @Goto %End
;
$FC2=@Text[2].Count
$O=$I
$zzz=0
%Loop2
$O=$O+1
@if $O>$FC2 then @Goto %End2
$Line=@Text[2].Line[$O]
@if $LineT1=$Line then $zzz=1
@if $LineT1=$Line then @Goto %End2
@Goto %Loop2
%End2
@if $zzz=0 then @Text[3].Add $LineT1
;
@if $I<$FC then @Goto %Loop
%End
@Progress.Stop
@Text[3].Copy
@Dialog.Message Виконано, текст скопійовано в буфер обміну

Якщо ж потрібно видалити тільки конкретно ті, які дублюються, залишивши з них у списку по одній копії, то тоді скрипт виглядаме ось так:

;скопіюйте в буфер текст, який потрібно обробити
@Text.Paste
@Text[1].Unique
@Text[1].Copy
@Dialog.Message Виконано, текст скопійовано в буфер обміну

Категорія: Готові скрипти | Додав: Микола
Переглядів: 503 | Завантажень: 0 | Рейтинг: 0.0/0
Всього коментарів: 0
avatar