读取TXT

Question

我有一个文本文件 "123.TXT" ,里面的内容是:123
456
789
110
111
.......我想问的是,我要实现的是表标签一读取里面的123,标签2读取里面的456,这样类推,代码如何实现?怎么将值赋到指定的标签上?

Answer 1

Private Sub Form_Load()
Dim i As Integer
Dim nextline As String
Open "123.TXT" For Input As #1 '"123.TXT"在当前目录
Do Until EOF(1)
Line Input #1, nextline
Label1(i).Caption = nextline
i = i + 1
Load Label1(i)
   Loop
Close #1
End Sub