中国DOS联盟论坛

中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --

联盟域名:www.cn-dos.net  论坛域名:www.cn-dos.net/forum
DOS,代表着自由开放与发展,我们努力起来,学习FreeDOS和Linux的自由开放与GNU精神,共同创造和发展美好的自由与GNU GPL世界吧!

游客:  注册 | 登录 | 命令行 | 会员 | 搜索 | 上传 | 帮助 »
中国DOS联盟论坛 » DOS批处理 & 脚本技术(批处理室) » 如果一行以数字开头。那么在下一行添加参考答案为
作者:
标题: 如果一行以数字开头。那么在下一行添加参考答案为 上一主题 | 下一主题
405285977
初级用户





积分 20
发帖 19
注册 2009-4-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.应用肾上腺皮质激素或人工冬眠,减轻中毒症状

2009-4-30 04:54
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
freeants001
中级用户




积分 330
发帖 244
注册 2006-4-14
来自 湖北
状态 离线
『第 2 楼』:  

1.把下面的脚本保存为.js文件,例如:replace.js
2.接着把包含要处理的文件的目录用鼠标[拖到1js文件的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
    }
}


2009-4-30 05:25
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
tireless
银牌会员





积分 2025
发帖 1122
注册 2007-9-5
状态 离线
『第 3 楼』:  


@echo off
(for /f "delims=" %%a in (a.txt) do (
  if "%%a" lss "a" (echo %%a&echo 参考答案为) else echo %%a
))>参考答案为.txt


   此帖被 +10 点积分       点击查看详情   
评分人:【 405285977 分数: +1  时间:2009-4-30 06:59
评分人:【 yishanju 分数: +9  时间:2009-5-1 12:30


2009-4-30 05:40
查看资料  发短消息 网志   编辑帖子  回复  引用回复
405285977
初级用户





积分 20
发帖 19
注册 2009-4-20
状态 离线
『第 4 楼』:  

谢谢啦。我也是湖北的。呵呵

2009-4-30 06:59
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
yangfengoo
初级用户




积分 47
发帖 41
注册 2009-4-24
状态 离线
『第 5 楼』:  

3楼的思路很好.



正在学习中……
2009-4-30 07:35
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复

请注意:您目前尚未注册或登录,请您注册登录以使用论坛的各项功能,例如发表和回复帖子等。


可打印版本 | 推荐给朋友 | 订阅主题 | 收藏主题



论坛跳转: