再次请教“我是菜鸟哦”版主
文本一 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]]