Board logo

标题: 如果一行以数字开头。那么在下一行添加参考答案为 [打印本页]

作者: 405285977     时间: 2009-4-30 04:54    标题: 如果一行以数字开头。那么在下一行添加参考答案为

例如:


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.应用肾上腺皮质激素或人工冬眠,减轻中毒症状
作者: freeants001     时间: 2009-4-30 05:25
1.把下面的脚本保存为.js文件,例如:replace.js
2.接着把包含要处理的文件的目录用鼠标[拖到1js文件的l图标

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

作者: tireless     时间: 2009-4-30 05:40
CODE:  [Copy to clipboard]
@echo off
(for /f "delims=" %%a in (a.txt) do (
  if "%%a" lss "a" (echo %%a&echo 参考答案为) else echo %%a
))>参考答案为.txt

作者: 405285977     时间: 2009-4-30 06:59
谢谢啦。我也是湖北的。呵呵
作者: yangfengoo     时间: 2009-4-30 07:35
3楼的思路很好.




欢迎光临 中国DOS联盟论坛 (http://cndos.fam.cx/forum/) Powered by Discuz! 2.5