怎么用vb读取文件的任意行

来源：百度知道 编辑：UC知道 时间：2024/06/16 16:09:17
我要从txt文件中读取，分单数行加list1，双数行加入list2

Private Sub menu11_Click()
CommonDialog1.ShowOpen
Open CommonDialog1.FileName For Input As #1
Do While Not EOF(1)
Line Input #1, a
h = h + 1
Loop
Close #1
s = Split(a, vbCrLf)
For j = 1 To h Step 2
List1.AddItem s(j)
Next j
For j = 2 To h Step 2
List2.AddItem s(j)
Next j

Private Sub menu11_Click()
Dim h As Integer: h = 0

CommonDialog1.ShowOpen
Open CommonDialog1.FileName For Input As #1
Do While Not EOF(1)
Line Input #1, a
h = h + 1

If h Mod 2 = 1 Then '在这里直接写入listbox
List1.AddItem a '如果是奇数行，那么写入List1
Else
list2.AddItem a '如果是偶数行，写入List2
End If
Loop
Close #1

MsgBox h 'h表示行数
end sub

另外，建议以后写代码稍微规范一点，养成一个好的习惯

dim h%
h=0
Private Sub menu11_Click()
CommonDialog1.ShowOpen
Open CommonDialog1.FileName For Input As #1
Do While Not EOF(1)
h=h+1 ’h就表示第几行
Line Input #1, a '把第h行的内容赋给变量a
if h mod 2 =1 ’如果是奇数行，那么写入List1
List1.AddItem a
else ’如果不是奇数行，写入List2
List2.AddItem a
end if
Loop<