标题: 如果一行以数字开头。那么在下一行添加参考答案为 [打印本页]
作者: 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.应用肾上腺皮质激素或人工冬眠，减轻中毒症状
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.接着把包含要处理的文件的目录用鼠标1中js文件的l图标上
说明:
1. 脚本将批量处理你拖放的目录(不包括子目录,可以自已开启)
2.处理后的文件在js文件所在目录下的#jscript#目录下
3.如果开启子目录功能,处理后的目录结构和原目录相同.
3.只要修改下脚本中的正则表达式,WINDOWS下的文件本处理基本可以解决.
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
}
}作者: tireless 时间: 2009-4-30 05:40
@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楼的思路很好.