Серый форум — AHK: Посимвольное сравнение файлов

Re: AHK: Посимвольное сравнение файлов

null@example.com (Tsubasa) — Tue, 22 Dec 2015 21:01:21 +0000

Спасибо, работает.

Re: AHK: Посимвольное сравнение файлов

null@example.com (teadrinker) — Tue, 22 Dec 2015 20:27:55 +0000

Чёт больно сложно как-то.

Re: AHK: Посимвольное сравнение файлов

null@example.com (yalanne) — Tue, 22 Dec 2015 20:21:39 +0000

file1 := RegExReplace(FileOpen("file1.txt","r").Read() ,"\s")
file2 := RegExReplace(FileOpen("file2.txt","r").Read() ,"\s")

var1 := StrSplit(file1)
var2 := StrSplit(file2)
var3 := []
loop % var1.MaxIndex()
 var3 .= (var1[A_Index] = var2[A_Index]) and (var1[A_Index] = 1)

msgbox % var3

Re: AHK: Посимвольное сравнение файлов

null@example.com (yalanne) — Tue, 22 Dec 2015 18:46:39 +0000

Мой косяк. Там лимит символов ahk не позволяет, сейчас по другому сделаю.

Re: AHK: Посимвольное сравнение файлов

null@example.com (Tsubasa) — Tue, 22 Dec 2015 18:42:58 +0000

Да, два файла. В каждом по 11 строк, каждая символов по 90. И там точно есть пересечения.

Re: AHK: Посимвольное сравнение файлов

null@example.com (yalanne) — Tue, 22 Dec 2015 18:19:55 +0000

То есть нули, весь ответ в нулях? вы два файла создали и заполонили их?
Запись экрана.
Format()
FileOpen()

Re: AHK: Посимвольное сравнение файлов

null@example.com (Tsubasa) — Tue, 22 Dec 2015 18:17:10 +0000

Да, так работает (правда выдаёт нули, но с этим разберусь). А где-нибудь есть документация на такие функции (можно и на английском). Когда гуглил, не нашёл их.

Re: AHK: Посимвольное сравнение файлов

null@example.com (yalanne) — Tue, 22 Dec 2015 18:11:17 +0000

Версия ahk старая. Обнови вот ссылка.

Re: AHK: Посимвольное сравнение файлов

null@example.com (Tsubasa) — Tue, 22 Dec 2015 18:08:15 +0000

Сам скрипт выдаёт Error: Call to nonexistent function. и я не понимаю, что тут вообще происходит, но попробую разобраться. Спасибо.

Re: AHK: Посимвольное сравнение файлов

null@example.com (yalanne) — Tue, 22 Dec 2015 17:48:44 +0000

Держи:

file1 := FileOpen("file1.txt","r").Read()
file2 := FileOpen("file2.txt","r").Read()
var := format("{1:+0" StrLen(file1) "}", format("{:x}",format("0x{}",file1) & format("0x{}",file2)))

msgbox % var

Re: AHK: Посимвольное сравнение файлов

null@example.com (Tsubasa) — Tue, 22 Dec 2015 17:47:14 +0000

Ох, извините, забыл. Исправил.

Re: AHK: Посимвольное сравнение файлов

null@example.com (yalanne) — Tue, 22 Dec 2015 17:18:57 +0000

В имени темы нет префикса "AHK: " Это ошибка. Напишешь тебе ответят.

AHK: Посимвольное сравнение файлов

null@example.com (Tsubasa) — Tue, 22 Dec 2015 16:32:35 +0000

Добрый день!
Мне нужно сравнить посимвольно два файла и записать результат в третий. Файлы одинакового размера и содержат только нули и единицы, а результат должен быть логическим И этих символов.
То есть:
Файл 1:000100101110001
Файл 2:010100010101111
резулт:000100000100001

Я читал справку по операторам, пробовал и так и эдак. Единственный вариант, который сейчас вижу - это вот такой алгоритм:
-Посимвольно перебираем первый файл в Loop.
-Сравниваем символы с "1", ваписывая в третий 0, если 0. Как только находим "1", вычисляем положение символа.
-Перебираем в Loop второй файл до этого места, считываем символ, проверяем, 0 или 1, и если 1, то пишем в третий файл "1", иначе "0".

Какой-то велосипед получился. Нет ли более красивого решения?