[amel27]

Creat0R
еще немного поразмыслил - про "+" я пожалуй не прав (были и другие варианты) - если поставить "*" функция должна корректно отрабатывать @LF/@CRLF, ну а про @CR я уже сказал... Кстати, из каждой пары одинаковых строк остается первая а вторая удаляется, если нужно наоборот достаточно поменять подстановку "\1\2" на "\2\1".

[Maza Faka]

amel27
Откуда такие познания в синтаксисе регулярных выражений? Может FAQ есть какой подробный?

[Creat0R]

amel27,
Вобщем видимо это оптимальный вариант, без никаких массивов, и сторонних библиотек:

Код:

$File = "C:\Test.txt"

$Ret = _FileDeleteDuplicates($File, -1)

If $Ret = 1 Then
    MsgBox(64, "Results", "Was deleted <" & @extended & "> duplicates in file [" & $File & "]")
ElseIf @error Then
    MsgBox(48, "Error", "File [" & $File & "] was not found.")
EndIf

Func _FileDeleteDuplicates($sFile, $sDirection=-1)
    If Not FileExists($sFile) Or StringInStr(FileGetAttrib($sFile), "D") Then Return SetError(1, 0, 0)

        Local $FileStr = FileRead($sFile), $FileHasEndCRLF = True, $Extended = 0
    Local $ReplDirectVal = '\1\2'
    If $sDirection <> -1 Then $ReplDirectVal = '\2\1'

        If StringRight($FileStr, 2) <> @CRLF Then
        $FileStr &= @CRLF
        $FileHasEndCRLF = False
    EndIf

        Do
        $FileStr = StringRegExpReplace($FileStr, '(?s)(?m)(^[^\n]+\n)(.*?)(^\1)', $ReplDirectVal)
        $Extended += @extended
    Until @extended = 0
    If $Extended = 0 Then Return SetExtended(0, 0)

        If Not $FileHasEndCRLF Then $FileStr = StringTrimRight($FileStr, 2)

        Local $hFile = FileOpen($sFile, 2)
    FileWrite($hFile, $FileStr)
    FileClose($hFile)
    Return SetExtended($Extended/2, 1)
EndFunc

Maza Faka

Может FAQ есть какой подробный?

Есть тут что-то: http://shop.piter.com/lib/978531800056/regvir.phtml
И вот ещё ресурс посвящённый RegExp.

[amel27]

Creat0R

видимо это оптимальный вариант

Ну ты прям почти все учел. Кстати, в RegExp-шаблоне последние скобки можно опустить (подстановка "\3" не используется, они у меня от отладки остались) - это должно немного ускорить обработку.

Maza Faka

Откуда такие познания в синтаксисе регулярных выражений?

почти все мои познания из книжки по первому линку Creat0R'а... правда у меня вторая редакция - там примеров побольше... к сожалению, только в бумажном варианте.

[Maza Faka]

amel27, Creat0R,

почти все мои познания из книжки по первому линку Creat0R'а

Уже скачал, в DJVU-формате

amel27
Сохранил весь топик в версии для печати и изучаю. Наткнулся на твой скрипт(я его немного изменил, вернее упростил для себя):
Вот так работает:

Код:

$Dir2 = LinesDelete("c:\dir2\xxx.sif", "text_1")

Func LinesDelete($path, $string)
    Local $StrArray
    _FileReadToArray($path, $StrArray)
    For $i = $StrArray[0] To 1 Step -1
        If StringInStr($StrArray[$i], $string) Then _ArrayDelete($StrArray, $i)
            _FileWriteFromArray($path, $StrArray, 1)
        Next
    EndFunc

А вот так выдаёт ошибку, хотя тоже отрабатывает:

Код:

Func LinesDelete($path, $string)
    Local $StrArray
    _FileReadToArray($path, $StrArray)
    For $i = 1 To $StrArray[0] Step 1
        If StringInStr($StrArray[$i], $string) Then _ArrayDelete($StrArray, $i) ;Здесь выдаёт ошибку
            _FileWriteFromArray($path, $StrArray, 1)
        Next
    EndFunc

Можешь обьяснить почему?

[13ghost]

Всем здравствовать!!!
Вопрос такой,как с помощью АвтоИт сравнить дату создания двух файлов.С ехе файлами проше,их я сравниваю при помощи FileGetVersion (),но мне надо сравнивать не только ехе ,но и
другие типы файлов.Подскажите что-нибудь или ссылку дайте где можно почитать.Спасибо

[Алексей Н.]

13ghost
В скриптовом языке AutoIt есть функция FileGetTime, с помощью которой можно получить информацию о дате и времени последней модификации указанного файла.
Поробнее можно посмотреть в справке.
Узнать именно дату создания файла вряд ли возможно. Так как она храниться не в файлах, а служебных таблицах ОС.

[Creat0R]

amel27,

в RegExp-шаблоне последние скобки можно опустить

Т.е так:

Код:

'(?s)(?m)(^[^\n]+\n)(.*?)^\1'

?

Или вовсе убрать (^\1)? хотя так не работает - цикл не прерывается.

к сожалению, только в бумажном варианте.

Вот кажется второе изданеие тоже в формате djvu - http://www.softtime.ru/info/fridl.php

А тут вообще этого добра полно

Maza Faka,

А вот так выдаёт ошибку

В этом случае массив обрабатывается с начала к концу, поэтому при удалении элемента (_ArrayDelete()), массив уменьшается, хотя обработка задана по последнему его значению (до входа в цикл). Поэтому ошибка происходит когда в цикле досигается не существующий элемент массива (удалённый).
Для этого и потребовалось перербирать массив с конца к началу (For $i = $StrArray[0] To 1 Step -1), где будут проверяться меньшие элементы, в данном случае ошибки быть не может.

Алексей Н.,

Узнать именно дату создания файла вряд ли возможно

Ну почему, есть ведь флаг 1...

[optional] Flag to indicate which timestamp 0 = Modified (default) 1 = Created 2 = Accessed

Код:

$FileTimeArr = FileGetTime(@SystemDir & "\Notepad.exe", 1)

MsgBox(64, "Results", "Create Date/Time is:" & @LF & _
    $FileTimeArr[2] & "/" & $FileTimeArr[1] & "/" & $FileTimeArr[0] & ", " & _
    $FileTimeArr[3] & ":" & $FileTimeArr[4] & ":" & $FileTimeArr[5])

[mikola1983]

Доброго времени уважаемые...нет ли какой нибуть возможности сделать автоустановку приложения пользователем без прав, если ему надо устанавливает, нет удаляет... возможно ли как нибуть зашить в код строчку типа RunAs

[Maza Faka]

Creat0R

В этом случае массив обрабатывается с начала к концу, поэтому при удалении элемента (_ArrayDelete()), массив уменьшается, хотя обработка задана по последнему его значению (до входа в цикл). Поэтому ошибка происходит когда в цикле досигается не существующий элемент массива (удалённый).

Значит, как я понял, когда массив обрабатывается с начала к концу, то после удаления элемента (_ArrayDelete()), меняется размерность массива ($StrArray[0]), а в цикле идёт обращение к прежней размерности массива, поэтому возникает ошибка?

Ну почему, есть ведь флаг 1... Цитата AutoIt3.chm:[optional] Flag to indicate which timestamp 0 = Modified (default) 1 = Created 2 = Accessed

Вот млин, а в русской справке такого нет , когда нужно было, я мучился, прикручивал батник.