terse

是不是 有50个xxx.gs
如果是 那就是要修改子文件夹里的 xxx.gs 吗？

terse

按一楼新要求 修改 不保证代码的通用行 运行代码前 请先备份总文件夹下的所有文件

@echo off&setlocal enabledelayedexpansion
set "ph=d:\123\"
cd /d "%ph%"
for /f "tokens=*" %%i in ('dir /s /b /a-d "%ph%*.ctl"') do (
    for /f "usebackq tokens=1,2" %%j in ("%%~i") do if /i "%%j"=="tdef" set "N=%%k"
    (for /f "usebackq tokens=*" %%j in ("cp.gs") do (
        set "Str=%%j"
        if "%%~xj" neq ".ctl'" (
           if "!str:~,9!" neq "while(i<=" (
              if "!str:~,9!" equ "'printim " (echo 'printim %%~dpi%%~nxj)else echo %%j
           ) else echo while^(i^<=!N!^)
        ) else echo 'open %%i'
    ))>"~temp.mp"
    move "~temp.mp" "%ph%cp.gs"
    grads -blc "%ph%cp.gs"
)
pause
复制代码

terse

回复 28# cjiabing
看了下版主代码 觉得下面这句有疑惑

if "%%i"=="'open d:\chenp\cccc.ctl'" set var=!var:\cccc.ctl=\%%~na.ctl!——这个是修改文件名的。
复制代码

你给这里的条件是 if "%%i"=="'open d:\chenp\cccc.ctl'"  但实际不定的  也就是并不一定是 “d:\chenp\cccc.ctl”

terse

回复 31# cpp
假设总文件夹在 D:\123\   (执行时自行修改)
另grads 程序不在D:\123\ 下  那么应该给出路径
前面代码 一并修改

@echo off&setlocal enabledelayedexpansion
set "ph=d:\123\"
cd /d "%ph%"
for /f "tokens=*" %%i in ('dir /s /b /a-d "%ph%*.ctl"') do (
    for /f "usebackq tokens=1,2" %%j in ("%%~i") do if /i "%%j"=="tdef" set "N=%%k"
    (for /f "usebackq tokens=*" %%j in ("cp.gs") do (
        set "Str=%%j"
        if "%%~xj" neq ".ctl'" (
           if "!str:~,9!" neq "while(i<=" (
              if "!str:~,9!" equ "'printim " (echo 'printim %%~dpi%%~nxj)else echo %%j
           ) else echo while^(i^<=!N!^)
        ) else echo 'open %%i'
    ))>"~temp.mp"
    move "~temp.mp" "%ph%cp.gs"
    grads -blc "%ph%cp.gs"
)
pause
复制代码

terse

回复 39# cpp
不确定你那边情况
我这里测试了一下 循环50 主文件夹下CP.GS内容 更改50次
也没办法获得你那边更多详情 我给出测试前后文件对比 你看下  是否有文件路径问题或其他问题

'reinit'
'open d:\123\hcflmup9\cflm.ctl'
'set parea 1 10 1 7.5'
'set xlopts 1 4 0.1'
'set ylopts 1 4 0.1'
i=1
while(i<=5)
'printim d:\123\hcflmup9\700h_'time'.png white'
复制代码

运行一次后 修改如下 循环下去  每次修改的

'reinit'
'open d:\123\76lk9bi0\6lk9.ctl'
'set parea 1 10 1 7.5'
'set xlopts 1 4 0.1'
'set ylopts 1 4 0.1'
i=1
while(i<=6)
'printim d:\123\76lk9bi0\700h_'time'.png white'