@echo off&setlocal enabledelayedexpansion
for /r %%a in (*.ctl) do (
    for /f "usebackq tokens=1,2" %%x in ("%%~a") do if /i "%%x"=="tdef" set "str=%%y"
    for /f "tokens=*" %%i in (xxx.gs) do (
        set "var=%%i"
        if "%%i"=="'open d:\chenp\cccc.ctl'" set var=!var:\cccc.ctl=\%%~na.ctl!
        if "%%i"=="while(i<=6)" set "var=while(i<=!str!)"
        for /d  %%l in (*) do set var=!var:d:\chenp\700h_=%%~nl\700h_!
        echo;!var!
    )
)&echo;&echo;
pause
 
复制代码

@echo off&setlocal enabledelayedexpansion
for /r %%a in (*.ctl) do (
for /f "usebackq tokens=1,2" %%x in ("%%~a") do if /i "%%x"=="tdef" set "str=%%y"
for /f "tokens=*" %%i in (xxx.gs) do (
set "var=%%i"
if "%%i"=="'open d:\chenp\cccc.ctl'" set var=!var:\cccc.ctl=\%%~na.ctl!
if "%%i"=="while(i<=6)" set "var=while(i<=!str!)"
for /d %%l in ("%%~dpa") do set "var=!var:d:\chenp\700h_=%%~fl700h_!"
echo;!var!
)>>new_xxx.gs
pause
echo grads -blc "%~dp1new_xxx.gs"
del /f new_xxx.gs>nul 2>nul
)
pause
复制代码

@echo off&setlocal enabledelayedexpansion
for /r %%a in (*.ctl) do (
    for /f "usebackq tokens=1,2" %%x in ("%%~a") do if /i "%%x"=="tdef" set "str=%%y"
    for /f "tokens=*" %%i in (xxx.gs) do (
        set "var=%%i"
        if "%%i"=="'open d:\chenp\cccc.ctl'" set var=!var:\cccc.ctl=\%%~na.ctl!
        if "%%i"=="while(i<=6)" set "var=while(i<=!str!)"
        for /d  %%l in ("%%~dpa") do  set "var=!var:d:\chenp\700h_=%%~fl700h_!"
        echo;!var!
    )>>new_xxx.gs
pause
    echo grads -blc "%~dp1new_xxx.gs"
    del /f new_xxx.gs>nul 2>nul
)
pause
复制代码

@set @n=0/*& echo off
set "folder=d:\总文件夹"
copy /y xxx.gs xxx.gs.bak
cscript.exe -e:jscript "%~f0" "%folder%" || (pause&exit/b)
echo grads -blc "%folder%\xxx.gs"
rem do something you like.

exit/b
*/

folder = WScript.Arguments(0);
file = folder + "\\xxx.gs";
strQuery = "select name from CIM_DataFile where "
    + " drive='" + folder.substr(0,2) + "' and "
    + " path like '" + folder.substr(2).replace(/\\/g,'\\\\') + "\\\\%'"
    + " and extension='ctl'";
wmi = new ActiveXObject("WbemScripting.SWbemLocator").ConnectServer();
colFiles = wmi.ExecQuery(strQuery, "WQL", 48);
e = new Enumerator(colFiles);
arrFiles = [];
for (; !e.atEnd(); e.moveNext())  arrFiles.push(e.item().name);
txt = readtext(file);
i = 0;
txt = txt.replace(/^'open ([^']+)|^while\(i<=(\d+)\)/gm, 
  function(s0,s1,s2){
    if (s1) return s0.replace(s1, arrFiles[i]);
    else return s0.replace(s2, 
        readtext(arrFiles[i++]).match(/^tdef (\d+) linear/m)[1]);
  });
writetext(file, txt);

function readtext(file, charset)
{
    var text;
    var aso = new ActiveXObject('ADODB.Stream');
    aso.Mode = 3;
    aso.Type = 2;
    if (charset) aso.Charset = charset;
    else aso.Charset = 'gbk';
    aso.Open();
    aso.LoadFromFile(file);
    text = aso.ReadText(-1);
    aso.Close();
    aso = null;
    return text;
}

function writetext(file, text, charset)
{
    var aso = new ActiveXObject('ADODB.Stream');
    aso.Mode = 3;
    aso.Type = 2;
    if (charset) aso.Charset = charset;
    else aso.Charset = 'gbk';
    aso.Open();
    aso.WriteText(text);
    aso.SaveToFile(file, 2);
    aso.Close();
    aso = null;
}
复制代码

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

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

 
@echo off&setlocal enabledelayedexpansion
::把xxx.gs、grads和本批处理都放在同一目录下运行。
::xxx.gs是标准，你不能随意修改，特别是d:\chenp这个路径。
for /r %%a in (*.ctl) do (
    for /f "usebackq tokens=1,2" %%x in ("%%~a") do if /i "%%x"=="tdef" set "str=%%y"
    for /f "tokens=*" %%i in (xxx.gs) do (
        set "var=%%i"
        if "%%i"=="'open d:\chenp\cccc.ctl'" set var=!var:d:\chenp\cccc.ctl=d:\chenp\%%~na.ctl!
        if "%%i"=="while(i<=6)" set "var=while(i<=!str!)"
        for /d  %%l in ("%%~dpa") do  set "var=!var:d:\chenp\700h_=%%~fl700h_!"
        echo;!var!
    )>>"%~dp0new_xxx.gs"
    grads -blc "%~dp0new_xxx.gs"
    del /f "%~dp0new_xxx.gs">nul 2>nul
)
pause
复制代码

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

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