一个COMMAND 一个FILELISTBOX（
将PATTERN属性设置为*.txt） 将生成的EXE放入你那个都是文本的文件夹里边，然后会在D：生成你想要的文本，原来每个文本的隔6行的内容用*****隔开，不想要*自己删了就行，（这个是读取每个文本的具体行再输入新文本中,这个应该以前给你说过的）
如果文本过大的话，等待时间较长，所以command只点一下就OK
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) '读取每个文本隔6行的内容，然后输入到D盘123.txt
Line Input #1, s
If flag Mod 6 = 0 Then
Open "D:\123.txt" For Append As #2
Print #2, s
Close #2
End If
flag = flag + 1
Loop
Close #1
flag = 0
Open "D:\123.txt" For Append As #2
Print #2, "*************************************************"
Close #2
Next i
End Sub
[[it] 本帖最后由 我是菜鸟哦 于 2008-9-27 10:20 编辑 [/it]]
