Opération entre tableaux

**GuillaumeNcy** · 08/11/2013, 10h20

Bonjour à tous,
Je suis confronté au problème suivant :
J'ai un Tableau_1 à une colonne d'environ 150000 lignes, ou chaque lignes contient un mot.
J'ai un autre Tableau_2 à une colonne également, contenant environ 150 lignes, ou chaque lignes contient un mot. Ces mots sont très courant et chacun est présent plusieurs fois dans le Tableau_1.

Je souhaiterai soustraire tous les mots contenus dans le Tableau_2 au Tableau_1 de manière à avoir un nouveau Tableau_3.

J'espère être clair dans mon explication.

Auriez vous une idée quand à la manière de procéder?
Existe-t-il un outil ou une fonction prévu pour ce genre ce chose ou dois-je passer par une boucle?

Merci d'avance!

**_Ez3kiel** · 08/11/2013, 11h34

Si j'ai bien compris T3 = T1 - T2

Si tu as au minimum le framework 4 tu peux faire ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
       Dim T1 As New List(Of String) From {"x", "y", "z"}
        Dim T2 As New List(Of String) From {"y"}
        Dim T3 As New List(Of String)
 
        T3 = T1.Except(T2).ToList
 
        For Each item As String In T3
            Console.WriteLine(item) 'retourne x et z
        Next

**GuillaumeNcy** · 08/11/2013, 13h40

Merci pour ta réponse,
Oui c'est ça je veux faire T3= T1-T2

Et je cherchais bien un outil du genre Except

Par contre j'utilise des List (of Class) ou ma class est un objet défini comme un string

comme ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
Public Class Stopwords
    Public stopword As String
End Class

Et donc mes 2 list(of stopwords) sont celles qui seront utilisées pour créer T3.

