VB.NET的RichTextBox和TextBox分離

Question

對於我公司，我們收到我們的考勤表的格式如下

Name:Hours 
Name:Hours 
Name:Hours 

我有Timesheet.txt裝載到RichTextBox1很好，但是，我想，當我點擊按鈕將它們加載到兩個不同的文本框中。我想要名稱加載到TextBox1和小時加載到TextBox2

然後它刪除行。當我再次點擊按鈕時，它將進入下一行。

任何幫助？

Answer 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) 

字符串的分割功能由您傳遞給它的字符將字符串分割了。

所以，如果你有這樣的：

sInput = "Name:10:Zebra:Kazaam" 

當您通過拆分字符串「：」分隔符，它會給你一個數組：

Name 
10 
Zebra 
Kazaam 

Answer 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