[文本处理] [已解决]求助BAT如何删除txt文档中的指定字符？

iambater

今天工作中在处理一批文档的时候，文档中有很多日期是很久之前的，想把他们删除掉，一开始用的是文本替换软件，一个个的提取出来替换掉！
后来想到用bat处理，但是苦于自己技术能力不够，总是没能成功！

基本的问题是这样的，一批文档中含有A,B,C,D,E,F,G(举例用的特定字符)
现如今需要的结果是，将A,B,C,D,E,F,G从这批文档中剔除掉!

我用下面的这样的思路是剔除了整个文档,显然是错误的!本意只是将这些特定字符从文档里面原来的位置删除掉而已!

for %%a in (A B C D E) do del /q *%%a*.txt
复制代码

谢谢大家!

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

iambater

回复 2# apang


    谢谢你,我发现很多txt的批处理都是您写的!

forfiles

用sed.exe会比较简洁

sed -i "s/A//g" test.txt
复制代码

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），将得不到正确的结果。