[..] Rechercher fonctions doublées

[Alusion76]

Bonjour à tous !

Alors voilà, j'ai un petit problème sur un de mes scripts. Sur ce script j'en ai combiné 2 différent pour en faire un seul et unique, le problème c'est que plusieurs fonctions sont identique. (sur un script a plus de 20 000 lignes je vous laisse imaginé le nombre de doublons).

J'aimerai donc savoir si un outils voir un autre script me permettrai de voir toutes les fonctions doublés et c'elle qui sont légèrement différente, pour permettre de choisir laquelle je souhaite gardé.

J'ai essayé manuellement avec ALT+L et l'outil de recherche, mais c'est extrêmement long et a force de répété la même action je finis par faire des erreurs.

Je vous remercie d'avance pour avoir pris le temps de lire et également de prendre du temps pour régler mon problème.

[orax]

Pour voir si une fonction est déclarée plus d'une fois, CTRL+F5 l'indique. Puis F4 (MAJ+F4 pour l'erreur précédente) ou un clic sur l'erreur (dans la console de SciTE) pour aller sur la ligne correspondante dans le code. Mais ça risque d'être long avec cette méthode.

[Patrick22]

Bonjour,
Gros problème que tu as

Bon perso j'essaierais avec NotePad++ et son menu Compare.
Avant de fusionner les 2 scripts, si tu les as toujours , tu les compares.
Notepad++ les affiche côte à côte. Les lignes différentes, déplacées et disparues sont marquées et les 2 fichiers avancent ensemble quand tu vas sur une différence.

Ça restera quand même duraille et source d'erreurs.

[Tlem]

Dans SciTe4AutoIt vous avez ce qu'il faut. Regardez dans un des menu après l'add-On Jump ou Function Jump (je ne suis pas sur mon PC donc pas plus d'infos)

Envoyé de mon appareil mobile avec Tapatalk.

[mikell]

Sinon ben tu peux toujours te bricoler ton petit moteur de recherche pour sortir les noms des fonctions avec leur numéro de ligne, et après au boulot

► Afficher le texte

Code : Tout sélectionner

#Include <Array.au3>

$word = "Func"  
$file = @scriptdir & "\monscript.au3"

$result = _Search($file, $word)
 _ArrayDisplay($result)

;================================================
Func _Search($au3, $word)
  $file = FileRead($au3)
  $lines = StringRegExp($file, '(\N*)\R?', 3) 
  Local $array[UBound($lines)][2], $n
  For $j = 0 to UBound($lines)-1  
     If StringRegExp($lines[$j], '\b' & $word & '\b') Then
            $array[$n][0] = $j+1
            $array[$n][1] = StringStripWS($lines[$j], 3)
            $n += 1
     EndIf
  Next
  Redim $array[$n][2]
  _ArraySort($array, 0, 0, 0, 1)
  Return $array
EndFunc
 

[Alusion76]

Merci de toute vos réponses ! Je vais essayé ces différents systèmes !
Je vous tiendrez au courant de ce que j'ai utilisé, ce qui corréspondait a mes attentes .

EDIT1: Je pense que je vais utilisé le script de mikell, ça me permet de voir vraiment toutes les fonctions dans l'ordre alphabétique, donc les doublons sont les un en dessous des autres.

Tlem merci pour le fonction jump, je ne connaissais pas, mais le soucis c'est que par moment pour les fonctions qui portent le même noms, il me sort les 2 mais si je veux voir les lignes où ils sont situé, ça ne marche pas a tout les coups; je m'explique :
_ Si j'ai 2 fonctions qui se nommes "Cacahuètes" il va me dire qu'il en existe 2, mais lorsque je clique sur chacune d'entre elle pour voir a qu'elle ligne est la première fonction et la deuxième, il va bugger et resté sur la ligne par expl 8560, et ce quelque soit c'elle que je demande.

orax, j'avais essayé aussi cette solution, mais le problème avec cette astuce c'est que c'est assez long, avec beaucoup de retour en arrière manuelle, mais merci quand même de ta réponse, j'apprécie énormément

Patrick22, je n'ai pas encore essayé avec le notepad ++ mais si je n'y arrive pas avec le script de mikell, je pense que j'irais testé !

Merci a tous de vos réponses

EDIT2: Je vais essayé de rajouter un "WinSetOnTop" dans ce script, pour géré plus facilement, et si j'y arrive, je vais essayé d'ajouter un système de refresh

[mikell]

► Afficher le texte

Code : Tout sélectionner

#Include <Array.au3>

$word = "Func"  
$file = @scriptdir & "\monscript.au3"

$result = _Search($file, $word)
 _ArrayDisplay($result, "fonctions")

$string = _ArrayToString($result, "|", 0, 0, "|") & "|"
For $i = UBound($result)-1 to 0 step -1
   $string = StringRegExpReplace($string, "(?<=\|)" & $result[$i][1] & "(?=\|)", "")
   If @extended < 2 Then 
        _ArrayDelete($result, $i)
   Else
         $i -= @extended - 1
   EndIf
Next
_ArrayDisplay($result, "doublons")

;================================================
Func _Search($au3, $word)
  $file = FileRead($au3)
  $lines = StringRegExp($file, '(\N*)\R?', 3)
  Local $array[UBound($lines)][2], $n
  For $j = 0 to UBound($lines)-1  
     If StringRegExp($lines[$j], '\b' & $word & '\b') Then
            $array[$n][0] = $j+1
            $array[$n][1] = StringRegExpReplace($lines[$j], '.*' & $word & '\s+(\w+).*', "$1")  ;StringStripWS($lines[$j], 3)
            $n += 1
     EndIf
  Next
  Redim $array[$n][2]
  _ArraySort($array, 0, 0, 0, 1)
  Return $array
EndFunc
 

[Alusion76]

► Afficher le texte

Code : Tout sélectionner

 _ArrayDisplay($result, "fonctions")

$string = _ArrayToString($result, "|", 0, 0, "|") & "|"
For $i = UBound($result)-1 to 0 step -1
   $string = StringRegExpReplace($string, "(?<=\|)" & $result[$i][1] & "(?=\|)", "")
   If @extended < 2 Then
        _ArrayDelete($result, $i)
   Else
         $i -= @extended - 1
   EndIf
Next
_ArrayDisplay($result, "doublons")

Je ne sais pas trop comment fonctionne cette partie du script ^^

Edit: Je pense avoir compris, il me donne le nombre exact de fonction doublé
Si c'est bien ça j'ai donc 562 fonctions a supprimé / modifié, la nuit va être longue

[mikell]

En principe ce code permet de n'afficher que les fonctions en doublon (ou plus) avec leur n° de ligne
Reste plus qu'à te faire un script pour éliminer ces doublons, ça sera peut-être plus rapide que de se taper les 562 fonctions à la main

Comment diable tu t'es démerbrouillé pour avoir autant de doublons ?!?

[Alusion76]

En faite j'ai ajouter un script dans un autre, le soucis c'est que le premier script est beaucoup plus complet que le deuxieme, mais il a certaine fonction qui ne marche pas, alors que sur le deuxieme, les fonctions qui ne marchais pas sur le premier fonctionne.

Mais avec toutes ces fonctions, impossible de trouver ceux qui ne marche pas, du coup je supprime toute les fonctions doublés du premier script pour ne garder que ceux du deuxieme ^^

Et ainsi avoir un script très complet et qui fonctionne parfaitement

[TommyDDR]

Il serait peut être plus judicieux de faire un comparatifs des deux scripts et de ne récupérer que les fonctions qui ne se trouvent pas dans le 2eme script (en programmant tout ça) puis d'ajouter ces fonctions au 2eme script.

À l'avenir pour éviter ce genre de problème, essayez de coder dans plusieurs fichiers, cad : tout ce qui peut être utilisé dans un autre programme -> fichier à part. Cela vous permet de ne remplacer que certains fichiers lorsqu'ils ne sont plus à jour.