VB.NET RichTextBox与TextBox的分离

对于我的公司，我们收到以下格式的时间表

Name:Hours
Name:Hours
Name:Hours

我可以将Timesheet.txt加载到RichTextBox1中，但是，当我单击一个按钮将它们加载到两个不同的文本框中时，我需要。我希望名称加载到TextBox1，小时加载到TextBox2

然后删除该行。当我再次单击按钮时，它将转到下一行

有什么帮助吗？

很简单，但可以：

Dim sInput As String = "Name:10"
Dim sSplitArray() As String = sInput.Split(New Char() {":"c})
Dim sName As String = sSplitArray(0)
Dim sHours As String = sSplitArray(1)

String的Split函数按传递给它的字符将字符串拆分

所以如果你有这个：

sInput = "Name:10:Zebra:Kazaam"

当您使用“：”分隔符拆分该字符串时，它将为您提供一个包含以下内容的数组：

Name
10
Zebra
Kazaam

---

希望这将为您的问题提供完整的解决方案

Dim x, y As Integer
Dim textbox1() As TextBox
x = 430
y = 265
Dim str As String
Dim result(), output(1) As String'str=RitchText1.text 'load input string to str
result = str.Split(System.Environment.NewLine) ' split into array based on new line
For i As Integer = 0 To result.Length - 1 'execute up to array limit
output = result(i).Split(":") 'split again based on :
textbox1(i).Text = output(0) 'Name part into dynamic textbox 1
textbox1(i).Location = New Point(x, y)
textbox1(i + 1).Text = output(1) 'Name part into dynamic textbox 2
textbox1(i + 1).Location = New Point(x + 40, y)
Me.Controls.Add(textbox1(i))
textbox1(i).Visible = True
Me.Controls.Add(textbox1(i + 1))
textbox1(i + 1).Visible = True
y = y + 20
Next

---

显然，在第一个冒号字符上分开。奇怪的要求。。。您可能正在寻找某种网格。谢谢Lars，我是VB新手。我正试图这样做，使我的工作更容易。不是专业的课程。有代码吗？