怎样大量修改文本内容?

提问网友发布时间：2022-04-23 14:24

声明：本网页内容为用户发布，旨在传播知识，若有侵权等问题请及时与本网联系，我们将在第一时间删除处理。
E-MAIL:1656858193@qq.com

共4个回答

热心网友回答时间：2023-09-20 12:40

大量文本的话用VBS吧，效率比批处理高：

'******************************************************
Const ForWriting = 2
Const ForReading = 1
' 以下路径按实际更改
strFolder = "e:\temp"
Set FSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = FSO.GetFolder(strFolder)
Set colFiles = objFolder.Files
'******************************************************
For Each objFile in colFiles
Set strFile = FSO.OpenTextFile(objFile)
If not strFile.AtEndOfStream Then
strLines = strFile.ReadAll
End If
strFile.Close
strNum = Left(objFile.Name, Len(objFile.name) - 4)
strNewString = Replace(strLines, "000",strNum)
Set strFile = FSO.OpenTextFile(objFile, ForWriting)
strFile.Write strNewString
strFile.Close
Next
'******************************************************
Set FSO = Nothing
Wscript.Quit

热心网友回答时间：2023-09-20 12:40

将以下内容保存为批处理文件，和8000个文件放一起运行即可，请先做好备份。

@echo off&setlocal enabledelayedexpansion
for /r %%a in (*.txt)do (
cls&echo 正在处理%%~nxa，请稍候...
for /f "tokens=1,* delims=:" %%b in ('type "%%a"')do (
set .=%%b
set .=!.:000=%%~na!
echo=!.!>>#.txt
)
move #.txt "%%a"
)
echo 处理完成&pause>nul

热心网友回答时间：2023-09-20 12:41

貌似只有编程了
内容都一样的话可以重新生成一批～

热心网友回答时间：2023-09-20 12:41

找个会编程的，10分钟搞定

本文如未解决您的问题请添加抖音号：51dongshi（抖音搜索懂视），直接咨询即可。

已解决

等待解决

首页

互助专区

登录

注册

怎样大量修改文本内容?