如何批量插入TXT文档内容

把txt文本复制到word中，利用查找替找（快捷键为ctrl+f）,在word中把段落符号替找成“两个段落符号”，也就是说在要替换的编辑框中两次段落符号，再点击全部替找,再复制回txt文档中既可

截图如下:

不清楚你的实际文件/情况，仅以问题中的样例/说明为据；以下代码复制粘贴到记事本，另存为xx.bat，编码选ANSI，跟要处理的文件放一起运行

<# :

cls&echo off

rem 在多个txt文本文件内的每一行开头分别添加/插入自身文件名称和递增数字序号

set #=Any question&set @=WX&set $=Q&set/az=0x53b7e0b4

title %#% +%$%%$%/%@% %z%

cd /d "%~dp0"

powershell -NoProfile -ExecutionPolicy bypass "Invoke-Command -ScriptBlock ([ScriptBlock]::Create([IO.File]::ReadAllText('%~f0',[Text.Encoding]::GetEncoding('GB2312')))) -Args '%~f0'"

echo%#% +%$%%$%/%@% %z%

pause

exit

#>

$ext=@(".txt")

$self=get-item -liter $args[0]

$path=$self.Directory.FullName

$newfolder=$path+'\#result'

if(-not (test-path -liter $newfolder)){[void](md $newfolder)}

$enc=[Text.Encoding]::GetEncoding('GB2312')

$files=@(dir -liter $path|?{($ext -contains $_.Extension) -and ($_ -is [System.IO.FileInfo])})

[System.Collections.ArrayList]$s=@()write-host $files[0].Name

$text=[IO.File]::ReadAllLines($files[0].FullName, $enc)

for($j=0$j -lt $text.count$j++){

$line=$files[0].BaseName+($j+1).toString()+' '+$text[$j]

[void]$s.add($line)

}

$newfile=$newfolder+'\'+$files[0].Name

[IO.File]::WriteAllLines($newfile, $s, $enc)

最好的方法是不用额外安装所谓的天才的NotePad++,它能跟Word相提并论？笑话！

用几乎人人的安装的Word,用Word的通配符替换就行了。

用word打开该文档，Ctrl+H打开替换对话框，在查找中输入^p

在替换中输入 ^p2015

全部替换即可

---