拆分文本框内容VB2008

user3772670 发表于 Dev

用户名

我在VB中将一个文本框的内容拆分为其他文本框，在拆分时使用空格。由于原始文本可以有不同数量的空格，但我知道最大值为8，VB是否有办法忽略多余的拆分命令，而不显示为错误？

谢谢。

码：

Dim strA1 As String = TrackABox.Text
Dim splitA1 As String() = strA1.Split(" ")
A1.Text = splitA1(0).ToString()
A2.Text = splitA1(1).ToString()
A3.Text = splitA1(2).ToString()
A4.Text = splitA1(3).ToString()
A5.Text = splitA1(4).ToString()
A6.Text = splitA1(5).ToString()
A7.Text = splitA1(6).ToString()
A8.Text = splitA1(7).ToString()

在某些情况下，可能不需要拆分6和7。

史蒂夫

准备文本框数组，然后仅对拆分结果中存在的项目数使用循环

Dim strA1 As String = TrackABox.Text
Dim splitA1 As String() = strA1.Split(" ")
Dim ctrlText As TextBox() = new TextBox(){A1, A2, A3, A4, A5, A6, A7,A8}
For x as Integer = 0 to splitA1.Length - 1
    ctrlText(x).Text = splitA1(x)
Next

这样，就可以通过遍历splitA1数组的方式在当前循环位置提取字符串，并将其分配给TextBoxes数组的相应Text属性。

还考虑不检查splitA1数组的长度，因为您说它可以包含8个或更少的元素，并且文本框数组始终足够大以包含拆分的子字符串。您可以对此添加检查，或者（如另一个答案中所述）使用Split函数重载将结果数组限制为8个元素。Split(" ", 8)

本文收集自互联网，转载请注明来源。

如有侵权，请联系[email protected] 删除。