中国DOS联盟

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

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

中国DOS联盟论坛
现在时间是 2026-08-11 22:46
中国DOS联盟论坛 » DOS批处理 & 脚本技术(批处理室) » 如果一行以数字开头。那么在下一行添加参考答案为 查看 758 回复 4
楼 主 如果一行以数字开头。那么在下一行添加参考答案为 发表于 2009-04-30 04:54 ·  中国 湖北 十堰 电信
初级用户
积分 20
发帖 19
注册 2009-04-20 13:27
17年会员
UID 143372
性别 女
状态 离线
例如:


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 发表于 2009-04-30 05:25 ·  中国 湖北 黄石 电信
中级用户
★★
积分 330
发帖 244
注册 2006-04-14 14:07
20年会员
UID 53823
性别 男
来自 湖北
状态 离线
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 发表于 2009-04-30 05:40 ·  中国 江西 赣州 安远县 电信
银牌会员
★★★★
积分 2,025
发帖 1,122
注册 2007-09-05 20:15
18年会员
UID 96653
性别 男
状态 离线
@echo off
(for /f "delims=" %%a in (a.txt) do (
if "%%a" lss "a" (echo %%a&echo 参考答案为) else echo %%a
))>参考答案为.txt
本帖最近评分记录 (共 2 条) 点击查看详情
评分人分数时间
405285977 +1 2009-04-30 06:59
yishanju +9 2009-05-01 12:30
4 发表于 2009-04-30 06:59 ·  中国 湖北 十堰 电信
初级用户
积分 20
发帖 19
注册 2009-04-20 13:27
17年会员
UID 143372
性别 女
状态 离线
谢谢啦。我也是湖北的。呵呵
5 发表于 2009-04-30 07:35 ·  中国 天津 电信
初级用户
积分 47
发帖 41
注册 2009-04-24 02:17
17年会员
UID 143654
性别 男
状态 离线
3楼的思路很好.
正在学习中……
论坛跳转: