Como consultar frases que contêm um conjunto especificado de palavras (LINQ) (Visual Basic)
Este exemplo mostra como localizar frases em um arquivo de texto que contêm correspondências para cada um de um conjunto especificado de palavras. Embora a matriz de termos de pesquisa seja codificada neste exemplo, ela também pode ser preenchida dinamicamente em tempo de execução. Neste exemplo, a consulta retorna as frases que contêm as palavras "Historicamente", "dados" e "integrado".
Exemplo
Class FindSentences
Shared Sub Main()
Dim text As String = "Historically, the world of data and the world of objects " &
"have not been well integrated. Programmers work in C# or Visual Basic " &
"and also in SQL or XQuery. On the one side are concepts such as classes, " &
"objects, fields, inheritance, and .NET Framework APIs. On the other side " &
"are tables, columns, rows, nodes, and separate languages for dealing with " &
"them. Data types often require translation between the two worlds; there are " &
"different standard functions. Because the object world has no notion of query, a " &
"query can only be represented as a string without compile-time type checking or " &
"IntelliSense support in the IDE. Transferring data from SQL tables or XML trees to " &
"objects in memory is often tedious and error-prone."
' Split the text block into an array of sentences.
Dim sentences As String() = text.Split(New Char() {".", "?", "!"})
' Define the search terms. This list could also be dynamically populated at run time
Dim wordsToMatch As String() = {"Historically", "data", "integrated"}
' Find sentences that contain all the terms in the wordsToMatch array
' Note that the number of terms to match is not specified at compile time
Dim sentenceQuery = From sentence In sentences
Let w = sentence.Split(New Char() {" ", ",", ".", ";", ":"},
StringSplitOptions.RemoveEmptyEntries)
Where w.Distinct().Intersect(wordsToMatch).Count = wordsToMatch.Count()
Select sentence
' Execute the query
For Each str As String In sentenceQuery
Console.WriteLine(str)
Next
' Keep console window open in debug mode.
Console.WriteLine("Press any key to exit.")
Console.ReadKey()
End Sub
End Class
' Output:
' Historically, the world of data and the world of objects have not been well integrated
A consulta funciona primeiro dividindo o texto em frases e, em seguida, dividindo as frases em uma matriz de cadeias de caracteres que contêm cada palavra. Para cada uma dessas matrizes, o Distinct método remove todas as palavras duplicadas e, em seguida, a consulta executa uma Intersect operação na matriz de palavras e na wordsToMatch matriz. Se a contagem da interseção for a mesma que a contagem da wordsToMatch matriz, todas as palavras foram encontradas nas palavras e a frase original será retornada.
Na chamada para Split, os sinais de pontuação são usados como separadores para removê-los da cadeia de caracteres. Se você não fez isso, por exemplo, você poderia ter uma cadeia de caracteres "Historicamente", que não corresponderia wordsToMatch a "Historicamente" na matriz. Poderá ter de utilizar separadores adicionais, dependendo dos tipos de pontuação encontrados no texto de partida.
Compilar o código
Crie um projeto de aplicativo de console do Visual Basic, com uma Imports instrução para o namespace System.Linq.
