VB.NET RichTextBox 和 TextBox 分离答案

【问题标题】：VB.NET RichTextBox and TextBox SeparationVB.NET RichTextBox 和 TextBox 分离
【发布时间】：2014-07-17 19:08:21
【问题描述】：

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

Name:Hours
Name:Hours
Name:Hours

我已经很好地将 Timesheet.txt 加载到 RichTextBox1 中，但是，当我单击一个按钮时，我希望将它们加载到两个不同的文本框中。我希望名称加载到 TextBox1 和小时加载到 TextBox2

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

有什么帮助吗？

【问题讨论】：

显然，在第一个冒号字符处拆分。
奇怪的要求...您可能正在寻找某种网格。
感谢 Lars，我是 VB 新手。我试图这样做是为了让我的工作更轻松。不是专业的程序。有代码吗？

标签： vb.net richtextbox

【解决方案1】：

简单，但会做：

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

【讨论】：

【解决方案2】：

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

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

【讨论】：