vb.net应用程序中的基本字符串操作

时间:2018-01-21 17:36:32

标签: vb.net

我想设计一个vb.net程序,它从字符串中找到最长的单词。在其他用户的帮助下,我设法做到了,我添加了其他字符串操作。总的来说,程序现在计算符号数,字数,间隔数,查找最长和最短的字以及平均字大小。我认为代码可以帮助那些像我这样的操作有同样问题的人,所以我在下面发布了它。 以下是该计划的图片:https://i.stack.imgur.com/KcPNa.png 这是最终代码的外观:

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

    Dim a As String = TextBox1.Text
    Dim a1 As Integer = Len(a)                 ' string size
    Dim a3 As String = a.Split(" ").Length - 1 ' interval count
    Dim a4 As String = a.Split(" ").OrderByDescending(Function(j) j.Length).FirstOrDefault  'longest word
    Dim a5 As String = a.Split(" ").OrderByDescending(Function(j) j.Length).LastOrDefault   'shortest word
    Dim a6 As String = a.Split(" ").Average(Function(j) j.Length)                           'average word count


    TextBox2.Text = a1
    TextBox4.Text = a3
    TextBox3.Text = a3 + 1      'word count is just 1 more than interval count
    TextBox5.Text = a4
    TextBox6.Text = a5
    TextBox7.Text = a6


End Sub

1 个答案:

答案 0 :(得分:0)

我无法在vb中提供解决方案,但也许我的c#实现会给你一个提示。

string source = "some string";
string longest = string.empty; 
foreach(string s in source.Split(' ')) {
    if (s.Length > longest.Length) {
        longest = s; 
    }
}
Console.WriteLine(longest); 

提示:下一次询问更具体的问题会有所帮助。