none
Contar palavras

    Question

  • Boa noite.

     

    Alguém tem alguma idéia de como verificar a quantidade de vezes que uma palavra repete em um texto?

     

    Este texto está no banco de dados e pretendo passar uma ou mais palavras e preciso saber quantas vezes esta(s) palavra(s) repetem.

     

    Luis

    [ http://www.luis.blog.br ]

     

    Friday, May 02, 2008 2:36 AM

Answers

  • Espero ter ajudado, ficou bem legal esse exemplo:


    Code Snippet

    Imports System.Text.RegularExpressions


     Private Function Contar() As Integer
            Dim strfrase As String
            Dim intTotalPalavra As Integer
            Dim objRegex As Regex = New Regex("palavra")

            strfrase = "Estou procurando quantas vezes uma palavra se repete no meio de um monte de palavras, palavra, palavra, palavra"
            Dim objMach As MatchCollection = objRegex.Matches(strfrase)
            If (objMach.Count > 0) Then
                intTotalPalavra = objMach.Count
            Else
                intTotalPalavra = 0
            End If

            Return intTotalPalavra

        End Function


    []s
    • Marked as answer by LuisRibeiro Thursday, February 19, 2009 5:07 PM
    Friday, May 02, 2008 2:23 PM

All replies

  • Ola,

    Eis aqui um exemplo:

    Code Snippet
    string frase = "estou aqui tentando aqui contar palavras aqui";
    string[] words = frase.Split(new char[] { ' ' });
    var query = from w in words where w == "aqui" select w;
    Console.WriteLine(query.Count());

     

     


    Talvez também encontre algum Regular Expression que retorna isso.

    Friday, May 02, 2008 11:02 AM
  • Olá Israel.

     

    Parece que a lógica é interessante. Tentei reproduzir seu exemplo em VB, mas não consegui. Como vc é um especialista em VB, seria possível me mandar o exemplo em VB?

     

    Luis

     

    Friday, May 02, 2008 11:34 AM
  • Ola Luis,

    Mas que versão do .NET está utilizando?

    Friday, May 02, 2008 1:46 PM
  • Espero ter ajudado, ficou bem legal esse exemplo:


    Code Snippet

    Imports System.Text.RegularExpressions


     Private Function Contar() As Integer
            Dim strfrase As String
            Dim intTotalPalavra As Integer
            Dim objRegex As Regex = New Regex("palavra")

            strfrase = "Estou procurando quantas vezes uma palavra se repete no meio de um monte de palavras, palavra, palavra, palavra"
            Dim objMach As MatchCollection = objRegex.Matches(strfrase)
            If (objMach.Count > 0) Then
                intTotalPalavra = objMach.Count
            Else
                intTotalPalavra = 0
            End If

            Return intTotalPalavra

        End Function


    []s
    • Marked as answer by LuisRibeiro Thursday, February 19, 2009 5:07 PM
    Friday, May 02, 2008 2:23 PM
  • Israel, estou usando a versão 2.0

     

    Friday, May 02, 2008 2:59 PM


  • Bom dia Luis, o post acima resolve seu problema.


    Friday, May 02, 2008 3:08 PM
  • Ola Luis,

    Então descarte a minha dica.

    Friday, May 02, 2008 3:14 PM
  • Boa tarde Luis,

    Tudo bem,

    Funcionou o exemplo ??

    Obrigado
    Wednesday, May 07, 2008 7:56 PM
  • Olá Henrique e Israel.

    Desculpe, a demora.

    Deu certo sim. Foi muito útil, obrigado.

    Luis
    Thursday, February 19, 2009 5:08 PM