apang

保存为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"
复制代码

apang

@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 d e f g) do set "str=!str:%%c=!"
    echo,!str:~1!
    endlocal
  ))>"New\%%a"
)
复制代码

修改一下。假如文本某一行仅包含需要删除的字符（例如某一行仅有一个字符A），将得不到正确的结果。