Серый форум — AHK: Повтор строк

Re: AHK: Повтор строк

null@example.com (serzh82saratov) — Sat, 09 Nov 2013 03:33:54 +0000

Ну если SubStr как в 6 посте религия не позволяет. Просто отрезать последний символ

StringTrimRight, OutputVar, String, 1

Re: AHK: Повтор строк

null@example.com (Malcev) — Fri, 08 Nov 2013 20:29:46 +0000

Первую строку с помощью StringReplace.
Последнюю как?

Re: AHK: Повтор строк

null@example.com (serzh82saratov) — Fri, 08 Nov 2013 19:48:13 +0000

Наверное как-то с помощью RegexReplace.

Можно проще.

Re: AHK: Повтор строк

null@example.com (Malcev) — Fri, 08 Nov 2013 19:34:00 +0000

Наверное как-то с помощью RegexReplace.

Re: AHK: Повтор строк

null@example.com (serzh82saratov) — Fri, 08 Nov 2013 18:21:36 +0000

А если нужен учёт пустых строк в начале и конце?


Text =
( 

строка 2
строка 2  
строка 1 
строка 1 
строка 1
 
)

Re: AHK: Повтор строк

null@example.com (Malcev) — Fri, 08 Nov 2013 18:10:09 +0000

Нет. Долблю свой.

Text =
( 
строка 2
строка 2 
строка 1 
строка 1 
строка 1
)
Text := "`n" . Text
Loop, Parse, Text, `n
{
   If NewText not contains `n%A_LoopField%`n
      NewText .= A_LoopField . "`n"
}
msgbox % trim(NewText, "`n")

Re: AHK: Повтор строк

null@example.com (serzh82saratov) — Fri, 08 Nov 2013 17:59:04 +0000

Наверное так:

trim(NewText, "`n")

исправленный вариант

Вы невнимательно пытаетесь переделать мой 2 вариант?


Text =
( 
строка 2
строка 2 
строка 1 
строка 1 
строка 1  
)
Loop, Parse, Text, `n
{
   If NewText not contains `n%A_LoopField%`n
      NewText .= A_LoopField . "`n"
}
msgbox % trim(NewText)

Re: AHK: Повтор строк

null@example.com (Malcev) — Fri, 08 Nov 2013 17:45:21 +0000

Вот исправленный вариант.

Text =
( 
А где же следующая строка? строка 2
строка 2
строка 1
строка 1
строка 1
)
Loop, Parse, Text, `n
{
   If NewText not contains `n%A_LoopField%`n
      NewText .= A_LoopField . "`n"
}
msgbox % trim(NewText)

Re: AHK: Повтор строк

null@example.com (serzh82saratov) — Fri, 08 Nov 2013 16:46:51 +0000

код очень тяжело для новичка читаем.

Ну тогда выражения:

NewText .= A_LoopField . "`n"

это зло:

NewText = %NewText%%A_LoopField%`n

Re: AHK: Повтор строк

null@example.com (serzh82saratov) — Fri, 08 Nov 2013 16:45:04 +0000

вот любите вы все усложнять

Если новичку интересно, то мне не трудно объяснить. пруф.

----------

В вашем нерабочем:


Text =
( 
А где же следующая строка? строка 2
строка 2
строка 1
строка 1
строка 1
)
Loop, Parse, Text, `n
{
   If NewText not contains %A_LoopField%`n
      NewText .= A_LoopField . "`n"
}
msgbox % NewText

варианте надо ещё удалять последний перевод строки, которого нет в оригинале.

Re: AHK: Повтор строк

null@example.com (Malcev) — Fri, 08 Nov 2013 16:31:50 +0000

serzh82saratov, вот любите вы все усложнять - получаем меньшее количество строк, а код очень тяжело для новичка читаем.

Text =
( 
строка 2
строка 1
строка 1
строка 2
строка 1
)
Loop, Parse, Text, `n
{
   If NewText not contains %A_LoopField%`n
      NewText .= A_LoopField . "`n"
}
msgbox % NewText

Re: AHK: Повтор строк

null@example.com (serzh82saratov) — Fri, 08 Nov 2013 14:00:34 +0000

ypppu пишет:

если её содержимое совпадает со значением любой из переменных

Я бы сделал без (псевдо) массивов:


Text =
( 
строка 2
строка 1
строка 1
строка 2
строка 1
)
 ; 1 вариант
Loop, Parse, Text, `n
    OutText .= OutText ~= "m`a)^\Q" A_LoopField "\E$" ? "" : A_LoopField "`n"  
MsgBox % SubStr(OutText, 1, -1) 
 ; 2 вариант наверное быстрее первого
OutText = `n
Loop, Parse, Text, `n
    OutText .= Instr(OutText, "`n" A_LoopField "`n") ? "" : A_LoopField "`n"   
MsgBox % SubStr(OutText, 2, -1)

Re: AHK: Повтор строк

null@example.com (YMP) — Fri, 08 Nov 2013 13:43:42 +0000

Да, я вот тоже вспомнил про Sort и подумал, что неплохо бы там иметь опцию чисто удаления повторов, без сортировки.

Re: AHK: Повтор строк

null@example.com (serzh82saratov) — Fri, 08 Nov 2013 13:21:46 +0000

Malcev
Так не лучше:


Text =
( 
строка 2
строка 1
строка 1
строка 2
строка 1
)
Sort, Text, U
MsgBox % Text

Надо (по идее):


строка 2
строка 1

А получается:


строка 1
строка 2

Но в частных случаях может подойти.

Re: AHK: Повтор строк

null@example.com (Malcev) — Fri, 08 Nov 2013 09:22:50 +0000

А можно проще.

FileRead, Text, Source.txt
Sort, Text, U
FileAppend, %Text%, Target.txt