UC知道求教BAT批处理合并TXT文本文件每段插入空行文件名空行
来源：百度知道 编辑：UC知道 时间：2024/06/08 06:09:37
有数百个小笑话TXT格式已有标题作文件名，但文件内容没有标题，想合并这些小文件，但希望每个文件的内容为一个段落，段落前插入这个小文件的文件名作为标题并加一空行，段落后也加一空行：
（文件1的文件名不含扩展名）
（文件1.txt的内容
文件1.txt的内容
文件1.txt的内容）
（文件2的文件名不含扩展名）
（文件2.txt的内容
文件2.txt的内容
文件2.txt的内容）
睿之锐 运行时提示文件无法访问，输出文件只有一堆文件名没有内容
MyPrettyLife 成功！代码精炼！牛啊！
谢谢！
（文件1的文件名不含扩展名）
（文件1.txt的内容
文件1.txt的内容
文件1.txt的内容）
（文件2的文件名不含扩展名）
（文件2.txt的内容
文件2.txt的内容
文件2.txt的内容）
睿之锐 运行时提示文件无法访问，输出文件只有一堆文件名没有内容
MyPrettyLife 成功！代码精炼！牛啊！
谢谢！
来段VBS，本机测试成功：
Dim strFolder, objFSO, objFolder,colFiles
Dim objFileName, strFiles, objFiles
Dim objAllFile
Const ForReading = 1
strFolder = "E:\STRORY"
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder(strFolder)
Set colFiles = objFolder.Files
For Each objFile in colFiles
objFileName = Split(objFile.Name,".")(0)
Set strFile = objFSO.OpenTextFile(objFile, ForReading)
colLines = strFile.ReadAll
strFile.Close
objFiles = objFiles & objFileName _
& vbCrLf & vbCrLf & colLines & vbCrLf & vbCrLf
Next
Set objAllFile = objFSO.CreateTextFile(strFolder & "\" & "ALL.TXT")
objAllFile.Write objFiles
objAllFile.Close
Set objFSO = Nothing
Wscript.Quit
脚本假设文件在一个文件夹中{没有子文件夹}。将代码保存。
文件夹为e:\story,输出为e:\s