Display no of times words appear in sentence (string) using C# and VB.Net in ASP.Net

Hi dnnyobi,

Refer below sample.

HTML

<asp:GridView runat="server" ID="GridView1" AutoGenerateColumns="false">
    <Columns>
        <asp:BoundField DataField="Rank" HeaderText="Rank" />
        <asp:BoundField DataField="Word" HeaderText="Word" />
        <asp:BoundField DataField="Frequency" HeaderText="Frequency" />
    </Columns>
</asp:GridView>

Namespaces

C#

using System.Data;

VB.Net

Imports System.Data

Code

C#

protected void Page_Load(object sender, EventArgs e)
{
    if (!this.IsPostBack)
    {
        DataTable dt = new DataTable();
        dt.Columns.Add("Rank");
        dt.Columns.Add("Word");
        dt.Columns.Add("Frequency");
        string data = "The terms also apply to any Microsoft updates, supplements, Internet-based";
        data += "services, and support services for this software, unless other terms accompany";
        data += "those items. If so, those terms apply. BY USING THE SOFTWARE, YOU ACCEPT THESE";
        data += "TERMS. IF YOU DO NOT ACCEPT THEM, DO NOT USE THE SOFTWARE. If you comply with";
        data += "these license terms, you have the rights below. 1. INSTALLATION AND USE RIGHTS.";
        data += "General. You may install and use one copy of the software on your premises to";
        data += "design, develop and test your programs for use with the software.  Evaluation";
        data += "Only. The software is for evaluation purposes only. You may not distribute any";
        data += "program you develop with the software. Included Microsoft Programs. These";
        data += "license terms apply to all Microsoft programs included with the software.";
        data += "Third Party Programs. The software contains third party programs. The license";
        data += "terms with those programs apply to your use of them. 2. INTERNET-BASED SERVICES.";
        data += "Microsoft provides Internet-based services with the software. It may change or";
        data += "cancel them at any time. 3. TIME-SENSITIVE SOFTWARE.";
        var text = data.ToLower().Split(' ');
        Dictionary<string, int> countOfWordFrequency = new Dictionary<string, int>();
        for (int i = 0; i < text.Length; i++)
        {
            if (countOfWordFrequency.ContainsKey(text[i]))
            {
                int value = countOfWordFrequency[text[i]];
                countOfWordFrequency[text[i]] = value + 1;
            }
            else
            {
                if (!string.IsNullOrEmpty(text[i]))
                {
                    countOfWordFrequency.Add(text[i], 1);
                }
            }
        }
        int rank = 1;
        foreach (KeyValuePair<string, int> keyPair in countOfWordFrequency)
        {
            dt.Rows.Add(rank, keyPair.Key, keyPair.Value);
            rank = rank + 1;
        }
        GridView1.DataSource = dt.AsEnumerable().OrderBy(x => x.Field<string>("Word")).CopyToDataTable();
        GridView1.DataBind();
    }
}

VB.Net

Protected Sub Page_Load(ByVal sender As Object, ByVal e As EventArgs) Handles Me.Load
    If Not Me.IsPostBack Then
        Dim dt As DataTable = New DataTable()
        dt.Columns.Add("Rank")
        dt.Columns.Add("Word")
        dt.Columns.Add("Frequency")
        Dim data As String = "The terms also apply to any Microsoft updates, supplements, Internet-based"
        data += "services, and support services for this software, unless other terms accompany"
        data += "those items. If so, those terms apply. BY USING THE SOFTWARE, YOU ACCEPT THESE"
        data += "TERMS. IF YOU DO NOT ACCEPT THEM, DO NOT USE THE SOFTWARE. If you comply with"
        data += "these license terms, you have the rights below. 1. INSTALLATION AND USE RIGHTS."
        data += "General. You may install and use one copy of the software on your premises to"
        data += "design, develop and test your programs for use with the software.  Evaluation"
        data += "Only. The software is for evaluation purposes only. You may not distribute any"
        data += "program you develop with the software. Included Microsoft Programs. These"
        data += "license terms apply to all Microsoft programs included with the software."
        data += "Third Party Programs. The software contains third party programs. The license"
        data += "terms with those programs apply to your use of them. 2. INTERNET-BASED SERVICES."
        data += "Microsoft provides Internet-based services with the software. It may change or"
        data += "cancel them at any time. 3. TIME-SENSITIVE SOFTWARE."
        Dim text = data.ToLower().Split(" "c)
        Dim countOfWordFrequency As Dictionary(Of String, Integer) = New Dictionary(Of String, Integer)()
        For i As Integer = 0 To text.Length - 1
            If countOfWordFrequency.ContainsKey(text(i)) Then
                Dim value As Integer = countOfWordFrequency(text(i))
                countOfWordFrequency(text(i)) = value + 1
            Else
                If Not String.IsNullOrEmpty(text(i)) Then
                    countOfWordFrequency.Add(text(i), 1)
                End If
            End If
        Next
        Dim rank As Integer = 1
        For Each keyPair As KeyValuePair(Of String, Integer) In countOfWordFrequency
            dt.Rows.Add(rank, keyPair.Key, keyPair.Value)
            rank = rank + 1
        Next
        GridView1.DataSource = dt.AsEnumerable().OrderBy(Function(x) x.Field(Of String)("Word")).CopyToDataTable()
        GridView1.DataBind()
    End If
End Sub

Screenshot