Серый форум — AHK: Поиск неповторяющихся строк

Re: AHK: Поиск неповторяющихся строк

null@example.com (avens) — Sat, 29 Nov 2014 12:31:08 +0000

ypppu пишет:

avens, "неповторяющихся" в названии темы пишется слитно.

Исправил

Re: AHK: Поиск неповторяющихся строк

null@example.com (ypppu) — Fri, 28 Nov 2014 07:54:25 +0000

avens, "неповторяющихся" в названии темы пишется слитно.

Re: AHK: Поиск неповторяющихся строк

null@example.com (serzh82saratov) — Fri, 28 Nov 2014 05:27:46 +0000

Теперь понял. Возможно это правильно.

Re: AHK: Поиск неповторяющихся строк

null@example.com (teadrinker) — Thu, 27 Nov 2014 20:33:39 +0000

Он имеет в виду что

MsgBox, % InStr("222", "22",,, 2)

по аналогии.

Re: AHK: Поиск неповторяющихся строк

null@example.com (serzh82saratov) — Thu, 27 Nov 2014 20:29:22 +0000

"`n" A_LoopField "`n"

Не уверен, что Я тебя понял.

Re: AHK: Поиск неповторяющихся строк

null@example.com (Malcev) — Thu, 27 Nov 2014 19:07:58 +0000

А по-моему правильно работает.
Если бы он в твоем примере находил 2 раза линию из двоек, то тогда логично было бы и в числе "222" найти 2 пары "22".

Re: AHK: Поиск неповторяющихся строк

null@example.com (serzh82saratov) — Thu, 27 Nov 2014 17:43:54 +0000

Кстати по поводу stringreplace. Как то нехорошо ведёт себя InStr. По логике, ведь так должно работать:


file1 =
(
11111
33333
)

file2 =
(
11111
22222
22222
33333
)

Text := "`n" file1 "`n" file2 "`n" 
Loop, parse, Text, `n, `r 
    (A_LoopField != "" && !InStr(Text, "`n" A_LoopField "`n", , , 2) && (Only .= A_LoopField "`n")) 
MsgBox, % Only

Но нет.
Приходится вставлять

StringReplace, Text, Text, `n, `n`n, all

(9 пост).

Re: AHK: Поиск неповторяющихся строк

null@example.com (Drugoy) — Thu, 27 Nov 2014 17:37:15 +0000

Ааа, прошу прощения: не вник в суть сначала.
Да, фильтрации повторяющихся строк явно недостаточно и да, тогда нужна петля.

Re: AHK: Поиск неповторяющихся строк

null@example.com (avens) — Thu, 27 Nov 2014 11:50:12 +0000

Drugoy пишет:

Я не понимаю над чем тут биться.
1. Прочитать содержимое обоих файлов в переменные и объединить в 1 переменную. (2x fileread + concatenate)
2. Сортировать строки по алфавиту и удалить дублирующиеся (Sort, input, U D`n)
3. ...
4. Profit?
stringreplace'ы тут нужны только в случае предобработки содержимого файлов, к задаче из subject'а темы это относится никак.
Loop'ы тут не нужны вообще.

Но разве можно применяя команду Sort выполнить задачу?

input =
(
1
2
3
4
5
1
2
3
4
)

Sort, input, U D`n

MsgBox %input%

Надо выбрать неповторяющиесь строки, результат из этого примера должен быть "5".

Re: AHK: Поиск неповторяющихся строк

null@example.com (teadrinker) — Thu, 27 Nov 2014 09:36:41 +0000

Drugoy, да ладно?

Re: AHK: Поиск неповторяющихся строк

null@example.com (Drugoy) — Thu, 27 Nov 2014 09:22:20 +0000

Я не понимаю над чем тут биться.
1. Прочитать содержимое обоих файлов в переменные и объединить в 1 переменную. (2x fileread + concatenate)
2. Сортировать строки по алфавиту и удалить дублирующиеся (Sort, input, U D`n)
3. ...
4. Profit?
stringreplace'ы тут нужны только в случае предобработки содержимого файлов, к задаче из subject'а темы это относится никак.
Loop'ы тут не нужны вообще.

Re: AHK: Поиск неповторяющихся строк

null@example.com (avens) — Thu, 27 Nov 2014 08:29:21 +0000

Огромная благодарность всем!

Если точнее моя задача заключается в том что бы сравнить два файла со списков моих групп ВК, первый список тот что содержит ссылки групп на которые я подписан, а второй отобранные группы, вот и надо их сравнить что бы одинаковые строки убрать, а уникальные оставить, и потом вступить в эти группы.

Re: AHK: Поиск неповторяющихся строк

null@example.com (serzh82saratov) — Thu, 27 Nov 2014 05:20:02 +0000

Или так:


file1 =
(
11111
22222
33333
77777
44444
55555
)

file2 =
(
11111
22222
88888
33333
44444
55555
)

Text := "`n" file1 "`n" file2 "`n" 
StringReplace, Text, Text, `n, `n`n, all
Loop, parse, Text, `n, `r 
    (A_LoopField != "" && !InStr(Text, "`n" A_LoopField "`n", 1, , 2) && (Only .= A_LoopField "`n")) 
MsgBox, % Only

Re: AHK: Поиск неповторяющихся строк

null@example.com (Malcev) — Thu, 27 Nov 2014 03:51:57 +0000

Или так:

file1 =
(
1
11111
11111
999999999
)

file2 =
(
999999999
22222
22222
2
)

Text := "`n" file1 "`n" file2 "`n"
StringReplace, Text, Text, `n, `n`n, all
Loop, parse, Text, `n, `r
{
   StringReplace, Text, Text, `n%A_LoopField%`n, `n%A_LoopField%`n, UseErrorLevel
      if (ErrorLevel = 1) and (A_LoopField != "")
         Only .= A_LoopField "`n"
}
MsgBox, % Only

Re: AHK: Поиск неповторяющихся строк

null@example.com (teadrinker) — Thu, 27 Nov 2014 03:20:04 +0000

Вот так, вроде выходит:

file1 =
(
11111
999999999
)

file2 =
(
999999999
22222
)

Text := file1 "`n" file2
Loop, parse, Text, `n, `r
{
   RegExReplace(Text, "m`a)^\Q" . A_LoopField . "\E$", A_LoopField, Count)
   (Count = 1 && Only .= A_LoopField . "`n")
}
MsgBox, % Only := Trim(Only, "`n")

Идея-то в общем правильная была.