
CODE: [Copy to clipboard]我希望题目都是一行。这样方便我整理。希望批处理的功能整理为干眼症患者的渗透压是:
1.干眼症患者
的渗透压是
A.大于305m Osm/L
B.等于300m Osm/L
C.小于300m Osm/L
D.等于312m Osm/L
E.大于312m Osm/L
2.角巩膜缘的
宽度
约为
A.0.9mm
B.1mm
C.0.5mm
D.1.2mm
E.O.75mm
3.口服乙酰唑胺可
出现
CODE: [Copy to clipboard]思路是每行第一个字母只能是数字或字母。如果是汉字。则自动cut这一段汉字到上一行。1.干眼症患者的渗透压是
A.大于305m Osm/L
B.等于300m Osm/L
C.小于300m Osm/L
D.等于312m Osm/L
E.大于312m Osm/L
2.角巩膜缘的宽度约为
A.0.9mm
B.1mm
C.0.5mm
D.1.2mm
E.O.75mm
3.口服乙酰唑胺可出现
CODE: [Copy to clipboard]set fso=createobject("scripting.filesystemobject")
set file=fso.opentextfile("1.txt")
s=file.readall
file.close
do until instr(s,vbcrlf)=0
i=instr(s,vbcrlf)
if instr("123456789ABCDEFGHIZKLMNOPQRSTUVWXYZabcdefghizklmnopqrstuvwxyz",mid(s,i+2,1))<>0 then
sm=sm&left(s,i) & vbcrlf
else
sm=sm & left(s,i-1)
end if
s=mid(s,i+2)
loop
wscript.echo sm
CODE: [Copy to clipboard][ Last edited by freeants001 on 2009-4-22 at 00:32 ]fso=WScript.createobject("scripting.filesystemobject");
sss=fso.opentextfile("1.txt").readall();
re=/\r\n(?=[\u4E00-\u9FA5])/g
sss=sss.replace(re,"");
fso.createtextfile("1_dest.txt",1,0).write(sss)
| 欢迎光临 中国DOS联盟论坛 (http://cndos.fam.cx/forum/) | Powered by Discuz! 2.5 |