Warning: file_get_contents(/data/phpspider/zhask/data//catemap/1/vb.net/16.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
Vb.net 在文本框中拆分单词删除空格_Vb.net_Ms Access - Fatal编程技术网

Vb.net 在文本框中拆分单词删除空格

Vb.net 在文本框中拆分单词删除空格,vb.net,ms-access,Vb.net,Ms Access,我试图将单词分开,但FirstName和MiddleName中仍有空格 请参见屏幕截图: 这是我的密码: Dim str As String = ListView1.Items(ListView1.SelectedIndices(0)).SubItems(2).Text Dim splitStr As String() = str.Split(","c) txtLastName.Text = splitStr(0).ToString() txtFirstName.Text = splitStr

我试图将单词分开,但
FirstName
MiddleName
中仍有空格

请参见屏幕截图:

这是我的密码:

Dim str As String = ListView1.Items(ListView1.SelectedIndices(0)).SubItems(2).Text
Dim splitStr As String() = str.Split(","c)
txtLastName.Text = splitStr(0).ToString()
txtFirstName.Text = splitStr(1).ToString()
txtMiddleInitial.Text = splitStr(2).ToString()
Dim str As String = "LOWELL, JOHN, F"
Dim splitStr As String() = str.Split(","c)

TextBox1.Text = splitStr(0)
TextBox2.Text = splitStr(1)
TextBox3.Text = splitStr(2)

TextBox4.Text = splitStr(0).Trim()
TextBox5.Text = splitStr(1).Trim()
TextBox6.Text = splitStr(2).Trim()

我的代码缺少什么吗?

要从
字符串的开头和结尾删除空白字符,我将使用:

从当前字符串对象中删除所有前导和尾随空格字符

要在代码中执行此操作,只需将
.Trim()
附加到
字符串的末尾即可:

Dim str As String = ListView1.Items(ListView1.SelectedIndices(0)).SubItems(2).Text
Dim splitStr As String() = str.Split(","c)
txtLastName.Text = splitStr(0).ToString().Trim()
txtFirstName.Text = splitStr(1).ToString().Trim()
txtMiddleInitial.Text = splitStr(2).ToString().Trim()
txtLastName.Text = splitStr(0).Trim()
txtFirstName.Text = splitStr(1).Trim()
txtMiddleInitial.Text = splitStr(2).Trim()
作为旁注,由于
splitStr(.)
已经是一个
字符串
,您不需要使用
ToString()

为了测试,这是我的代码:

Dim str As String = ListView1.Items(ListView1.SelectedIndices(0)).SubItems(2).Text
Dim splitStr As String() = str.Split(","c)
txtLastName.Text = splitStr(0).ToString()
txtFirstName.Text = splitStr(1).ToString()
txtMiddleInitial.Text = splitStr(2).ToString()
Dim str As String = "LOWELL, JOHN, F"
Dim splitStr As String() = str.Split(","c)

TextBox1.Text = splitStr(0)
TextBox2.Text = splitStr(1)
TextBox3.Text = splitStr(2)

TextBox4.Text = splitStr(0).Trim()
TextBox5.Text = splitStr(1).Trim()
TextBox6.Text = splitStr(2).Trim()
这是我的输出:


文本框的顺序与代码相同。您可以使用
.Trim()

查看从底部集合中删除空白的位置。我想您可能需要该方法。谢谢先生。我现在拿到了。谢谢你的帮助。我想,ToStube制作适合CODE..J.Leo,如果它解决了你的问题,请考虑接受答案。另外,
.ToString()
在本例中不是必需的,但在本例中是必需的
Dim a As Integer=1
Dim s As String=a.ToString()
Yes先生,它解决了我的问题。因此,.ToString()也可以转换字符串。再次感谢你。