中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --
联盟域名：www.cn-dos.net　论坛域名：www.cn-dos.net/forum

游客 | 登录 | 注册 | 会员 | 搜索 | 中国DOS联盟

中国DOS联盟论坛
现在时间是 2026-08-11 18:26

共 47,811 主题排行 / 349,897 发帖 / 今日 0 篇 / 48,256 会员排行

DOS批处理 & 脚本技术（批处理室） » 区别每行汉字开头还是非汉字开头。并自动整理

可打印版本　751 / 10

第1楼　405285977	发表于 2009-04-21 03:35
初级用户　发帖 19　积分 20
区别每行汉字开头还是非汉字开头。并自动整理区别每行汉字开头还是非汉字开头。并自动整理我有一些文本1.txt。内容如下：干眼症患者的渗透压是： 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．口服乙酰唑胺可出现我希望题目都是一行。这样方便我整理。希望批处理的功能整理为 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．口服乙酰唑胺可出现思路是每行第一个字母只能是数字或字母。如果是汉字。则自动cut这一段汉字到上一行。谢谢大大们解答。

第2楼　yishanju	发表于 2009-04-21 04:00
银牌会员　发帖 1,357　积分 1,488
干眼症患者的渗透压是： 1．干眼症患者的渗透压是这个是不是弄错，多打了一行

第3楼　405285977	发表于 2009-04-21 04:04
初级用户　发帖 19　积分 20
恩。原始文本应该是 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．口服乙酰唑胺可出现就是首字只能是数字或字母。。。

第4楼　yishanju	发表于 2009-04-21 04:49
银牌会员　发帖 1,357　积分 1,488
思路如果回车换行之后的字符不是字母或者数字，就把回车换行丢掉 @echo off copy a.txt 1.txt /y fr 1.txt -rnnlic:"(\r\n)()" -t:"\2" start 1.txt pause FR 下载： http://baiy.cn/utils/fr/index.htm

第5楼　405285977	发表于 2009-04-21 04:59
初级用户　发帖 19　积分 20
谢谢啦。可以了。呵呵。专业学的不一样。思路也差这么远。还是学计算机的牛。。。

第6楼　freeants001	发表于 2009-04-21 05:02
中级用户　发帖 244　积分 330　来自湖北
sed ":a;$!N;s/\n\([\x80-\xFF]\)/\1/;ta;P;D" aa.txt

第7楼　netbenton	发表于 2009-04-21 14:00
银牌会员　发帖 752　积分 1,916　来自广西
@echo off&setlocal enabledelayedexpansion set add= for /f "delims=" %%a in (1.txt) do (set "str=%%a"&call :sub) echo !add! pause goto :eof :sub set one=!str:~,1! if !one! gtr zz (set "add=!add!!str!") else (echo.!add!&set add=!str!)

第8楼　jmz573515	发表于 2009-04-21 21:51
银牌会员　发帖 464　积分 1,212
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

第9楼　freeants001	发表于 2009-04-22 00:29
中级用户　发帖 244　积分 330　来自湖北
fso=WScript.createobject("scripting.filesystemobject"); sss=fso.opentextfile("1.txt").readall(); re=/\r\n(?=)/g sss=sss.replace(re,""); fso.createtextfile("1_dest.txt",1,0).write(sss) [ Last edited by freeants001 on 2009-4-22 at 00:32 ]

第10楼　405285977	发表于 2009-04-22 05:55
初级用户　发帖 19　积分 20
谢谢大家了。。。

第11楼　yishanju	发表于 2009-04-22 09:03
银牌会员　发帖 1,357　积分 1,488
这个帖子值得收藏了

[ 联系联盟系统管理团队 - 中国DOS联盟 - 标准版 ]
Sponsored by ifanr Inc | © 2001–2023