3

簡単な初心者演習:

スペースで区切られた名前を入力する入力ボックスがあり、姓と名の最初の文字を取得してラベルに出力します

Ie (ジョー・ボブ) = 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)

必要に応じて、1行で実行できます。

 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

SubStringメソッドとSplitメソッドを使用してみることができます。

 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 に答える