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)
Кто может поправить буду бесконечно благодарен! :(