-
讓品牌有溫度、有情感
專注品牌策劃15年
-
當(dāng)前位置：首頁 > 創(chuàng)意學(xué)院 > 技術(shù) > 專題列表 > 正文
TXT批量修改章節(jié)目錄
發(fā)布時(shí)間：2023-04-07 12:35:49
稿源：
創(chuàng)意嶺 閱讀：
71
大家好！今天讓創(chuàng)意嶺的小編來大家介紹下關(guān)于TXT批量修改章節(jié)目錄的問題，以下是小編對此問題的歸納整理，讓我們一起來看看吧。
開始之前先推薦一個(gè)非常厲害的Ai人工智能工具，一鍵生成原創(chuàng)文章、方案、文案、工作計(jì)劃、工作報(bào)告、論文、代碼、作文、做題和對話答疑等等
只需要輸入關(guān)鍵詞，就能返回你想要的內(nèi)容，越精準(zhǔn)，寫出的就越詳細(xì)，有微信小程序端、在線網(wǎng)頁版、PC客戶端
官網(wǎng)：https://ai.de1919.com。
創(chuàng)意嶺作為行業(yè)內(nèi)優(yōu)秀的企業(yè)，服務(wù)客戶遍布全球各地，如需了解SEO相關(guān)業(yè)務(wù)請撥打電話175-8598-2043，或添加微信：1454722008
本文目錄:
目錄.jpg)
一、txt小說目錄批量重命名 需要將（1）（2）替換為第一章 第二章不然ireader無法識(shí)別章節(jié)目錄，最好有軟件可
下載全本的，要不換個(gè)播放器
二、bat批量修改txt文件里的內(nèi)容，以txt文件名(目錄名+文件名)替換固定字符串
不清楚你的實(shí)際文件/情況，僅以問題中的說明及猜測為據(jù)
復(fù)制粘貼到記事本，另存為xx.bat，編碼選ANSI
<# :cls
@echo off
rem 將多個(gè)txt文本文件里的指定內(nèi)容/固定內(nèi)容替換成文件所在的目錄名+文件名
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內(nèi)容？
懂的話，很簡單就能實(shí)現(xiàn)。用Word打開該txt文件，然后Ctrl+H打開替換對話框，單擊高級，勾選使用通配符，在查找框中輸入：(第*章)*^13，替換為框中輸入：\1^13，單擊全部替換即可。根本用不著什么xtFormat，簡直答非所問。
四、批處理批量修改txt文件里面的內(nèi)容
@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文件，雙擊執(zhí)行，使用前備份文件。另給出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文件目錄，雙擊執(zhí)行。
----------------------------------------
兩段代碼都可以實(shí)現(xiàn)批量替換，無論在該文件夾的深度是多少。不用打開TXT直接替換。不懂可以hi我。
以上就是關(guān)于TXT批量修改章節(jié)目錄相關(guān)問題的回答。希望能幫到你，如有更多相關(guān)問題，您也可以聯(lián)系我們的客服進(jìn)行咨詢，客服也會(huì)為您講解更多精彩的知識(shí)和內(nèi)容。
推薦閱讀：
公園規(guī)劃設(shè)計(jì)說明（公園規(guī)劃設(shè)計(jì)說明范文）
?？茖W(xué)電子商務(wù)出來能干嘛（專科學(xué)電子商務(wù)出來能干嘛工作）
贛公網(wǎng)安備 50019002502384號
