[Creat0R]

Angelus

вместо ввода с клавиатуры допустим...C:\Alcohol Soft......вводится......\A Ї.....

Посылаются латинские символы при не латинской раскладке клавиатуры - с точки зрения AutoIT, нормальное пведение, хотя я сам хотел бы чтобы этого не происходило...
Как вариант менять раскладку перед посыланием символов, либо (намного надёжнее) писать текст используя ControlSetText(), ведь как я поняол нужно вписать текст в определёное поле другого приложения?

Можно ли так обрабатывать текст?

Не желательно, это медлено и не надёжно, там каждую строку открывается файл, пишется в него, и потом закрывается файл (функция _FileWriteToLine()), лучше перечитать весь файл в массив, а потом обрабатывать сам массив...

Я лично такой метод использую:

Код:

$File = "C:\test.txt"

$Ret = _FileDeleteDuplicates($File, -1)

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

Func _FileDeleteDuplicates($sFile, $sDirection=-1)
    If Not FileExists($sFile) Then Return SetError(1, 0, -1)
    Local $sFileArray = StringSplit(StringStripCR(FileRead($sFile)), @LF)
    _ArrayDeleteClones($sFileArray, $sDirection)
    Local $Extended = @extended
    If $Extended = 0 Then Return SetError(0, 0, 0)
    Local $hFile = FileOpen($sFile, 130), $LF = @LF
    For $i = 1 To $sFileArray[0]
        If $i = $sFileArray[0] Then $LF = ""
        FileWrite($hFile, $sFileArray[$i] & $LF)
    Next
    FileClose($hFile)
    Return SetError(0, $Extended, 1)
EndFunc

Func _ArrayDeleteClones(ByRef $sArray, $sDirection=-1)
    If Not IsArray($sArray) Then Return SetError(1)
    If UBound($sArray, 0) > 1 Then Return SetError(2)
    Local $NewArr[1], $Extended=0, $FindDuplicate

        For $i = 1 To UBound($sArray)-1
        $FindDuplicate = _FindInArray($sArray, $sArray[$i], $i-1, $sDirection)
        If $FindDuplicate = -1 Then
            ReDim $NewArr[UBound($NewArr)+1]
            $NewArr[UBound($NewArr)-1] = $sArray[$i]
        Else
            $Extended += 1
        EndIf
    Next

        $NewArr[0] = UBound($NewArr) - 1
    $sArray = $NewArr
    Return SetError(0, $Extended, $sArray)
EndFunc

Func _FindInArray(ByRef $Array, $WhatToFind, $StartFrom=1, $sDirection=-1)
    If UBound($Array) < 2 Then Return -1
    Local $iFor = $StartFrom, $iTo = 1, $iStep = -1
    If $sDirection = 1 Then
        $iFor = $StartFrom + 2
        $iTo = UBound($Array)-1
        $iStep = 1
    EndIf

        For $iArr = $iFor To $iTo Step $iStep
        If $Array[$iArr] = $WhatToFind Then Return $iArr
    Next
    Return -1
EndFunc

[Maza Faka]

Creat0R
Красиво, но для меня пока сложновато
Непонятно вот это

Код:

SetError(1, 0, -1)

, зачем столько значений?

[Creat0R]

Maza Faka,

зачем столько значений?

Первое задаёт уровень ошибочности, второе нам не нужно в этом случае (расширенное значение содержащееся в макросе @extended на выходе с функции - если функция завершилась удачно, этот макрос будет содержать число произведённых замен в файле), но нужно третье, оно задаёт возвращаемое значение, подобно Return "Value"... таким образом можно проверить что функция завершилась неудачно (файл не найден), не всегда проверяется @error... хотя именно в этом случае, возможно и не нужно возвращать значение, но всё же так положенно (такое поведение наблюдается во многих встроенных функциях).

[amel27]

Maza Faka, Creat0R

еще два варианта удаления дублей: в 1-м случае файл подается в виде строки, во 2-м как массив строк

Код:

#include <array.au3>

Func _TextStripDupLines($text)
    If StringRight($text,2)<>@CRLF Then $text &= @CRLF
    Do
        $text = StringRegExpReplace($text,'(?s)(?m)(^[^\n]+\n)(.*?)(^\1)','\1\2')
    Until @extended=0
    Return $text