Je ne sais pas si Except est compatible avec ces types de list (j'ai le message d'erreur suivant que je lance le programme : "Le membre public 'Except' du type 'List(Of Stopwords)' est introuvable"

Une idée de comment y remedier?
Merci d'avance

**_Ez3kiel** · 08/11/2013, 15h16

A quoi sert ta classe concrètement ? Où est l'utilité d'avoir une liste d'objets d'une classe qui ne contient qu'une string, plutôt qu'une liste de string ?

Tu peux aussi songer à créer ta propre classe de list qui implémenterait IEnumerable et ICollection ...

Je ne sais pas comment tu as fait ton code, mais la liste of class restant IEnumerable, ça marche chez moi.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
       Dim T1 As New List(Of stopwords)
        Dim T2 As New List(Of stopwords)
        Dim T3 As New List(Of stopwords)
 
        Dim tata As New stopwords
        Dim toto As New stopwords
        Dim titi As New stopwords
        Dim tutu As New stopwords
 
        tata.stopword = "X"
        toto.stopword = "Y"
        titi.stopword = "V"
        tutu.stopword = "V"
 
        T1.Add(tata)
        T1.Add(toto)
        T1.Add(titi)
        T2.Add(tata)
 
        T3 = T1.Except(T2).ToList
 
        For Each item As stopwords In T3
            MsgBox(item.stopword.ToString) 'retourne X et Y
        Next

En revanche, et sans que je sache pourquoi, ce code-ci me renvoit X,Y et Z.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
        Dim T1 As New List(Of stopwords)
        Dim T2 As New List(Of stopwords)
        Dim T3 As New List(Of stopwords)
 
        T1.AddRange({New stopwords With {.stopword = "X"}, New stopwords With {.stopword = "Y"}, New stopwords With {.stopword = "Z"}})
        T2.Add(New stopwords With {.stopword = "Z"})
 
        T3 = T1.Except(T2).ToList
 
        For Each item As stopwords In T3
            MsgBox(item.stopword.ToString) 'retourne X Y et Z
        Next

Mais dans tous les cas, je n'ai pas de message d'erreur ...

**GuillaumeNcy** · 08/11/2013, 15h52

Merci pour cette belle réponse

C'est très bizarre, j'ai bel et bien mes 2 lists, qui sont non nulles (je vérifie avec une msgbox(T1.count) et msgbox(T2.count)

Mais en appliquant la formule

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
T3 = T1.Except(T2).ToList
 
        For Each item As stopwords In T3
            MsgBox(item.stopword.ToString) 
        Next

Rien ne se passe, je n'ai pas de msgbox a chaque tour de boucle, et quand je teste le contenu de la liste T3 avec une msgbox(T3.count) toute à la fin de la procédure il me renvoit 0...
Grrrr

**_Ez3kiel** · 08/11/2013, 15h57

Peut-on voir le code complet ?

**GuillaumeNcy** · 08/11/2013, 16h08

Je suis débutant hein

on ne rigole pas!
voici :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
Public Class Form1
Public Tabmots As New List(Of Stopwords)
 
Dim T As Integer = Tabmotsnontries.Count
 
        Dim Tabmots As New List(Of Stopwords)
        For i = 0 To T - 1
            Tabmots.Add(New Stopwords)
 
            Tabmots(Tabmots.Count - 1).stopword = Tabmotstries(i)
        Next
        MsgBox(Tabmots.Count)
 
 
    End Sub
 
 
End class
 
Public Class form2
 
    Dim listestopwords As New List(Of Stopwords)
    Dim tabmots2 = Form1.tabmots
 
 
Sub createstopwordslist(ByRef ListeStopwords As List(Of Stopwords))
 
        Dim mot As String
        Dim sr As New StreamReader("stopwords.txt")
        Do While sr.Peek() > -1
            mot = sr.ReadLine
 
            ListeStopwords.Add(New Stopwords)
            ListeStopwords(ListeStopwords.Count - 1).stopword = mot
 
        Loop
        MsgBox(ListeStopwords.Count)
    End Sub
 
Private Sub Form2_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        stopwordslist.Items.AddRange(System.IO.File.ReadAllLines("stopwords.txt"))
        createstopwordslist(listestopwords)
    End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim Listcleared As New List(Of Stopwords)
 
 
 
        Listcleared = tabmots2.Except(listestopwords).ToList
 
        For Each item As Stopwords In Listcleared
            MsgBox(item.stopword.ToString)
        Next
 
 
    End Sub
End Class

**_Ez3kiel** · 08/11/2013, 16h56

On a tous été débutants.

Dans ton Form1 tu déclares une variable haute "Public Tabmots", puis dans la procédure en dessous, tu redéclares Tabmots pour la remplir, donc lorsque tu fais Form1.Tabmots, tu pointes la variable haute, tu récupères une liste qui n'a jamais été remplie, et donc dans ton Except, tu n'as rien.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Public Class Form1

    Public Tabmots As New List(Of stopwords)

    Public Sub tata()
        Dim T As Integer = Tabmotsnontries.Count

        Dim Tabmots As New List(Of stopwords)
        For i = 0 To T - 1
            Tabmots.Add(New stopwords)
            Tabmots(Tabmots.Count - 1).stopword = Tabmotstries(i)
        Next
        MsgBox(Tabmots.Count)
    End Sub
End Class

Tu peux vérifier que j'ai bon en testant la taille de Tabmots avant .Except()

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim Listcleared As New List(Of Stopwords)
 
        MsgBox(tabmots2.Count)
 
        Listcleared = tabmots2.Except(listestopwords).ToList
 
        For Each item As Stopwords In Listcleared
            MsgBox(item.stopword.ToString)
        Next
 
 
    End Sub

**GuillaumeNcy** · 08/11/2013, 17h12

En effet elle était bel et bien vide, en faite je testais son contenu trop tôt, car comme tu dis la liste prise pour la procédure avec le except génére une liste vide.

Maintenant j'ai testé les contenus des listes, les deux sont pleines

Mais lors de l'éxecution j'ai toujours l'erreur dont je t'ai parlé :L'exception MissingMemberException n'a pas été gérée : Le membre public 'Except' du type 'List(Of Stopwords)' est introuvable.

Pourtant je suis sur le framework 4.5, et avant l'exécution je n'ai aucun mise en garde contre ce problème.

**_Ez3kiel** · 08/11/2013, 17h19

Essaye de remplacer

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Dim tabmots2 = Form1.tabmots

par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Dim tabmots2 as List(of stopwords) = Form1.tabmots

A part ça je vois pas ...

**GuillaumeNcy** · 08/11/2013, 17h29

L'erreur à disparu

félicitation
Par contre, je ne suis pas sur à 100% de comprendre ce que fait cette ligne
Listcleared = tabmots2.Except(listestopwords).ToList

imaginons que j'ai notre T1 contenant les mots (as, as, also, and, above, again, and, as)

et que mon T2 contienne : (and, as, a, also)

en faisant T1-T2 je vais supprimer que un seul des "as" contenu dans le T1, ou tout les "as"?

**MABROUKI** · 09/11/2013, 00h03

bonjour

Je souhaiterai soustraire tous les mots contenus dans le Tableau_2 au Tableau_1 de manière à avoir un nouveau Tableau_3.

Oui oui ...mais le resultat se comporte comme s'il y avait le fameux predicat "Distinct" imprevu.....!!!
Observe egalement ces 2 requetes Linq,ce qui donne des resultats differents:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
 
Public Class Form1
 
'Linq  avec le predicate Except......
'j'ai double sciemment le string "above"  
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim words1 As List(Of String) = New List(Of String) From {"as", "as", "also", "and", "above", "again", "for each", "for each", "and", "as"}
        Dim words2 As List(Of String) = New List(Of String) From {"and", "as", "a", "also"}
 
 
        Dim T3 As List(Of String) = New List(Of String)
        T3 = words1.Except(words2, StringComparer.OrdinalIgnoreCase).ToList
        ListBox1.DataSource = T3
    End Sub
 
  'Linq  avec le predicate RemoveAll combine à ForEach raccourci..
    'Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
 
    '    Dim words1 As List(Of String) = New List(Of String) From {"as", "as", "also", "and", "above", "again", "for each", "for each", "and", "as"}
    '    Dim words2 As List(Of String) = New List(Of String) From {"and", "as", "a", "also"}
 
    '    Dim T3 As List(Of String) = New List(Of String)
    '    'Comparing the two lists and gettings common elements.
    '    T3 = words1.Intersect(words2, StringComparer.OrdinalIgnoreCase).ToList
    '    ListBox2.DataSource = T3
    'End Sub
 
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Dim words1 As List(Of String) = New List(Of String) From {"as", "as", "also", "and", "above", "again", "for each", "for each", "and", "as"}
        Dim words2 As List(Of String) = New List(Of String) From {"and", "as", "a", "also"}
 
        words2.ForEach(Function(p) words1.RemoveAll(Function(x) x = p))
        ListBox2.DataSource = words1
    End Sub
End Class

bon code...

**GuillaumeNcy** · 09/11/2013, 10h13

Merci pour cette belle réponse, je n'ai plus visual studio sous la main ce week end mais je testerai ces fonctions dès que possible. J'ai hâte de voir le résultat de la fonction

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

T3 = words1.Intersect(words2, StringComparer.OrdinalIgnoreCase).ToList

Je devrais bien trouver mon bonheur parmis tout ça

Merci encore, je vous tiens au courant!

**GuillaumeNcy** · 12/11/2013, 11h08

J'ai testé chacune des propositions, j'ai constaté que celle qui fait exactement ce que je souhaite est celle-ci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
words2.ForEach(Function(p) words1.RemoveAll(Function(x) x = p))
        ListBox2.DataSource = words1

Celle ci supprime bien les termes de la liste words2 dans words1 mais supprime également les doublons présent au sein de la liste words1.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Dim T3 As List(Of String) = New List(Of String)
        T3 = words1.Except(words2, StringComparer.OrdinalIgnoreCase).ToList
        ListBox1.DataSource = T3
    End Sub

Tandis que celle ci, comme son nom l'indique, me donne les mots communs au deux listes :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
T3 = words1.Intersect(words2, StringComparer.OrdinalIgnoreCase).ToList
     ListBox2.DataSource = T3

Merci à vous pour cette considération!
Résolu

Opération entre tableaux [Débutant]

VB.NET

Discussions similaires

Partager

Partager