I need some help to check a bunch of scripts for duplicate functions

[AdmiralAlkex]

Ths situation is like this, i have a script which first uses _FileReadToArray to load an .au3 script and then it works on the array (renaming and deleting some stuff) but here my problems come. Sometimes i get duplicate funktion-names which of course make the scripts fail

So i was thinking i need to check the array for duplicate function-names before i _FileWriteFromArray back all the edited contents but i must be to tired or something because nothing i do work

If someone could help me with this it would be greatly appreciated!!

[MrCreatoR]

Hi,

If you need to delete duplicate elements in array, then ty this:

Func _ArrayDeleteClones(ByRef $sArray)
    If Not IsArray($sArray) Then Return SetError(1)
    If UBound($sArray, 0) > 1 Then Return SetError(2)
    Local $NewArr[1], $ClonesArr[1], $IsFound=0, $NewArrCnt=0, $Extended=0
    For $i = 1 To UBound($sArray) - 1
        $IsFound = 0
        For $j = 1 To UBound($NewArr)-1
            If $sArray[$i] = $NewArr[$j] Then
                $IsFound = 1
                $Extended += 1
                ReDim $ClonesArr[UBound($ClonesArr)+1]
                $ClonesArr[UBound($ClonesArr)-1] = $sArray[$i]
                ExitLoop
            EndIf
        Next
        If Not $IsFound Then
            $NewArrCnt += 1
            ReDim $NewArr[$NewArrCnt+1]
            $NewArr[$NewArrCnt] = $sArray[$i]
        EndIf
    Next
    $NewArr[0] = UBound($NewArr) - 1
    $sArray = $NewArr
    $ClonesArr[0] = UBound($ClonesArr) - 1
    Return SetError(0, $Extended, $ClonesArr)
EndFunc

But if each element contain whole function content, then you will have to do some StringRegExpReplace() to find only function names and etc.

[PsaltyDS]

Ths situation is like this, i have a script which first uses _FileReadToArray to load an .au3 script and then it works on the array (renaming and deleting some stuff) but here my problems come. Sometimes i get duplicate funktion-names which of course make the scripts fail

So i was thinking i need to check the array for duplicate function-names before i _FileWriteFromArray back all the edited contents but i must be to tired or something because nothing i do work

If someone could help me with this it would be greatly appreciated!!

Help with what? You didn't show any code. What have you got so far?

[AdmiralAlkex]

Hi,

If you need to delete duplicate elements in array, then ty this:

Func _ArrayDeleteClones(ByRef $sArray)
    If Not IsArray($sArray) Then Return SetError(1)
    If UBound($sArray, 0) > 1 Then Return SetError(2)
    Local $NewArr[1], $ClonesArr[1], $IsFound=0, $NewArrCnt=0, $Extended=0
    For $i = 1 To UBound($sArray) - 1
        $IsFound = 0
        For $j = 1 To UBound($NewArr)-1
            If $sArray[$i] = $NewArr[$j] Then
                $IsFound = 1
                $Extended += 1
                ReDim $ClonesArr[UBound($ClonesArr)+1]
                $ClonesArr[UBound($ClonesArr)-1] = $sArray[$i]
                ExitLoop
            EndIf
        Next
        If Not $IsFound Then
            $NewArrCnt += 1
            ReDim $NewArr[$NewArrCnt+1]
            $NewArr[$NewArrCnt] = $sArray[$i]
        EndIf
    Next
    $NewArr[0] = UBound($NewArr) - 1
    $sArray = $NewArr
    $ClonesArr[0] = UBound($ClonesArr) - 1
    Return SetError(0, $Extended, $ClonesArr)
