Procedura: Suddividere un file in molti file usando i gruppi (LINQ) (Visual Basic)

Questo esempio illustra un modo per unire il contenuto di due file e creare quindi un set di nuovi file in cui i dati sono organizzati in modo diverso.

Per creare i file di dati

1. Copiare i nomi seguenti in un file di testo denominato names1.txt e salvarlo nella cartella del progetto:

   Bankov, Peter
   Holm, Michael
   Garcia, Hugo
   Potra, Cristina
   Noriega, Fabricio
   Aw, Kam Foo
   Beebe, Ann
   Toyoshima, Tim
   Guy, Wey Yuan
   Garcia, Debra
   

2. Copiare i nomi seguenti in un file di testo denominato names2.txt e salvarlo nella cartella del progetto. Si noti che i due file hanno alcuni nomi in comune.

   Liu, Jinghao
   Bankov, Peter
   Holm, Michael
   Garcia, Hugo
   Beebe, Ann
   Gilchrist, Beth
   Myrcha, Jacek
   Giakoumakis, Leo
   McLin, Nkenge
   El Yassir, Mehdi
   

Esempio

Class SplitWithGroups

    Shared Sub Main()

        Dim fileA As String() = System.IO.File.ReadAllLines("../../../names1.txt")
        Dim fileB As String() = System.IO.File.ReadAllLines("../../../names2.txt")

        ' Concatenate and remove duplicate names based on
        Dim mergeQuery As IEnumerable(Of String) = fileA.Union(fileB)

        ' Group the names by the first letter in the last name
        Dim groupQuery = From name In mergeQuery
                     Let n = name.Split(New Char() {","})
                     Order By n(0)
                     Group By groupKey = n(0)(0)
                     Into groupName = Group

        ' Create a new file for each group that was created
        ' Note that nested foreach loops are required to access
        ' individual items with each group.
        For Each gGroup In groupQuery
            Dim fileName As String = "..'..'..'testFile_" & gGroup.groupKey & ".txt"
            Dim sw As New System.IO.StreamWriter(fileName)
            Console.WriteLine(gGroup.groupKey)
            For Each item In gGroup.groupName
                Console.WriteLine("   " & item.name)
                sw.WriteLine(item.name)
            Next
            sw.Close()
        Next

        ' Keep console window open in debug mode.
        Console.WriteLine("Files have been written. Press any key to exit.")
        Console.ReadKey()

    End Sub
End Class
' Console Output:
' A
'    Aw, Kam Foo
' B
'    Bankov, Peter
'    Beebe, Ann
' E
'    El Yassir, Mehdi
' G
'    Garcia, Hugo
'    Garcia, Debra
'    Giakoumakis, Leo
'    Gilchrist, Beth
'    Guy, Wey Yuan
' H
'    Holm, Michael
' L
'    Liu, Jinghao
' M
'    McLin, Nkenge
'    Myrcha, Jacek
' N
'    Noriega, Fabricio
' P
'    Potra, Cristina
' T
'    Toyoshima, Tim

Il programma scrive un file separato per ogni gruppo nella stessa cartella dei file di dati.

Compilare il codice

Creare un progetto di applicazione console di Visual Basic con un'istruzione Imports per lo spazio dei nomi System.Linq.

Vedi anche

• LINQ and Strings (Visual Basic) (LINQ e le stringhe (Visual Basic))
• LINQ and File Directories (Visual Basic) (LINQ e directory file (Visual Basic))