Avatar
3012
Člen
Avatar
3012:5. července 16:11

Dobý ďeň, pracujem na progeame ktorý porovnáva niekolko listov, tento kód funguje:

Dim firstNotSecond = list1.Except(list2).ToList()
        Dim secondNotFirst = list2.Except(list1).ToList()

        If Not firstNotSecond.Any() And Not secondNotFirst.Any() Then
            Console.WriteLine("zhodujú sa")
        Else
            Console.WriteLine("nezhodujú sa")
        End If

Ak ho upravým na tento kód funguje len ak porovnávam jednu dvojicu zoznamov, ak porovnávam zoznamov viac vypýše že sú odlišné aj tie ktoré boli v prípade, že som porovnával len jednu dvojucu zhodné.

Using sw As New StreamWriter("rozdielne.txt")

            For Each polozka As String In listyZoznam
                Dim firstNotSecond = list1.Except(list2).ToList()
                Dim secondNotFirst = list2.Except(list2).ToList()



                If Not firstNotSecond.Any() And Not secondNotFirst.Any() Then
                    Console.WriteLine("zhoduju sa")


                Else
                    Console.WriteLine("nezhodujú sa")
                    sw.WriteLine("nezhodujú sa")

                End If



            Next

                sw.Flush()

        End Using

Mohol by my niekto vysvetliť kde robým chybu, ďakujem.

 
Odpovědět 5. července 16:11
Avatar
3012
Člen
Avatar
3012:5. července 16:14

omil táto časť vyzerá takto to je preklep v kode to mám takto

Dim firstNotSecond = list1.Except(list2).ToList()
               Dim secondNotFirst = list2.Except(list1).ToList()
 
Nahoru Odpovědět 5. července 16:14
Děláme co je v našich silách, aby byly zdejší diskuze co nejkvalitnější. Proto do nich také mohou přispívat pouze registrovaní členové. Pro zapojení do diskuze se přihlas. Pokud ještě nemáš účet, zaregistruj se, je to zdarma.

Zobrazeno 2 zpráv z 2.