EndFunc

Func _ArrayDeleteClones($strArray)
    Local $search, $newArray[1]=[0]
    For $i = 1 To $strArray[0]
        $search = -1
        If $i<$strArray[0] Then $search = _ArraySearch($strArray, $strArray[$i], $i+1)
        If $search=-1 Then
            $newArray[0]+=1
            ReDim $newArray[$newArray[0]+1]
            $newArray[$newArray[0]]=$strArray[$i]
        EndIf
    Next
    Return $newArray
EndFunc

[Creat0R]

amel27,

в 1-м случае файл подается в виде строки

Не перестаю удивляться мощности этого инструмента (Регулярных выражении), ну и конечно твоему умению его использовать
Правда этот метод расчитан только если попадаются как разделители строк @CRLF, а как быть с теми случаями когда строки поделены только лишь @LF/@CR? пробовал похимичить с Pattern, ничего не вышло .

[Maza Faka]

amel27
Немного исправил твой код:

Код:

#include <Array.au3>
#include <File.au3>

Dim $strArray, $newArray

_FileReadToArray("C:\test.txt", $strArray)
_ArrayDeleteClones($strArray, $newArray)

Func _ArrayDeleteClones($strArray, $newArray)
    Dim $search, $newArray[1]=[0]
    For $i = 1 To $strArray[0]
        $search = $i
        If $i <= $strArray[0] Then $search = _ArraySearch($strArray, $strArray[$i], $i+1)
        If $search = -1 Then
            $newArray[0] += 1
            ReDim $newArray[$newArray[0]+1]
            $newArray[$newArray[0]]=$strArray[$i]
        EndIf
    Next
    _ArrayDisplay($newArray, "Result")
EndFunc

а то последняя строка игнорировалась.

[amel27]

последняя строка игнорировалась

ты прав - была ошибка, но так ее править нельзя, так как поиск ведется со следующего элемента... ошибка была строчкой выше.

как быть с теми случаями когда строки поделены только лишь @LF/@CR?

RegExp распознает начало/конец строки только на основании @LF, а вот @CR является "лишним балластом" и без него можно обойтись... хотя без @CR из-за "+" пустые строки будут игнорироваться ("*" ставить нельзя!) Как вариант - использовать StringAddCR() и StringStripCR().

З.Ы. На самом деле AutoIT поддерживает не все возможности регулярных выражений, поэтому приходится выкручиваться.

[Maza Faka]

amel27
В итоге сделал так:

Код:

#include <Array.au3>
#include <File.au3>

Dim $strArray, $newArray

_FileReadToArray("C:\test.txt", $strArray)
_ArrayDeleteClones($strArray, $newArray)
_ArrayDisplay($newArray, "Result")

Func _ArrayDeleteClones($strArray, ByRef $newArray)
    Dim $search, $newArray[1]=[0]
    For $i = 1 To $strArray[0]
        $search = _ArraySearch($strArray, $strArray[$i], $i+1)
        If $search = -1 Then
            $newArray[0] += 1
            ReDim $newArray[$newArray[0]+1]
            $newArray[$newArray[0]]=$strArray[$i]
        EndIf
    Next
EndFunc

сойдёт или нет?

[amel27]

Maza Faka

я тут подумал насчет твоего варианта - почему он работает хотя вроде не должен... ведь действительно, если использовать встроенную защиту _ArraySearch() код можно еще сократить

Код:

#include <array.au3>
#include <file.au3>

Dim $a, $f = 'c:\test.txt'
_FileReadToArray($f, $a)
_FileWriteFromArray($f,_ArrayDeleteClones($a),1)

Func _ArrayDeleteClones($strArray)
    Local $newArray[1]=[0]
    For $i = 1 To $strArray[0]
        If _ArraySearch($strArray, $strArray[$i], $i+1)<0 Then
            $newArray[0]+=1
            ReDim $newArray[$newArray[0]+1]
            $newArray[$newArray[0]]=$strArray[$i]
        EndIf
    Next
    Return $newArray
EndFunc

[Maza Faka]

amel27

почему он работает хотя вроде не должен