批处理怎么让语句自动换行，自动去标点符号？

laimao · 发表于 2010-12-19 20:27:42

批处理如何让语句自动随机字数（4-6个）换行，自动去标点符号和空格还有数字?

例文章：

据中国之声《新闻晚高峰》报道，住建部最近发布了新版《商品房屋租赁管理办法》，对市场中将房屋分拆、隔断“化整为零”群租行为明令禁止，打隔断出租最高将罚3万。新规将于2011年2月1日施行。新规实施后，隔断间的广大租户将何去何从？

批处理后：

据中国之
声新闻晚高峰
报道住建部最
近发布了新
版商品房
屋租赁管理办
法对市场中
...
直到文章结束

请高手出手帮助！

[ 本帖最后由 laimao 于 2010-12-20 19:16 编辑 ]

laimao · 发表于 2010-12-20 19:10:38

Ding. Shang. Qu

laimao · 发表于 2010-12-20 20:56:31

能不能实现啊？帮帮忙啊。。。

ithinkican · 发表于 2010-12-20 21:41:27

稍候…等写出来后测试通过

laimao · 发表于 2010-12-20 21:49:25

谢谢我等着！！！！！

hanyeguxing · 发表于 2010-12-20 22:31:41

到 http://bbs.bathome.net/forum-22-1.html 这里找sed命令行工具的下载
源文件1.txt
输出文件2.txt

@echo off
sed "s/[0-9]//g; s/[，。？！《》（）“”、…—]//g" "1.txt">Hanye.h
chcp 936 >nul&graftabl 936 >nul
for /f "delims=" %%a in (Hanye.h) do call:Han "%%a"
del /q Hanye.h
exit
:Han:初始化
set "Ye=%~1"
setlocal enabledelayedexpansion
:Ye:循环分隔单行
set/a Xing=%random%%%3+4
>>"2.txt" echo !Ye:~%Gu%,%Xing%!
set/a Gu+=%Xing%
if not "!Ye:~%Gu%!"=="" goto:Ye
Endlocal

复制代码

[ 本帖最后由 hanyeguxing 于 2010-12-20 22:43 编辑 ]

ithinkican · 发表于 2010-12-20 23:41:16

没有能在不使用第三方工具的情况下写出来、下面是写的片段以做参考:

@echo off
SetLocal EnableDelayEdexpansion
:p
set /a r=%random:~-1%
if !r! lss 4 goto p
if !r! gtr 6 goto p
::以上是随机截取4 - 6 三个数
for /f "delims=、.:;"-=+!()<>?/\|~ tokens=1-20" %%a in (a.txt) do @echo %%a %%b %%c %%d %%e
pause>nul
::本人不依靠第三方工具,水平有限。以上代码仅做参考,我也很菜。

laimao · 发表于 2010-12-21 00:01:51

你的这个段代码生成出来的2.txt 显示的会是乱码是什么原因如何解决呢。

laimao · 发表于 2010-12-21 00:02:25

很感谢！但不知道怎么用。。。

laimao · 发表于 2010-12-21 03:54:44

另外问下如何去换行符

例：

1

3

3

批处理后：

1
3
3

jixun66 · 发表于 2010-12-21 05:05:38

文本内容在1.txt

for /f "tokens=1*" %%i in (1.txt) do echo %%i

复制代码

ithinkican · 发表于 2010-12-21 11:00:49

sed为第三方命令行工具、如果没有安装则无法正常使用…

ithinkican · 发表于 2010-12-21 11:08:05

经学习Han…的代码:固定范围内随机取值后,比本人写的代码简洁、高效。特研究一番。
%random%%%3+4(随机取值除3的余数再加4,所以随机在4-6间)(可叁照此例拓展使用)

lvsehuaxue · 发表于 2010-12-21 12:17:03

@echo off&setlocal enabledelayedexpansion
set "str=据中国之声《新闻晚高峰》报道，住建部最近发布了新版《商品房屋租赁管理办法》，
对市场中将房屋分拆、隔断“化整为零”群租行为明令禁止，打隔断出租最高将罚3万。新规将于
2011年2月1日施行。新规实施后，隔断间的广大租户将何去何从？"
for %%a in (，、？《》。 “ ” …… ！ 0 1 2 3 4 5 6 7 8 9) do set str=!str:%
%a=!
:lp
set /a v=%random%%%3+4
if "%str%" neq "" (
set str1=!str:~,%v%!
echo !str1!
set str=!str:~%v%!
goto lp
)
pause

复制代码

laimao · 发表于 2010-12-21 15:44:01

您的这个去换行不行哦。。。

		自动登录	找回密码
密码			注册

[新手上路]批处理新手入门导读	[视频教程]批处理基础视频教程	[视频教程]VBS基础视频教程	[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动	[批处理精品]CMD命令50条不能说的秘密	[在线下载]第三方命令行工具	[在线帮助]VBScript / JScript 在线参考

[文本处理] 批处理怎么让语句自动换行，自动去标点符号？

相关帖子

正在编写…

回复 4楼的帖子

本人才疏学浅…

回复 6楼的帖子

回复 7楼的帖子

回复 10楼的帖子

不使用第三方也可以

回复 11楼的帖子

[文本处理] 批处理怎么让语句自动换行，自动去标点符号？

相关帖子

正在编写…

回复 4楼 的帖子

本人才疏学浅…

回复 6楼 的帖子

回复 7楼 的帖子

回复 10楼 的帖子

不使用第三方也可以

回复 11楼 的帖子

回复 4楼的帖子

回复 6楼的帖子

回复 7楼的帖子

回复 10楼的帖子

回复 11楼的帖子