如何用vb作个打开自动读取TXT文本文件的代码

Question

1.TXT文件内容如下:
111111|22222|33333|http://127.0.0.1
33333333|5555555|6666666|http://127.0.0.2
VB中用什么代码可以把上面的文件自动显示在VB中的LIST1上
是自动显示出哦,执行EXE文件就会把TXT文件显示出来   显示出来要这样子的 
                                                                      111111    22222    33333    http:127.0.0.1
                                                             33333333  5555555  6666666  http://127.0.0.2

Answer 1

sub form_load
open "1.txt" for input as #1
dim a as string
do until eof(1)
input #1,a
loop
list1.list=spilt(a,"¦")
end sub

Answer 2

Dim strItem As StringOpen "1.txt" For Input As #1
Do Until EOF(1)
   Line Input #1, StrItem
   strItem = Replace(strItem, "|", vbTab)
   List1.AddItem strItem
Loop
Close #1