Что нового

[Данные, строки] Поиск дубликатов и вывод уникальных строк

harkotik2013

Новичок
Сообщения
6
Репутация
0
Привет всем,только начал пользоваться и есть куча трудностей,надеюсь на вашу помощь
Есть у меня скрипт до этого все нормально работал,но сейчас почему то перестал записывать уникальные строчки в файл уникал
Код:
global $lines[1], $test1, $test2

$sUrl = 'http://publicantipublic.esy.es/base.txt'
$test1 = BinaryToString(InetRead($sUrl))
$test2=FileRead("test2.txt")

;~ получаем массив строк из файла test1
$lines = StringRegExp($test1, "(?m)^(.+)$", 3)

;~ удаляем из файла test2 любые строки, которые совпадают с теми, что в массиве
For $x = 0 to Ubound ($lines) - 1
    $test2 = StringRegExpReplace($test2, "(?m)" & $lines[$x] & "[\r\n]?", "")
Next

;~ выводим оставшиеся строки
FileWrite("ynikal.txt", $test2)

Кто может поправить буду бесконечно благодарен! :(
 

Garrett

Модератор
Локальный модератор
Сообщения
3,999
Репутация
967
harkotik2013 [?]
Так, вы объявляете глобальный массив размерностью 1.
А вот так, вы пытаетесь в него записать значения (тоже массив).
;~ удаляем из файла test2 любые строки, которые совпадают с теми, что в массиве
А где мы его читаем???
Так чего же вы хотите??? :smile:
 
Автор
H

harkotik2013

Новичок
Сообщения
6
Репутация
0
Garrett сказал(а):
harkotik2013 [?]
Так, вы объявляете глобальный массив размерностью 1.

А вот так, вы пытаетесь в него записать значения (тоже массив).
Так чего же вы хотите??? :smile:
Помогите сделать правильно пожалуйста :-\ ,нужно чтобы просто скрипт прошелся по строчкам на сайте и в текстовике и вывел уникальные строчки из test2 в файл ynikal.txt и все :'(а у меня записывается либо какая фигня все в разброс либо вообще не записывает
 

Garrett

Модератор
Локальный модератор
Сообщения
3,999
Репутация
967
Код:
#include<Array.au3>
global $lines, $test1, $test2

$sUrl = 'http://publicantipublic.esy.es/base.txt'
$test1 = BinaryToString(InetRead($sUrl))
$test2 = FileRead("test2.txt")

$lines = StringRegExp($test1, "(?m)^(.+)$", 3)

For $x = 0 to Ubound($lines)-1
    $test2 = StringRegExpReplace($test2, StringFormat('%s\r\n', $lines[$x]), "")
Next
FileWrite("ynikal.txt", $test2)
 
Автор
H

harkotik2013

Новичок
Сообщения
6
Репутация
0
Garrett сказал(а):
Код:
#include<Array.au3>
global $lines, $test1, $test2

$sUrl = 'http://publicantipublic.esy.es/base.txt'
$test1 = BinaryToString(InetRead($sUrl))
$test2 = FileRead("test2.txt")

$lines = StringRegExp($test1, "(?m)^(.+)$", 3)

For $x = 0 to Ubound($lines)-1
    $test2 = StringRegExpReplace($test2, StringFormat('%s\r\n', $lines[$x]), "")
Next
FileWrite("ynikal.txt", $test2)
я как понял этот скрипт может только числа сравнивать?
по идеи нужно сравнивать такие данные
Aretem:1976
Maria:god1994
 

Garrett

Модератор
Локальный модератор
Сообщения
3,999
Репутация
967
harkotik2013 [?]
По идее, нужно в раздел Стол заказов написать ТЗ, и тогда за вас всё сделают.
Если же вы решили освоить Autoit, то направление я вам дал, а справку никто не отменял.
 
Верх