[文本处理] 批处理如何将目录行索引切分为目录列索引

pan528

材料条件和要求：
1、目录行索引是不断增加的，因此是不确定；
2、考虑通用性，目录列也是可调整的，有一定范围的，如3-15列中的一个。

可能的问题：
1、一定的目录行索引切分为指定的目录列索引，可能不被整除。即需要补空格才能使各列对齐；
2、从阅读习惯上看，对最后一列补齐比较符合一般情况。但：
34行切成11列、28行切成9列、12行切成5列等等情形，光补最后一列就会成为空列。这时就要采用补齐其他列的方法来对齐 ...

材料举例：
目录行索引

最高人民法院公报
1985年
　第01期
　第02期
　第03期
　第04期
1986年
　第01期
　第02期
　第03期
　第04期
1987年
　第01期
　第02期
　第03期
　第04期
1988年
　第01期
　第02期
　第03期
　第04期
1989年
　第01期
　第02期
　第03期
　第04期
复制代码

目录列索引（切分为五列）

最高人民法院公报                1986年                        　第01期                        　第02期                        　第03期       
1985年                        　第01期                        　第02期                        　第03期                        　第04期       
　第01期                        　第02期                        　第03期                        　第04期       
　第02期                        　第03期                        　第04期                        1989年
　第03期                        　第04期                        1988年                        　第01期       
　第04期                        1987年                        　第01期                        　第02期       



目录列索引（切分为三列）

最高人民法院公报		　第03期			　第02期	
1985年			　第04期			　第03期
　第01期			1987年			　第04期	
　第02期			　第01期			1989年
　第03期			　第02期			　第01期
　第04期			　第03期			　第02期
1986年			　第04期			　第03期
　第01期			1988年			　第04期
　第02期			　第01期	
复制代码

目录列索引（切分为五列12/5的特殊情形）
最高人民法院公报                　第02期                        1986年                        　第02期                        　第04期       
1985年                        　第03期                        　第01期                        　第03期                        1987年
　第01期                        　第04期

terse

不是列大于行 3分吗
余数: 34/9 应该余7  7大于行4啊
这里的余数是否 应该  34/4 余 2 ？

你30楼的描述

..三分法就是：在上面二分法的基础上，对切分列数小于每列行数的情形，用另一种方法排列，即把所有空格放在最后一列。...

pan528

回复 49# terse
34/11，34/9都通过了，但是仍二分法，不是三分法：

二分法：
1       5       9       13      17      21      25      29      32
2       6       10      14      18      22      26      30      33
3       7       11      15      19      23      27      31      34
4       8       12      16      20      24      28

三分法：（余数小于每列的行数时，空行全部放在最后一列）
1       5       9       13      17      21      25      29      33
2       6       10      14      18      22      26      30      34
3       7       11      15      19      23      27      31
4       8       12      16      20      24      28      32

terse

有点给数字绕晕的感觉
只能再试着简化下 思路闭塞 总不能突破

@echo off&setlocal enabledelayedexpansion
%1 %0 :|more /t32 >n.txt&exit
set "file=test.txt"
for /f "delims=U" %%a in ('cmd /u /c echo 唉') do set "tab=%%a"
for /f "usebackq tokens=*" %%i in ("%file%") do set /a N+=1&set #!N!=%%i
set L=9
set /a "h=(n+l-1)/l,i=^!(~-l/h),j=^!i*(n%%l)*h+i*n"
for /l %%i in (1 1 !n!) do (
    set /a "i=^!(~-%%i/j),m=(~-%%i-(^!i*j))%%(~-h+i)+1"
    for %%j in (!m!) do set "$%%j=!$%%j!%tab%!#%%i!"
)
for /l %%i in (1 1 !h!) do for /f "tokens=*" %%j in ("!$%%i!") do echo %%j
复制代码

既然MORE 最后回车肯定有 没必要再处理它了吧

