如果一行以数字开头。那么在下一行添加参考答案为 - 中国DOS联盟论坛

1.把下面的脚本保存为.js文件,例如:replace.js
2.接着把包含要处理的文件的目录用鼠标1中js文件的l图标上

说明:
1. 脚本将批量处理你拖放的目录(不包括子目录,可以自已开启)
2.处理后的文件在js文件所在目录下的#jscript#目录下
3.如果开启子目录功能,处理后的目录结构和原目录相同.
3.只要修改下脚本中的正则表达式,WINDOWS下的文件本处理基本可以解决.

var re=/txt/;          //要处理的文件类型
CONVERT_SUBS=false;    //是否处理子目录
fso=new ActiveXObject("Scripting.FileSystemObject");
if(WScript.arguments.length!=1)WScript.quit();
else{
    if(!fso.FolderExists(WScript.arguments(0))){
    WScript.echo("必须为目录！");WScript.quit();}
    PathSpec=WScript.arguments(0);
}
WshShell=WScript.CreateObject("WScript.Shell");
WshShell.CurrentDirectory=fso.GetParentFolderName(WScript.ScriptFullName);
if(!fso.FolderExists("#JSCRIPT#"))fso.CreateFolder("#JSCRIPT#");
WshShell.CurrentDirectory="#JSCRIPT#"
Main(PathSpec);
WScript.quit();

function Main(FileSpec){
    var fld,fs,fds,f,fd,curdir;
    curdir=fso.GetBaseName(FileSpec);
    if(!fso.FolderExists(curdir))fso.CreateFolder(curdir);
    curdir=fso.GetAbsolutePathName(curdir);   
    WshShell.CurrentDirectory=curdir; 
    fld = fso.getfolder(FileSpec);
    fds = new Enumerator(fld.subfolders);
    fs = new Enumerator(fld.files)
    for(;!fs.atEnd();fs.moveNext()){
        f=fs.item();if(f.size==0)continue;
        if(re.test(fso.getextensionname(f.name).toLowerCase( ))){
            var fl=fso.opentextfile(f.path,1,false,-2);
            var sss=fl.readall();fl.close();

//////////////////对每个文件执行以下正则表达式查找替换//////////////////////////
            sss=sss.replace(/^(\d.*\r\n)/gmi,"$1参考答案为\r\n");
////////////////////////////////////////////////////////////////////////////////

            var fl=fso.createtextfile(fso.GetBaseName(f.path)+".txt",true,true);
            fl.write(sss);fl.close();
        }      
    }
    if(CONVERT_SUBS)
    for(;!fds.atEnd();fds.moveNext()){
        d=fds.item();
        Main(d.path);
        WshShell.CurrentDirectory=curdir
    }
}

第1楼　405285977	发表于 2009-04-30 04:54
初级用户　发帖 19　积分 20
如果一行以数字开头。那么在下一行添加参考答案为例如： 140.为确诊其再次高热原因，宜 A.胸部X线平片 B.抽血做普通细菌学检查 C.抽血作真菌检查和培养 D.抽血作厌氧性培养 E.抽骨髓作细菌培养 141.如该病人上述诊断成立，应如何处理 A.加大原抗生素药的剂量 B.输血，进行抗休克治疗 C.联合使用物理和化学疗法降温 D.停止使用原广谱抗生素，改全身应用抗真菌药物 E.应用肾上腺皮质激素或人工冬眠，减轻中毒症状修改后效果为： 140.为确诊其再次高热原因，宜参考答案为 A.胸部X线平片 B.抽血做普通细菌学检查 C.抽血作真菌检查和培养 D.抽血作厌氧性培养 E.抽骨髓作细菌培养 141.如该病人上述诊断成立，应如何处理参考答案为 A.加大原抗生素药的剂量 B.输血，进行抗休克治疗 C.联合使用物理和化学疗法降温 D.停止使用原广谱抗生素，改全身应用抗真菌药物 E.应用肾上腺皮质激素或人工冬眠，减轻中毒症状

第2楼　freeants001	发表于 2009-04-30 05:25
中级用户　发帖 244　积分 330　来自湖北
1.把下面的脚本保存为.js文件,例如:replace.js 2.接着把包含要处理的文件的目录用鼠标1中js文件的l图标上说明: 1. 脚本将批量处理你拖放的目录(不包括子目录,可以自已开启) 2.处理后的文件在js文件所在目录下的#jscript#目录下 3.如果开启子目录功能,处理后的目录结构和原目录相同. 3.只要修改下脚本中的正则表达式,WINDOWS下的文件本处理基本可以解决. var re=/txt/; //要处理的文件类型 CONVERT_SUBS=false; //是否处理子目录 fso=new ActiveXObject("Scripting.FileSystemObject"); if(WScript.arguments.length!=1)WScript.quit(); else{ if(!fso.FolderExists(WScript.arguments(0))){ WScript.echo("必须为目录！");WScript.quit();} PathSpec=WScript.arguments(0); } WshShell=WScript.CreateObject("WScript.Shell"); WshShell.CurrentDirectory=fso.GetParentFolderName(WScript.ScriptFullName); if(!fso.FolderExists("#JSCRIPT#"))fso.CreateFolder("#JSCRIPT#"); WshShell.CurrentDirectory="#JSCRIPT#" Main(PathSpec); WScript.quit(); function Main(FileSpec){ var fld,fs,fds,f,fd,curdir; curdir=fso.GetBaseName(FileSpec); if(!fso.FolderExists(curdir))fso.CreateFolder(curdir); curdir=fso.GetAbsolutePathName(curdir); WshShell.CurrentDirectory=curdir; fld = fso.getfolder(FileSpec); fds = new Enumerator(fld.subfolders); fs = new Enumerator(fld.files) for(;!fs.atEnd();fs.moveNext()){ f=fs.item();if(f.size==0)continue; if(re.test(fso.getextensionname(f.name).toLowerCase( ))){ var fl=fso.opentextfile(f.path,1,false,-2); var sss=fl.readall();fl.close(); //////////////////对每个文件执行以下正则表达式查找替换////////////////////////// sss=sss.replace(/^(\d.*\r\n)/gmi,"$1参考答案为\r\n"); //////////////////////////////////////////////////////////////////////////////// var fl=fso.createtextfile(fso.GetBaseName(f.path)+".txt",true,true); fl.write(sss);fl.close(); } } if(CONVERT_SUBS) for(;!fds.atEnd();fds.moveNext()){ d=fds.item(); Main(d.path); WshShell.CurrentDirectory=curdir } }

第3楼　tireless	发表于 2009-04-30 05:40
银牌会员　发帖 1,122　积分 2,025
@echo off (for /f "delims=" %%a in (a.txt) do ( if "%%a" lss "a" (echo %%a&echo 参考答案为) else echo %%a ))>参考答案为.txt

第4楼　405285977	发表于 2009-04-30 06:59
初级用户　发帖 19　积分 20
谢谢啦。我也是湖北的。呵呵

第5楼　yangfengoo	发表于 2009-04-30 07:35
初级用户　发帖 41　积分 47
3楼的思路很好.