中国DOS联盟

将文本纵向显示.

a.txt内容如下:
a b c d e f
h i j k l m n
1 2 3 4 5
6 7 8 9 10 11 12 13 14 15
a s d
11 12 13 14 15

要求输出结果如下
a h 1 6 a 11
b i 2 7 s 12
c j 3 8 d 13
d k 4 9 14
e l 5 10 15
f m 11
n 12
13
14
15

BAT我觉得不能实现，或者说很难实现。
脚本的话，定义个2维数组，然后转置输出即可。

效率是比较低的了：
@echo off for /f "delims=" %%i in (test.txt) do ( set /a n+=1 call set "str%%n%%=%%i " ) for /l %%i in (1 1 10) do call :join pause>nul :split obj call set "var=%%%1%%" if "%var%"=="" set "str=" &goto :eof for %%i in (%var%) do ( set "str=%%i" call set "%1=%%var:* =%%" goto :eof ) :join set "tmp=" for /l %%i in (1 1 %n%) do ( call :split str%%i call set tmp=%%tmp%% %%str%% ) echo.%tmp%

没想到P的代码也不是很复杂……我把VBS的也贴上吧

Const ForReading = 1
Const ForWriting = 2
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile("In.txt",ForReading)

Dim InputStr,lineIndex,TempArr,OutArr(100,100)

Do Until objFile.AtEndOfStream
InputStr = objFile.ReadLine
TempArr = Split(InputStr," ")
If UBound(TempArr) > MaxY Then MaxY = UBound(TempArr)
For i = 0 To UBound(TempArr)
OutArr(lineIndex,i) = TempArr(i)
Next
lineIndex = lineIndex + 1
Loop

objFile.Close
Set objFile = objFSO.OpenTextFile("Out.txt",ForWriting,True)
For i = 0 To MaxY
For j = 0 To lineIndex - 1
If OutArr(j,i) = "" Then OutArr(j,i) = " "
OutStr = OutStr & OutArr(j,i) & " "
Next
objFile.WriteLine OutStr
OutStr = ""
Next
objFile.Close

Set objFile = Nothing
Set objFSO = Nothing
a h 1 6 a 11 b i 2 7 s 12 c j 3 8 d 13 d k 4 9 14 e l 5 10 15 f m 11 n 12 13 14 15

　　来段效率高点的代码，通过构造数组来实现，没有考虑特殊情况：
@echo off :: 注意： set /p= 语句<nul前的空格是跳格键，在论坛中会被转换为空格 :: 复制下来之后，请重新手工设置跳格，否则，将不能起到对齐的效果。 set /a num=0,_num=0,max=0 setlocal enabledelayedexpansion for /f "delims=" %%i in (test.txt) do ( set /a num+=1,_num=0 for %%j in (%%i) do ( set /a _num+=1 set str!num!_!_num!=%%j if !_num! geq !max! set max=!_num! ) ) for /l %%i in (1,1,%max%) do ( for /l %%j in (1,1,%num%) do ( set /p=!str%%j_%%i! <nul ) echo. ) pause

[ Last edited by namejm on 2007-8-20 at 06:06 PM ]

数组用的妙
学习

楼上的不错，不过还有点点问题，我乱想的，提出来而已，错了别见怪啊
如果行数超过了10行的时候，怎么办？
根据你的思路：str111它要如何去识别？
当%%i取1 %%j取11的时候可以为str111
当%%i取11 %%j取1的时候，还是str111，这样是不是有点矛盾拉？
将str111这样的表达形式改为str1101的形式可以好点吧？！

　　本来行和列之间是有下划线连接的，发出来的时候，嫌_!_num!的格式不好看，没考虑太多，就临时去掉了，还是补回去吧。

还是脚本里数组好用嗬

namejm 版主
你的下划线还是没显示出来啊
输出格式还是很不整齐,这也正是我昨晚卡壳的地方.
我的思路是,在设变量前,先判断该变量有几个字符,来决定该在前面加几个空格.
其实应该不难,但怎么就是搞不对.

//我的思路是,在设变量前,先判断该变量有几个字符,来决定该在前面加几个空格.

那岂不是要再加for循环
时间复杂度要变成O(n的3次方)啦

对齐不是难点，用空格补齐就行了

问题是如何加?
我想了很久都没加上去

你每个 单位字的长度没有什么限制……

如果:
1 128312718478 2 sd gadf
adfdfsf 23 dfsdfsdfsd 0 12 12 44 5 2 35
12312 1 2423 45345 32323
1 2 3 4 5 6 7 8 9 10
长的和短的差很多，还是不好排版的（即便用TAB字符也一样不好对齐）。

Originally posted by slore at 2007-8-20 15:56:
你每个 单位字的长度没有什么限制……

我现在的a.txt内容全是单个字符,且全用空格分开的.