Question

vb怎样把多个txt文本文件合并为一个文本文件？

已知一个文件夹中有若干个文本文件，数量不定。把这些文件合合成一个文本文件，怎样做？

Answer 1

其实方法有很多，我就列举常用的两个吧...

方法一此猛：
循环获得文运凳件夹里的文件；
判断是否为文本文件；
按行读取文本文件；。。。
下面我用Dir()函数获得文件夹里的文件，文件将按“文件名”排序。也可以结合文件系统来做。
Private Sub Command1_Click()
Dim FolderPath As String, FileName As String， fnum1 As Integer, fnum2 As Integer
Dim sL As String

FolderPath = "D:\123\"

fnum1 = FreeFile
Open FolderPath & "tmp.txt" For Output As fnum1

FileName = Dir(FolderPath)
Do Until FileName = ""
If LCase(Right(FileName, 4)) = ".txt" And FileName <> "tmp.txt" Then
fnum2 = FreeFile
Open FolderPath & FileName For Input As fnum2
Do Until EOF(fnum2)
Line Input #fnum2, sL
Print #fnum1, sL
Loop
Print #fnum1,
Close #fnum2
End If
FileName = Dir()
Loop
Close #fnum1
End Sub

方法二：
如果这些文本文件都是ANSI编码，那么可以使用命令行的Copy语句。
代码确实能做到很简洁，但就没有灵活性了。其中，文件将按“文件名”排序。
Private Sub Command1_Click()
Dim FolderPath As String
FolderPath = "D:\123\"
Shell "cmd.exe /c Copy """ & FolderPath & "*.txt"" """ & FolderPath & "旁扒旅tmp.txt"""
End Sub
另外，这种方法可以用bat文件来实现。

追问

代码测试可行。但我把你代码中的"D:\123\"更换成App.Path & "\文件"怎么不行了呢？

另外，ANSI编码的文件不能按方法一进行合并吗？

追答

更换成App.Path & "\文件\"（少了一个斜杠）

ANSI编码的文件可以按方法一进行合并。我只是说，非ANSI编码的文本文件不能用方法二。

追问

进一步测试发现，合并的文件中间有空行，可能是每个文件中间你设计了空行。怎样在合并时不留这些空行呢？同时，如果文件都是一行行的，最后合并的结果中有重复的行，怎样让没有重复的行呢？如：
不能这样：
12345
12345
67890
而应该是：
12345
67890
最后，希望合并完成时，有个提示，而且在提示窗口上点击“是”按钮可以直接打开合并的文件，点击“否”则不打开。

追答

Option Base 1

Private Sub Command1_Click()
Command1.MousePointer = 11

Dim FolderPath As String, FileName As String, fnum1 As Integer, fnum2 As Integer
Dim sL As String, s() As String, n As Long, i As Long

FolderPath = "D:\123\"

fnum1 = FreeFile
Open FolderPath & "tmp.txt" For Output As fnum1

FileName = Dir(FolderPath)
Do Until FileName = ""
If LCase(Right(FileName, 4)) = ".txt" And FileName "tmp.txt" Then
fnum2 = FreeFile
Open FolderPath & FileName For Input As fnum2
Do Until EOF(fnum2)
Line Input #fnum2, sL
'判断是否为空行
If sL "" Then
'判断是否重复
For i = 1 To n
If sL = s(i) Then Exit For
Next i
'未重复
If i = n + 1 Then
n = n + 1
ReDim Preserve s(n)
s(n) = sL
Print #fnum1, sL
End If
End If
Loop
'Print #fnum1,
Close #fnum2
End If
'获得下一个文件名
FileName = Dir()
Loop
Close #fnum1
Erase s()

Command1.MousePointer = 0
If MsgBox("合并完成，是否直接打开合并的文件？", vbYesNo, "提示") = vbYes Then
'调用记事本打开合并的文件
Shell "notepad.exe """ & FolderPath & "tmp.txt""", vbNormalFocus
End If
End Sub

追问

可行，但合并速度没有上面快，有滞后感。可以改进吗？。另外发现Option Base 1没有什么用，它是什么意思，起什么作用？

追答

Option Base 1的作用是使数组下限从1开始。

因为涉及到很多的字符串，而对字符串的操作又比较耗时间，当字符串超过几千时，就会明显有滞后感，这是正常的。（我还处理过，滞后了好几分钟的情况呢）
如果要提高速度，只有将大部分对字符串的操作转化为对数值的操作，或者用C语言来提速。

由于上面代码是全文重复判断，明显不太合理。
比如，就好是网上下的小说，重复的往往就只有这个文件尾行跟那个文件头行，这种情况也是很容易提速的。
对于你的情况，我假设重复的情况只是上下2行。代码可以如下：
Private Sub Command1_Click()
Command1.MousePointer = 11

Dim FolderPath As String, FileName As String, fnum1 As Integer, fnum2 As Integer
Dim sL As String, s As String''''''''''''''''''''''''''''''''''''''''''''''''

FolderPath = "D:\123\"

fnum1 = FreeFile
Open FolderPath & "tmp.txt" For Output As fnum1

FileName = Dir(FolderPath)
Do Until FileName = ""
If LCase(Right(FileName, 4)) = ".txt" And FileName "tmp.txt" Then
fnum2 = FreeFile
Open FolderPath & FileName For Input As fnum2
Do Until EOF(fnum2)
Line Input #fnum2, sL
'判断是否为空行
If sL "" Then
'只判断是否与上一行重复''''''''''''''''''''''''''''''''''''''''''''''''''''
If sL s Then
s = sL
Print #fnum1, sL
End If
End If
Loop
'Print #fnum1,
Close #fnum2
End If
'获得下一个文件名
FileName = Dir()
Loop
Close #fnum1

Command1.MousePointer = 0
If MsgBox("合并完成，是否直接打开合并的文件？", vbYesNo, "提示") = vbYes Then
'调用记事本打开合并的文件
Shell "notepad.exe """ & FolderPath & "tmp.txt""", vbNormalFocus
End If
End Sub

追问

假设重复的情况只是上下2行？如果不考虑这种情况，不管什么地方重复呢？我需处理的都是一行一行排列的，不是一大段一大段的。

追答

我说的“行”是以“回车”结束的，就像Word的一段。而且，读取本文文件的按行读取也是判断“回车”来读取的。
你说的行，则受到记事本显示时的一行，可能会受记事本宽度的影响。实际操作起来更复杂，速度也上不去。如果你的一行本来字就不多，那么就跟我讲的行一样了。

不管什么地方重复，则代码就是上上面的，有滞后感的...

Answer 2

txt文件名有规律吗？比如1.txt 、2.txt 、3.txt....如果是这样的拦肆话就好弄点。。。
如果没规律可以用通用控件返回txt文本的丛衡备路径，然后用input把txt内容都读取出来存入指定的文本渗毁就可以了