保存为bat,与需要修改的文件放在一起- @echo off
- md New 2>Nul
- for /f "delims=" %%a in ('dir /b *.txt') do (
- (for /f "usebackq delims=" %%b in ("%%a") do (
- set "str=%%b"
- setlocal enabledelayedexpansion
- for %%c in (a b c e d e f g) do set "str=!str:%%c=!"
- echo,!str!
- endlocal
- ))>"New\%%a"
- )
复制代码 保存为vbs,同样与需要修改的文件放在一起,试试看吧- Set FSO = CreateObject("Scripting.FileSystemObject")
- If Not FSO.FolderExists("New") Then
- FSO.CreateFolder("New")
- End If
- For Each File In FSO.GetFolder(".").Files
- Ext =FSO.GetExtensionName(File)
- If LCase(Ext) = "txt" Then
- Text = FSO.OpenTextFile(File,1).ReadAll
- Set Re = New RegExp
- Re.Pattern = "A|B|C|D|E|F|G"
- Re.Global = True
- Re.IgnoreCase = True
- Str = Re.Replace(Text,"")
- FSO.CreateTextFile("New\"&File.Name,True).Write Str
- End If
- Next
- MsgBox "OK"
复制代码
|