文本一  
22
33
44
55
66
文本二
9
8
7
6
5
4
。
。
。
。
文本n

Option Explicit
Private Sub Command1_Click()
  Dim s As String
  Dim i As Integer
  Dim flag As Integer
  flag = 0
For i = 0 To File1.ListCount - 1
Open File1.List(i) For Input As #1
  Do While Not EOF(1)
  Line Input #1, s
If flag = 0 Then  
 Open App.Path & "\" & "dimianfeng.txt" For Append As #2
      Print #2, s
      Close #2
  End If
  Loop
  Close #1

Next i
End Sub
我想提取每个文本的第一行，但是读出的却是整个文本，请问如何修改红色部分？另外，前面也有发一个帖子，没有解决，请一并帮助？谢谢！

[[it] 本帖最后由 菜鸟新上路 于 2008-10-15 17:09 编辑 [/it]]

把Do While结构去掉，取消循环。

如MULT版主所言，加了WHILE就会读取全部文本，去掉则只读第一句
去了WHILE LOOP,这样的话那个FLAG就没什么意义了，也可以去掉，FLAG只是在读取全部文本的时候放的一个行数标志

这样虽然能解决问题，但是没有抓住实质，如果只读取第二行呢？

那就用FLAG，当FLAG=2的时候退出该文本，执行下个循环

知道了 谢谢