大家帮帮忙这个 VB 简单的问题关于分割的操作！ 帮帮忙！谢谢了！！！

打开文件，一行行的读会不会？
假设你会吧。

打开文件
   没有结束
     读一行
     显示一行
   继续循环
关闭文件

显示时：
dim fj() as string
if instr(1,list1.list(list1.listindex),"---")>0 then
fj=split(list1.list(list1.listindex),"---")        '按---分成前后两段
text1.text=fj(0)
text2.text=fj(1)
else
text1.text=""
text2.text=""
endif

版主！这个我是看懂的只是我需要达到这样一个效果 你写的分割代码我看懂了但是让它拼在点击按钮就会继续显示下一组的帐号和密码点击又会继续显示下一组帐号密码。
这个我始终有点纠结...点击就会继续显示下一组的数据帐号和密码:List1.list(1) List1.list(2) List1.list(3) List1.list(4) List1.list(5)
我知道可以变量i 而i可以继续等于i+1 而 List1.list(i) 点击可以继续选择下一个显示数组的帐号和密码..就是这里我不知道怎么配合你的代码..我写了很多次不知道问题老出在哪.
麻烦你给我写哈..在这先谢谢版主了..

Private Sub Form_Load()
Open "C:\帐号.txt" for input as #1
Dim i as Integer,AC as String,PW as String,StrName as string
Do while not EOF(#1)
    Lineinput #1,StrName    '读取一行
    List1.AddItem StrName
Loop
Close #1
i = 0
List1.ListIndex = i
Text1.Text = split(list1.list(i),"---")(0)
Text2.Text = split(list1.list(i),"---")(1)

'增加两个Command按钮 Cmd_Next,Cmd_Pre
Private Sub Cmd_Next_Click    '显示下一组
i = i + 1
List1.ListIndex = i
If i = List.ListCount-1 then
    Cmd_Next.Enabled = False
Endif
Text1.Text = split(list1.list(i),"---")(0)
Text2.Text = split(list1.list(i),"---")(1)
Cmd_Pre.Enabled = True
End Sub

Private Sub Cmd_Pre_Click    ‘显示上一组
i = i - 1
List1.ListIndex = i
If i = 0 then
    Cmd_Pre.Enabled = False
Endif
Text1.Text = split(list1.list(i),"---")(0)
Text2.Text = split(list1.list(i),"---")(1)
Cmd_Next.Enabled = True
End Sub

'窗体添加一个List1 四个Text1.2.3.4. 一个Timer1属性150

Private Sub Form_Load()
If Dir("C:\Documents and Settings\Administrator\桌面\112.txt") <> "" Then
Dim aa As String
Open ("C:\Documents and Settings\Administrator\桌面\112.txt") For Input As #1
Do While Not EOF(1)
 Line Input #1, aa
List1.AddItem aa
 Loop
 Close #1
End If
'全部数量
Text4 = List1.ListCount
End Sub






Private Sub List1_Click()
Dim fj() As String
If InStr(1, List1.List(List1.ListIndex), "----") > 0 Then
fj = Split(List1.List(List1.ListIndex), "----")     '按---分成前后两段
Text1.Text = fj(0)
Text2.Text = fj(1)
Else
Text1.Text = ""
Text2.Text = ""
End If
Text3.Text = List1.ListIndex + 1
End Sub





Private Sub Timer1_Timer()
Static CI As Long                '定义静态变量
Dim fj() As String
If CI > List1.ListCount Then CI = 0   '超出范围返回第一个
If InStr(1, List1.List(CI), "----") > 0 Then     '是有效数据
fj = Split(List1.List(CI), "----")     '按---分成前后两段
Text1.Text = fj(0)
Text2.Text = fj(1)
List1.ListIndex = CI
Else
Text1.Text = ""
Text2.Text = ""
End If
CI = CI + 1
'Command2.Caption = CI '下一次显示下一个。
If Text3.Text = Text4.Text Then
List1.ListIndex = 0
Timer1.Enabled = False
End If

'感谢版主:风吹过b
'代码完美付出 我相信以后会有人用到的！