批处理之家 - Powered by Discuz! Board

标题: [文本处理] [已解决]批处理怎么算不同搭配组数问题 [打印本页]

作者: necn33 时间: 2015-3-27 22:44 标题: [已解决]批处理怎么算不同搭配组数问题

怎么算不同搭配组数问题
如 123 两个数字一组的话
就有 12 13 23 三个组
12345 两个数字一组的话
就有 12 13 14 15 21 23 24 25 31 等这些组

数字为0-9

如 :a.txt 有 123 456 ...等等

结果：b.txt 就有 12 13 23 45 46 56.....等等三个组生成的文本b.txt 删除重复竖着排列

小弟刚到贵论坛多指教下在此先感谢各路大侠

作者: bailong360 时间: 2015-3-27 22:59

本帖最后由 bailong360 于 2015-3-27 23:55 编辑

@Echo Off
SetLocal EnableDelayedExpansion
For /F "Delims=" %%i In (a.txt) Do Set N=%%i&Call :Loop
Exit
:Loop
Set Num=%Num% %N:~0,1%
Set N=%N:~1%
If Not "%N%"=="" Goto Loop
(For %%i In (%Num%) Do (
	Set Num=!Num:%%i=!
	For %%j In (!Num!) Do (
		If Not Defined _%%i%%j (
			Set _%%i%%j=0
			Echo %%i%%j
		)
	)
))>>b.txt
复制代码

已修改

作者: necn33 时间: 2015-3-27 23:16

回复 2# bailong360

刚才我没描述清楚 a.txt 有若干行测试1楼的代码后生成的b.txt只有一个

作者: bailong360 时间: 2015-3-27 23:31

回复 3# necn33

已修改

作者: necn33 时间: 2015-3-27 23:43

回复 4# bailong360

能否删重复竖向排列呢

作者: pcl_test 时间: 2015-3-28 00:10

回复 1# necn33
问题得到解决后请在标题最前面注明[已解决]
http://www.bathome.net/thread-3473-1-1.html

作者: CrLf 时间: 2015-3-28 11:01

回复 6# pcl_test

100 技术分可以换书了嗷

欢迎光临批处理之家 (http://bbs.bathome.net/)