Question

VB6如何分割这样的文本？

文本框1，里面是多行文本：每行都是邮箱+密码：
1234556@qq.com----asdwer
ggggg@qq.com----yytgggh
如何点击一个按钮，就将文本框1内的邮箱发送到文本框2，同时将密码发送到文本框3；
再点击一次按钮，将文本框1内的第二行邮箱发送到文本框2，同时将密码发送到文本框3......以此类推。
如果文本框1内只有邮箱，则只发送邮箱到文本框2
文本框1内的邮箱发送完毕后，弹出消息框，显示“邮箱发送完毕”
邮箱和密码之间的分隔符“----”都是一样的，密码有一样的，也有长短不一。最好有有注释的源码，似乎涉及到数组什么的，还不太熟 = =！

Answer 1

先用 Vbcrlf 作为分隔符，这样就可以分行了，
然后每行再用 "----"做分隔符 就可以分离帐号和密码了。
参考函数 split（）。

Answer 2

Private Sub Command1_Click()
Static n
Dim arr, brr, i, j
arr = Split(Text1, vbNewLine)
If n > UBound(arr) Then
MsgBox "邮箱发送完毕,可以重输text1内容再进行转换"
n = 0
Else
If InStr(arr(n), "-") Then
brr = Split(arr(n), "-")
If Len(brr(0)) > 0 Then Text2 = brr(0) Else Text2 = ""
If Len(brr(UBound(brr))) > 0 Then Text3 = brr(UBound(brr)) Else Text3 = ""
End If
n = n + 1
End If
End Sub
Private Sub Form_Load()
Text1 = "1234556@qq.com----asdwer" & vbNewLine & "ggggg@qq.com - ---yytgggh"
End Sub