[R] Trouver L'intrus en comparant plusieurs fichiers

[swif]

Bonjour,
Donc voilà ce que je cherche à faire:
Je souhaite comparer 9 fichiers texte similaire enfin presque puisque dans au moins l'un d'entre eux doit se trouver une donnée qu'il est le seul à contenir. Ensuite cette intrus je souhaite le relever et le mettre dans un autre fichier texte.

En gros c'est pour une resolver de sudoku j'en suis à avoir un fichier texte pour chaque case contenant tous les chiffres possible qu'elle peut aceuillir maintenant je dois isoler les cases qui sont les seul à pouvoir acceullir un chiffre (parmis plusieur autre possibilités bien sûr).

[Tlem]

Merci de respecter les règles de présentation d'un message dont voici le lien : http://www.autoitscript.fr/forum/viewto ... f=35&t=595.

Et pour commencer à répondre à votre question, il serait bien de nous donner la structure de vos fichiers.
Par exemple les 2 premiers fichiers et celui qui ne contient que ce que vous voulez.

[swif]

Pour la présentation le titre est trop long?

Sinon les fichiers textes sont très simple sur la première ligne se trouve les 1 la deuxième les 2 et ainsi de suite jusqu'à 9.

Ont peut imaginer 9 fichiers ainsi étant donné que suivant le sudoku que l'ont cherche à résoudre ils seront différents:

Case1Bloc1.txt
1
2

Case2Bloc1.txt
1
2

4
Case3Bloc1.txt


3
4
5
Case4Bloc1.txt
1

3

5
Case5Bloc1.txt
1


4
5
6

Bon je vais pas aller jusqu'au 9 fichiers le principe est clair donc là par exemple le fichier Case5Bloc1.txt est le seul à avoir un 6, donc je voudrais avoir un fichier texte où est notifier l'intrus ( 6 ) et de quel fichier il provient.

[Tlem]

En faisant super light (sans aucun contrôle de fichier) cela peut donner ceci :

Code : Tout sélectionner

Dim $Case1, $Case2, $Case3, $Case4, $Case5, $Case6, $Case7, $Case8, $Case9 
For $i = 1 to 9
        $CaseBloc = FileRead("Case" & $i & "Bloc1.txt")

            If StringInStr($CaseBloc, "1") Then $Case1 += 1
            If StringInStr($CaseBloc, "2") Then $Case2 += 1
            If StringInStr($CaseBloc, "3") Then $Case3 += 1
            If StringInStr($CaseBloc, "4") Then $Case4 += 1
            If StringInStr($CaseBloc, "5") Then $Case5 += 1
            If StringInStr($CaseBloc, "6") Then $Case6 += 1
            If StringInStr($CaseBloc, "7") Then $Case7 += 1
            If StringInStr($CaseBloc, "8") Then $Case8 += 1
            If StringInStr($CaseBloc, "9") Then $Case9 += 1
Next

For $i = 1 to 9
    If Eval("Case"& $i) = 1 Then MsgBox(64, "Info", "C'est le nombre " & $i & @TAB)
Next

[swif]

Merci Beaucoup !