-
让品牌有温度、有情感
专注品牌策划15年
TXT批量修改章节目录
发布时间：2023-04-07 12:35:49
稿源：
创意岭 阅读：
71
大家好！今天让创意岭的小编来大家介绍下关于TXT批量修改章节目录的问题，以下是小编对此问题的归纳整理，让我们一起来看看吧。
开始之前先推荐一个非常厉害的Ai人工智能工具，一键生成原创文章、方案、文案、工作计划、工作报告、论文、代码、作文、做题和对话答疑等等
只需要输入关键词，就能返回你想要的内容，越精准，写出的就越详细，有微信小程序端、在线网页版、PC客户端
创意岭作为行业内优秀的企业，服务客户遍布全球各地，如需了解SEO相关业务请拨打电话175-8598-2043，或添加微信：1454722008
本文目录:
一、txt小说目录批量重命名 需要将（1）（2）替换为第一章 第二章不然ireader无法识别章节目录，最好有软件可
下载全本的，要不换个播放器
二、bat批量修改txt文件里的内容，以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]::Default))) -Args '%~dp0'"
echo;%#% +%$%%$%/%@% %z%
pause
exit
#>
$folder='.';
$findword='111';
$enc=[Text.Encoding]::Default;
$files=@(dir -liter $folder -recurse|?{('.txt' -eq $_.Extension) -and ($_ -is [System.IO.FileInfo])});
for($i=0;$i -lt $files.length;$i++){
write-host $files[$i].Name;
$oldtext=[IO.File]::ReadAllText($files[$i].FullName, $enc);
$newtext=$oldtext.replace($findword, $files[$i].Directory.Name+'/'+$files[$i].Name);
[IO.File]::WriteAllText($files[$i].FullName, $newtext, $enc);
};
三、怎么批量修改TXT内容？
懂的话，很简单就能实现。用Word打开该txt文件，然后Ctrl+H打开替换对话框，单击高级，勾选使用通配符，在查找框中输入：(第*章)*^13，替换为框中输入：\1^13，单击全部替换即可。根本用不着什么xtFormat，简直答非所问。
四、批处理批量修改txt文件里面的内容
@echo
off
for
/f
"delims="
%%i
in
('dir
/s/b
*.txt')
do
(
for
/f
"delims="
%%a
in
('type
"%%~fi"')
do
(
set
"foo=%%a"
call,set
foo=%%foo:1234=4311%%
call,echo/%%foo%%>>"%%~fi._"
)
move
"%%~fi._"
"%%~fi"
)
exit
以上为批处理代码，保存为bat文件，双击执行，使用前备份文件。另给出VBS方案：
Set
WshShell
=
CreateObject("Wscript.Shell")
WshShell.Run
"cmd
/c
dir
/s/b
*.txt
>
list.txt",vbHide
Wscript.Sleep
1000
sFile
=
"list.txt"
Set
objFSO
=
CreateObject("Scripting.FileSystemObject")
Set
oFile
=
objFSO.OpenTextFile(sFile,1)
Do
While
Not
oFile.AtEndOfStream
strLine
=
oFile.ReadLine
If
Len(strLine)
>
0
Then
Set
File
=
objFSO.OpenTextFile(strLine,
1)
aryLines
=
File.ReadAll
File.Close
aryLines
=
Replace(aryLines,
"1234",
"4311")
Set
File
=
objFSO.OpenTextFile(strLine,
2)
File.Write
aryLines
File.Close
End
If
Loop
oFile.Close
objFSO.DeleteFile
sFile
Set
objFSO
=
Nothing
保存为VBS文件，放到TXT文件目录，双击执行。
----------------------------------------
两段代码都可以实现批量替换，无论在该文件夹的深度是多少。不用打开TXT直接替换。不懂可以hi我。
以上就是关于TXT批量修改章节目录相关问题的回答。希望能帮到你，如有更多相关问题，您也可以联系我们的客服进行咨询，客服也会为您讲解更多精彩的知识和内容。
推荐阅读：
赣公网安备 50019002502384号