@echo off&setlocal enabledelayedexpansion
%1 %0 :|more /t32 >n.txt&exit
set "file=test.txt"
for /f "delims=U" %%a in ('cmd /u /c echo 唉') do set "tab=%%a"
for /f "usebackq tokens=*" %%i in ("%file%") do set /a N+=1&set #!N!=%%i
set L=9
set /a "h=(n+l-1)/l,j=n%%l,i=^!(l/h)"
if !j! equ 0 (set j=!n!)else set /a "j=~-l*h*i+j*h" 
for /l %%i in (1 1 !n!) do (
    set /a "i=^!(~-%%i/j),m=(~-%%i-(^!i*j))%%(~-h+i)+1"
    for %%j in (!m!) do set "$%%j=!$%%j!%tab%!#%%i!"
)
for /l %%i in (1 1 !h!) do for /f "tokens=*" %%j in ("!$%%i!") do echo %%j
复制代码

pan528

回复 47# terse

34/9通过了，34/11又变成了9列，我想算法可能有缺陷或漏洞 ...

terse

回复 30# pan528
也许代码的算法有误
这样吧 你把44楼代码里  if !h! lss !l! set /a j=(n%%l)*h 这里的 LSS 改为GTR 看是否你要的

@echo off&setlocal enabledelayedexpansion
%1 %0 :|more /t32 >n.txt&exit
set L=9
set "file=test.txt"
for /f "delims=U" %%a in ('cmd /u /c echo 唉') do set "tab=%%a"
for /f "usebackq tokens=*" %%i in ("%file%") do set /a N+=1&set #!N!=%%i
set /a h=(n+l-1)/l
if !h! gtr !l! set /a j=(n%%l)*h
if !j! equ 0 set j=!n!
for /l %%i in (1 1 %n%) do (
    set /a "i=^!(~-%%i/j),m=(~-%%i-(^!i*j))%%(~-H+i)+1"
    for %%j in (!m!) do set "$%%j=!$%%j!%tab%!#%%i!"
)
for /l %%i in (1 1 %h%) do for /f "tokens=*" %%j in ("!$%%i!") do echo %%j
复制代码

代码处理流程是这样的
当行大于列 或 行小于列时的输出是不一样的

pan528

你们的代码太精炼了，我许多方面都没有看明白。
我以前写了一个切分文本的代码，很菜。代码很长，很繁琐，方法也简单，拿出来请各位高手改改。
但，我试过好多次，没有出错过。

:: 代码代号含义：
:: k=文本总行数
:: cut=切分的列数
:: x=k/c=每列的行数
:: r=remainder=余数行=k-cx
:: ak=总添加的行数=(cut*(x+1))-k
:: s=记录当前文件需要排列的行数=x或(x+1)
:: s2=少行列=s-ak
:: n=记录当前列输出到第几行
:: m=记录当前输出到第几个文件

@echo off
title 切分文本程序（三分法）

set file=a
set Cut=9
setlocal enabledelayedexpansion
for /f "delims=" %%a in (%file%.txt) do set/a k+=1
set /a x=%k%/%Cut%
set /a r=%k%-%Cut%*%x%
set /a ak=(%Cut%*(%x%+1))-%k%
set m=
set m=1
set n=
for /f "delims=" %%i in (%file%.txt) do (
set /a n+=1
	if !r! leq 0 (
	set /a s=%x%
	if !n! leq !s! echo %%i>>%file%_!m!.txt
	if !n! equ !s! set n=0 & set /a m+=1
		) else (
		set /a s=%x%+1
		if !ak! lss !s! (
		if !n! leq !s! echo %%i>>%file%_!m!.txt
		if !n! equ !s! set n=0 & set /a m+=1
		if !m! equ !cut! set /a s2=!s!-!ak!
		if !n! equ !s2! for /l %%i in (1,1,%ak%) do echo.>>%file%_!cut!.txt
			) else (
			if !m! leq !r! (
			if !n! leq !s! echo %%i>>%file%_!m!.txt
			if !n! equ !s! set n=0 & set /a m+=1
				) else (
				if !m! gtr !r! if !n! leq !x! echo %%i>>%file%_!m!.txt
				if !m! gtr !r! if !n! equ !x! echo.>>%file%_!m!.txt
				if !n! equ !x! set n=0 & set /a m+=1
					)
				)
			)
		)
