的Visual Basic 2010 - 字符串分割，移動文本

-1

我farely新VB，我掙扎着這一點。我甚至不知道從哪裏開始。所以我來這裏尋求幫助！

這幅圖很好的解釋了它，我已經有了加載文本按鈕。它將一個像「123：123」這樣的列表加載到第一個框中。我希望它刪除中間的「：」，並將第一組數字移動到第一個框中，將第二組數字移動到第二個框中。目前爲止，我已經花了大約2-3個小時，並且沒有比這更進一步。任何人都可以幫我嗎？

來源

2015-11-06 Cain Templeman

你的代碼在哪裏？ – Han

沒有按鈕。這就是爲什麼我試圖獲得幫助。 –

這會將第一個文本框的文本分割到「：」數組上，然後將各個文本塊移動到每個文本框中。防錯輸入取決於您。

dim parts() as string = txt1.Text.Split({":"c}) 
txt2.Text = parts(0) 
txt3.Text = parts(1)

來源

2015-11-06 15:55:34

這對我的事業有很大的幫助。但結果從下一行開始。 –

http://prntscr.com/8zqogo –

將vbCrLf連接到文本。例如：'txt2.Text = txt2.Text＆parts（0）＆vbCrLf。這假設第二個和第三個框是文本框。如果他們列出，解決方案將會不同。 – JerryM

首先你使用vbCrLf在第一個文本框中分割文本。

Dim splittedTextBox1 = TextBox1.Text.Split(vbCrLf)

該操作的結果是一個數組，因此變量splittedTextBox1是一個數組。此數組的每個元素都是第一個文本框中的一行。第一個元素是「[email protected]：password」，第二個元素是「[email protected]：password」，依此類推。

循環訪問數組，並使用分號（:)分隔每行。然後使用分割線連接第二個和第三個文本框。不要忘記在第二個和第三個文本框的每一行中添加vbCrLf。

For Each line in splittedTextBox1 
    Dim splittedLine = line.Split(":"c) 
    textBox2.Text += splittedLine(0) & vbCrLf 
    textBox3.Text += splittedLine(1) & vbCrLf 
Next

完整的源代碼（我用一些硬編碼值模擬Load按鈕）。

Public Class Form1 

    Private Sub button1_Click(sender As System.Object, e As System.EventArgs) Handles button1.Click 
     textBox1.Text = 
      "[email protected]:password1" & vbCrLf & 
      "[email protected]:password2" & vbCrLf & 
      "[email protected]:password3" & vbCrLf & 
      "[email protected]:password4" & vbCrLf & 
      "[email protected]:password5" & vbCrLf & 
      "[email protected]:password6" & vbCrLf & 
      "[email protected]:password7" 
    End Sub 

    Private Sub button2_Click(sender As System.Object, e As System.EventArgs) Handles button2.Click 

     Dim splittedTextBox1 = textBox1.Text.Split(vbCrLf) 

     For Each line In splittedTextBox1 
      Dim splittedLine = line.Split(":"c) 
      textBox2.Text += splittedLine(0) & vbCrLf 
      textBox3.Text += splittedLine(1) & vbCrLf 
     Next 

    End Sub 

End Class

來源

2015-11-06 16:49:18 Han

爲每個電子郵件手動執行此操作將無法正常工作，因爲我每次都必須更改代碼。我加載一個列表到程序中，然後多數民衆贊成我需要分裂。 –

https://www.youtube.com/watch?v=SiNqCBU9flU 這會向您顯示我的工具到目前爲止。 –

我已經使用Bradleys代碼來接收該結果 –

的Visual Basic 2010 - 字符串分割，移動文本

回答

相關問題