Серый форум — AHK: Удаление одинаковых строк из файла №2, содержащихся в файле №1

Re: AHK: Удаление одинаковых строк из файла №2, содержащихся в файле №1

null@example.com (Malcev) — Tue, 08 May 2018 21:34:51 +0000

В коде результат идет не в файл, а в переменную res.
Идёт 2 цикла, в начале каждого цикла переменная res обнуляется.

SetBatchLines -1
file1 =
(
SetWorkingDir, %A_ScriptDir%
If !ErrorLevel MsgBox
Tooltip,Sleep,900
)
file2 =
(
If !ErrorLevel MsgBox
Tooltip,Sleep,900
Tooltip
)

loop 2
{
   res := ""
   If A_Index = 1
      a := file1, b := file2
   Else
      a := file2, b := file1
   obj := []
   loop, parse, a, `n, `r
      obj[A_LoopField] := 1
   loop, parse, b, `n, `r
      res .= !obj[A_LoopField] ? (res?"`n":"") A_LoopField : ""
   out%A_Index% := res
}
msgbox % out1
msgbox % out2

Re: AHK: Удаление одинаковых строк из файла №2, содержащихся в файле №1

null@example.com (DD) — Tue, 08 May 2018 21:11:46 +0000

Сложность в том, что так весь результат опять идёт в один файл, а мне надо в два.

Re: AHK: Удаление одинаковых строк из файла №2, содержащихся в файле №1

null@example.com (Malcev) — Tue, 08 May 2018 18:16:38 +0000

А в чём сложность?

SetBatchLines -1
file1 =
(
SetWorkingDir, %A_ScriptDir%
If !ErrorLevel MsgBox
Tooltip,Sleep,900
)
file2 =
(
If !ErrorLevel MsgBox
Tooltip,Sleep,900
Tooltip
)

loop 2
{
   res := ""
   If A_Index = 1
      a := file1, b := file2
   Else
      a := file2, b := file1
   obj := []
   loop, parse, a, `n, `r
      obj[A_LoopField] := 1
   loop, parse, b, `n, `r
      res .= !obj[A_LoopField] ? (res?"`n":"") A_LoopField : ""
   msgbox % res
}

Re: AHK: Удаление одинаковых строк из файла №2, содержащихся в файле №1

null@example.com (DD) — Tue, 08 May 2018 17:05:35 +0000

Вот пример —


SetBatchLines -1
file1 =
(
   SetWorkingDir, %A_ScriptDir%
   If !ErrorLevel MsgBox
   Tooltip,Sleep,900
)
file2 =
(
   If !ErrorLevel MsgBox
   Tooltip,Sleep,900
   Tooltip
)
loop 2
{
res := ""
   If A_Index = 1
      a := file1, b := file2
   Else
      a := file2, b := file1
   obj := []
   loop, parse, a, `n, `r
      obj[A_LoopField] := 1
   loop, parse, b, `n, `r
      res .= !obj[A_LoopField] ? (res?"`n":"") A_LoopField : ""
}
msgbox % file1
msgbox % file2

Надо бы, чтоб вышло два вывода, с уникальным содержимым для file1 и file2. Для file1 — это строка "SetWorkingDir, %A_ScriptDir%", а для file2 — строка "Tooltip".

Re: AHK: Удаление одинаковых строк из файла №2, содержащихся в файле №1

null@example.com (Malcev) — Tue, 08 May 2018 07:01:52 +0000

Пример приведите файлов и результат.

Re: AHK: Удаление одинаковых строк из файла №2, содержащихся в файле №1

null@example.com (DD) — Tue, 08 May 2018 05:14:13 +0000

Тоже не выходит. Мне надо развести разницу в два файла по такому типу —

SetBatchLines -1
FileRead, file1, 1.txt
FileRead, file2, 2.txt
loop 2
{
res := ""
   If A_Index = 1
      a := file1, b := file2
   Else
      a := file2, b := file1
   obj := []
   loop, parse, a, `n, `r
      obj[A_LoopField] := 1
   loop, parse, b, `n, `r
      res .= !obj[A_LoopField] ? (res?"`n":"") A_LoopField : ""
}
fileappend % obj, %a_desktop%/1.txt
fileappend % res, %a_desktop%/2.txt

Re: AHK: Удаление одинаковых строк из файла №2, содержащихся в файле №1

null@example.com (Malcev) — Mon, 07 May 2018 20:12:20 +0000

После "loop 2" вставьте res := "".

Re: AHK: Удаление одинаковых строк из файла №2, содержащихся в файле №1

null@example.com (DD) — Mon, 07 May 2018 17:44:56 +0000

Понял, что там условие. Но как развести разницу в два файла, а не объединять её?

Re: AHK: Удаление одинаковых строк из файла №2, содержащихся в файле №1

null@example.com (Malcev) — Mon, 07 May 2018 09:08:48 +0000

Нужно почитать про тернарные операторы и изменить эту строчку:

res .= !obj[A_LoopField] ? (res?"`n":"") A_LoopField : ""

Re: AHK: Удаление одинаковых строк из файла №2, содержащихся в файле №1

null@example.com (DD) — Mon, 07 May 2018 05:04:16 +0000

Как можно было бы изменить последний код из поста №23, чтобы уникальные строки каждого файла не объединялись в новый, а перезаписывались в обрабатываемые файлы, либо переносились в новые файлы — под теми же именами — в другое место?


SetBatchLines -1
FileRead, file1, 1.txt
FileRead, file2, 2.txt
loop 2
{
   If A_Index = 1
      a := file1, b := file2
   Else
      a := file2, b := file1
   obj := []
   loop, parse, a, `n, `r
      obj[A_LoopField] := 1
   loop, parse, b, `n, `r
      res .= !obj[A_LoopField] ? (res?"`n":"") A_LoopField : ""
}
MsgBox % res

Re: AHK: Удаление одинаковых строк из файла №2, содержащихся в файле №1

null@example.com (DD) — Mon, 09 Nov 2015 17:05:11 +0000

Оказалось, что для обработки крупных файлов к #MaxMem можно прибавлять значение в мегабайтах, увеличивающих память.

Re: AHK: Удаление одинаковых строк из файла №2, содержащихся в файле №1

null@example.com (DD) — Sun, 08 Nov 2015 23:42:01 +0000

Гранд Респект!

Re: AHK: Удаление одинаковых строк из файла №2, содержащихся в файле №1

null@example.com (Malcev) — Sun, 08 Nov 2015 23:34:20 +0000

SetBatchLines -1
FileRead, file1, 1.txt
FileRead, file2, 2.txt
loop 2
{
   If A_Index = 1
      a := file1, b := file2
   Else
      a := file2, b := file1
   obj := []
   loop, parse, a, `n, `r
      obj[A_LoopField] := 1
   loop, parse, b, `n, `r
      res .= !obj[A_LoopField] ? (res?"`n":"") A_LoopField : ""
}
MsgBox % res

Re: AHK: Удаление одинаковых строк из файла №2, содержащихся в файле №1

null@example.com (DD) — Sun, 08 Nov 2015 23:31:33 +0000

Извиняюсь, рассеянный я)) Задача действительно немного другая: удалить одинаковые строки из обоих файлов — оставив те, которые не встречаются в другом.

Re: AHK: Удаление одинаковых строк из файла №2, содержащихся в файле №1

null@example.com (Malcev) — Sun, 08 Nov 2015 22:58:21 +0000

Скрипт работает согласно задаче:

Нужно считать файл №1 и удалить такие-же (одинаковые) строки из файла №2

Вам нужно конкретизировать задачу.