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 ModifyText File
Next
MsgBox "OK"

Sub ModifyText(F)
   Text = FSO.OpenTextFile(F,1).ReadAll
   A = Split(Text,"G5.1Q1")
   Str = A(0) & "G5.1Q1" & A(1)
   FSO.CreateTextFile("New\"&F.Name,True).Write Str
End Sub
复制代码

@echo off&setlocal enabledelayedexpansion
for /f "delims=" %%a in ('dir /a-d /b *.txt') do (
  (for /f "usebackq delims=" %%b in ("%%a") do (
    if "%%b"=="G5.1Q1" (
      set /a n+=1
      if "!n!"=="1" (echo,%%b) else echo,
    ) else echo,%%b
  ))>$
  Move $ "%%a"&set "n="
)
pause
复制代码

@echo off
for /f "delims=" %%a in ('dir /a-d /b *.txt') do (
  (for /f "usebackq delims=" %%b in ("%%a") do (
    if not defined _%%b (echo,%%b) else echo,
    if "%%b"=="G5.1Q1" set "_G5.1Q1=1"
  ))>$
  Move $ "%%a"&set "_G5.1Q1="
)
pause
复制代码