VB 分析text

来源：百度知道 编辑：UC知道 时间：2024/05/28 18:38:45
我的text1控件中的内容为：

如何打开百度----在网页中输入www.baidu.com
lmn330111330----*******

现在我想点击一个按钮，然后text2.text里出现的内容是

如何打开百度
lmn330111330

而text3中出现的是

www.baidu.com
*******

怎么办？
一楼说得对 是我的帐号密码，现在我要将他分开，在text2中显示lmn330111330 在text3中显示****** 而----不会显示

Private Sub Command1_Click()
Dim a() As String, b() As String
a = Split(Text1.Text, vbCrLf)
For n = 0 To UBound(a)
If a(n) = "" Then Exit Sub
b = Split(a(n), "----")
Text2.Text = Text2.Text & b(0) & vbCrLf
Text3.Text = Text3.Text & b(1) & vbCrLf
Next
End Sub

什么意思啊..表述不清楚...lmn330111330----*******这是什么..你的账号和密码么