的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 - 字符串分割，移动文本

回答

相关问题