endlocal
goto:eof
复制代码

pan528

回复 44# terse

回车没有剔除，我还发现一个新问题：所有代码在34/9时都变成了二分法！即：
1    5    9    13   17   21   25   29   32
2    6    10   14   18   22   26   30   33
3    7    11   15   19   23   27   31   34
4    8    12   16   20   24   28
而三分法应为：
1    5    9    13   17   21   25   29   33
2    6    10   14   18   22   26   30   34
3    7    11   15   19   23   27   31
4    8    12   16   20   24   28   32
我怀疑是算法有问题。
各位高手找找原因吧。

terse

你是指最后的回车行是MORE留下的吧
代码再少点变量
另补上exit

@echo off&setlocal enabledelayedexpansion
%1 %0 :|more /t32 >n.txt&exit
set L=9
set "file=a.txt"
for /f "delims=U" %%a in ('cmd /u /c echo 唉') do set "tab=%%a"
for /f "usebackq tokens=*" %%i in ("%file%") do set /a N+=1&set #!N!=%%i
set /a h=(n+l-1)/l,j=n
if !h! lss !l! set /a j=(n%%l)*h 
for /l %%i in (1 1 %n%) do (
    set /a "i=^!(~-%%i/j),m=(~-%%i-(^!i*j))%%(~-H+i)+1"
    for %%j in (!m!) do set "$%%j=!$%%j!%tab%!#%%i!"
)
for /l %%i in (1 1 %h%) do for /f "tokens=*" %%j in ("!$%%i!") do echo %%j
复制代码

pan528

回复 41# terse

测试通过！是三分法。不过最后多了一个回车，不知问题出在哪？

terse

唉 惭愧我的理解力  但楼主的表达也太那个了  
都和我一样 国语学得不好

terse

回复 40# xxpinqz
再仔细回看前面 猜真这次应该理解了
先粗糙一个
感觉代码写得太啰嗦   等下再看有 优化的可能不

@echo off&setlocal enabledelayedexpansion
%1 %0 REM|more /t32 >n.txt
set L=5
set "file=a1.txt"
for /f "delims=U" %%a in ('cmd /u /c echo 唉') do set "tab=%%a"
for /f "usebackq tokens=*" %%i in ("%file%") do set /a N+=1&set #!N!=%%i
set /a h=(n+l-1)/l,j=n,i=1
if !h! lss !l! set /a j=(n%%l)*H
for /l %%i in (1 1 %n%) do (
    set /a "t=^!^!(~-%%i/j)"
    set /a "m=(~-%%i-(t*j))%%(~-H+i*^!t)+1"
    for %%j in (!m!) do set "$%%j=!$%%j!%tab%!#%%i!"
)
for /l %%i in (1 1 %h%) do for /f "tokens=*" %%j in ("!$%%i!") do echo %%j
复制代码

xxpinqz

回复 39# terse
话说我的数学就是加减乘除 ，所以算法吃不透，目测26楼代码是按输完一列再接着输下一列的按顺序输出
所以判断是否所谓三分也应该要用n/l来判断，而非0。
扯了3页，就下面两句是亮点：
8楼的set /a 行数=(n+列数-1)/ 列数
26楼的set /a "m=(%%i--~j)%%_i+1"
向两位高手致敬~~

terse

我目前 最直观的解  set /a 行=(总行+列-1)/列,余=(总行%%列)*行
得到 行 和 余的值
只要在 FOR 循环  判断总行 和 余 关系 应该够解了吧

CrLf

我早先是靠测试弄懂了楼主的规则，但是没有好的思路，想法太繁琐，应该有更好的就题解题算法，目测 plp626 能手到擒来