3

简单的初学者练习:

有一个输入框,您可以在其中输入以空格分隔的姓名,然后从名字和姓氏中获取第一个字母并将其输出到标签

即(乔鲍勃)= JB


我知道这可以用数组来完成,但练习更多的是使用字符串函数,如 substring、IndexOf、Remove、Replace 等......

4

4 回答 4

1

Split如果您不指定另一个分隔符,则默认情况下,有一个方便的字符串方法在空格处拆分字符串。

Dim words As String() = TextBox1.Text.Split()
Dim initials As String = ""
For Each word As String In words
    initials &= word(0)
Next

Char注意:字符串可以像数组一样被索引。word(0)是 的第一个字符word

initials &= word(0)

是简写

initials = initials & word(0)
于 2012-11-01T13:12:12.897 回答
0

你可以试试这个:

 dim str as String=TextBox1.Text
 Label1.Text=str.Remove(1, str.LastIndexOf(" ")).Remove(2)

如果你愿意,你可以在一行中完成:

 Label1.Text = TextBox1.Text.Remove(1, TextBox1.Text.LastIndexOf(" ")).Remove(2)
于 2012-11-01T13:17:43.820 回答
0

也可以试试这样的!

Dim str As String = textBox1.Text
Dim initials As String = New String(str.Split(" "c).Select(Function(f) f(0)).ToArray)
于 2012-11-01T14:00:33.183 回答
-1

您可以尝试使用SubStringSplit方法。

 Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
    Dim myInitials As String
    Dim myName As String = "Joe Bob"
    myInitials = myName.Substring(0, 1) & myName.Split(" ")(1).Substring(0, 1)
End Sub
于 2012-11-01T13:11:49.763 回答