[文本处理] 批处理如何删除文件中指定位置和内容的两个字符之间的内容？

Rank: 1

帖子: 7
积分: 19
技术: 0
捐助: 0
注册时间: 2021-4-28

3楼

发表于 2021-4-28 14:27 | 只看该作者

网上查了下sed文件要放在system32下， a.b3的地方要输入文件路径，而且是要批量删除多个。txt文件中内容，这个sed "/RIPCUT/,/BLOCK/d" b.b3，能大约是删除RIPCUT和black间的内容生成b。b3的文件。实在是先要找放心的xp能用的sed。exe下载就不容易，这个更麻烦了。
请批处理论坛的高手帮忙改一下上面的批处理文件，这个用记事本复制，重命名为。bat文件一运行就可以解决问题了，谢谢。

Rank: 1

帖子: 7
积分: 19
技术: 0
捐助: 0
注册时间: 2021-4-28

4楼

发表于 2021-4-28 14:34 | 只看该作者

@echo off & setlocal enabledelayedexpansion

set "file=2.txt"

DEL $>NUL 2>NUL
(for /f "delims=" %%a in (%file%) do (
set/a Row+=1
set "Str=%%a"
for /f "tokens=1,3 delims=RIPCUT BLOCK" %%b in ('echo !Str!') do (
echo %%b/ #%%c
)
))>>$

MOVE $ %file%>nul 2>nul

pause & exit

这个也是我在网上找得，试了也不行。

Rank: 1

帖子: 7
积分: 19
技术: 0
捐助: 0
注册时间: 2021-4-28

5楼

发表于 2021-4-28 14:35 | 只看该作者

@echo off&setlocal enabledelayedexpansion
set "ft=(PART RIPCUT)"
set "bk=(BLOCK)"
for /f "delims=" %%1 in ('dir D:\CNC\*.B3 /a-d/s/b') do (
set n=
for /f "tokens=1 delims=:" %%i in ('findstr /n "%ft% %bk%" %%~s1') do set/a n+=1&set _!n!=%%i
if defined n (
   cd.>r.txt
      for /f "tokens=1* delims=:" %%i in ('findstr /n .* %%~s1') do (
            if %%i lss !_1! echo.%%j
            if %%i gtr !_2! echo.%%j)>>r.txt
      copy /y r.txt %%~s1
))
echo 完成！&pause
这个也不行

Rank: 1

帖子: 7
积分: 19
技术: 0
捐助: 0
注册时间: 2021-4-28

6楼

发表于 2021-4-28 14:37 | 只看该作者

下面代码保存为处理.vbs也可以运行
FolderPath=inputbox("输入处理的文件夹","输入处理的文件夹")
'FolderPath="F:\新建文件夹"
set fso=createobject("scripting.filesystemobject")
set folder=fso.getfolder(FolderPath)
set files=folder.files
for each fl in files
if right(fl,4)=".txt" Then
filename=fl
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile(filename, 1)
strContents = objFile.ReadAll
objFile.Close
If cbool(instr(strContents,"CDE")) And cbool(instr(strContents,"FGH")) Then
arrpath1=split(strContents,"CDE")
arrpath2=split(strContents,"FGH")
arrpath3=arrpath1(0)&chr(10)&arrpath2(1)
Set fso=CreateObject("Scripting.FileSystemObject")
Set File=fso.OpenTextFile(filename, 2,Ture)
File.WriteLine(arrpath3)
File.Close
End If
end If
Next
MsgBox("成功!")
这个是vbs的也不行

cutebe

上尉

Rank: 5 Rank: 5

帖子: 304
积分: 1430
技术: 51
捐助: 0
注册时间: 2009-2-18

7楼

发表于 2021-4-28 15:13 | 只看该作者

sed.exe 本论坛就可以搜索下载：
http://www.bathome.net/s/tool/index.html

sed.exe直接放在批处理所在目录即可，不一定要放system32

::请先做好备份，以下直接修改多个文件
sed -i "/RIPCUT/,/BLOCK/d" *.b3
复制代码

如无特别说明，代码测试环境均为 XP SP3

Rank: 1

帖子: 7
积分: 19
技术: 0
捐助: 0
注册时间: 2021-4-28

8楼

发表于 2021-4-28 15:45 | 只看该作者

回复 7# cutebe

非常非常感谢，确实很好用，已经解决问题。