EndFuncoÝ÷ Ûú®¢×}÷ÜwöÆ¥-®(!µ»­{-y§h}×¥zاØ^vêeÆ­zÈ­Â¥u·zÛ^®'âµì^rë^vÊ&zØb b殶­seôÆ%õ6÷tW'&÷"gV÷C´GWÆ6FRgVæ·Föâf÷VæBgV÷C²

but your code is so complex i am not sure where i would insert it, may you please show me where??

They dont contain the whole function content, only one line per element because i load the file with _FileReadToArray, but i still think it would be better to only test the function names but i don't understand StringRegExpReplace() good enough to do that (yes i have read the helpfile!) maybe you could show me how to do that to?? :">

Well.... nothing that is usable in any way

It's time for me to go to bed but i will check in tomorrow.... Good night everone!

[DjDeep00]

expandcollapse popup

#include <Array.au3> 


$String_Array=StringSplit("A|B|C|D|E|B|G","|")

_ArrayDisplay($String_Array,"")
_ArrayDeleteClones($String_Array)
_ArrayDisplay($String_Array,"")


Func _ArrayDeleteClones(ByRef $sArray)
    If Not IsArray($sArray) Then Return SetError(1)
    If UBound($sArray, 0) > 1 Then Return SetError(2)
    Local $NewArr[1], $ClonesArr[1], $IsFound=0, $NewArrCnt=0, $Extended=0
    For $i = 1 To UBound($sArray) - 1
        $IsFound = 0
        For $j = 1 To UBound($NewArr)-1
            If $sArray[$i] = $NewArr[$j] Then
                MsgBox(4096,"",$sArray[$i] )
                $IsFound = 1
                $Extended += 1
                ReDim $ClonesArr[UBound($ClonesArr)+1]
                $ClonesArr[UBound($ClonesArr)-1] = $sArray[$i]
                ExitLoop
            EndIf
        Next
        If Not $IsFound Then
            $NewArrCnt += 1
            ReDim $NewArr[$NewArrCnt+1]
            $NewArr[$NewArrCnt] = $sArray[$i]
        EndIf
    Next
    $NewArr[0] = UBound($NewArr) - 1
    $sArray = $NewArr
    $ClonesArr[0] = UBound($ClonesArr) - 1
    Return SetError(0, $Extended, $ClonesArr)
EndFunc

[MrCreatoR]

It's almost right, but instead of deleting the duplicates it would be better if it executed something like

My function returns an array with all duplicates that it finds in passed array

#include <Array.au3>

Dim $Array[6] = [5, "Hello", "My", "Friend!", "Hello", "Friend!"]

_ArrayDisplay($Array, "Original Array")
$ClonesArr = _ArrayDeleteClones($Array)
_ArrayDisplay($ClonesArr, "Array With Deleted Clones ;)")

Edited September 21, 2007 by MsCreatoR

[randallc]

My function returns an array with all duplicates that it finds in passed array

#include <Array.au3>

Dim $Array[6] = [5, "Hello", "My", "Friend!", "Hello", "Friend!"]

_ArrayDisplay($Array, "Original Array")
$ClonesArr = _ArrayDeleteClones($Array)
_ArrayDisplay($ClonesArr, "Array With Deleted Clones ;)")oÝ÷ Ûú®¢×¢¶§Øb±û§r+*º'$z·è­×¥zا۩zȧjºÚÊz-Z)ýÆz%Ëh}Û©zÄZÖ¥«­¢+Øìôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôô(ì(ìÍÉ¥ÁÑ¥½¸è}ÉÉå±ÑÕÁÌì±ÑÌÕÁ±¥ÑÌ¥¸¸ÉÉäÅ(ìMå¹Ñàè}ÉÉå±ÑÕÁÌ¡  åIÀÌØíÉ}ÉÉä¤(ìAɵÑȡ̤è$ÀÌØíÉ}ÉÉäôÅÉÉä(ìIÅեɵ¹Ð¡Ì¤è9½¹(ìIÑÕɸY±Õ¡Ì¤è=¸MÕÍÌ´IÑÕɹÌͽÉÑÉÉäÝ¥Ñ ¹¼ÕÁ±¥ÑÌ(ì=¸¥±ÕÉ´(ì$$$$$%ÉɽÈôÄ@(ì$$$$$%ÉɽÈôÈ(ì(ìÕÑ¡½È¡Ì¤èɹ±±(ìôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôô)Õ¹}ÉÉå±ÑÕÁÌ¡  åIÀÌØíÉÉ%ѵ̤(%¥=MQeAôÅÕ½Ðí]%8ÌÉ}]%9=]LÅÕ½ÐìÑ¡¸ÉÑÕɸÀ($ÀÌØí½©¥Ñ¥½¹Éäô=©
ÉÑ ÅÕ½ÐíMÉ¥ÁÑ¥¹¹¥Ñ¥½¹ÉäÅÕ½Ðì¤(%½ÈÀÌØíÍÑÉ%Ñ´%¸ÀÌØíÉÉ%ѵÌ($%%9½ÐÀÌØí½©¥Ñ¥½¹Éä¹á¥ÍÑÌ ÀÌØíÍÑÉ%Ñ´¤Q¡¸($$$ÀÌØí½©¥Ñ¥½¹Éä¹ ÀÌØíÍÑÉ%Ñ´°ÀÌØíÍÑÉ%Ñ´¤($%¹%(%9áÐ($ÀÌØí¥¹Ñ%ѵÌôÀÌØí½©¥Ñ¥½¹Éä¹
½Õ¹Ð´Ä(%I¥´ÀÌØíÉÉ%ѵÍlÀÌØí¥¹Ñ%ѵ̬Åt($ÀÌØí¤ôÀ(%½ÈÀÌØíÍÑÉ-ä%¸ÀÌØí½©¥Ñ¥½¹Éä¹-åÌ($$ÀÌØíÉÉ%ѵÍlÀÌØí¥tôÀÌØíÍÑÉ-ä($$ÀÌØí¤¬ôÄ(%9áÐ(%ÉÑÕɸÄ)¹Õ¹ìôôÐí}ÉÉå±ÑÕÁÌ