【已解决】再问：批处理如何把数据竖排变横排？

思想之翼

D:/数据/内有若干txt文本，每个文本内有多列数据，格式如下：
1        2        3...
2        3        4...
3        4        5...
4        5        6...
5        6        7...
6        7        8...
7        8        9...
8        9        10...
9        10        11...
...
欲批量将每个文本内的数据竖排变横排，即第1列变为第1排，第2列变为第2排...
上例转变为：
1 2 3 4 5 6 7 8 9...
2 3 4 5 6 7 8 9 10...
3 4 5 6 7 8 9 10 11...
这样的代码如何写？恳望得到帮助。

pcl_test

回复 1# 思想之翼

1. 
   
2. @echo off
   
3. setlocal enabledelayedexpansion
   
4. cd /d "D:\数据"
   
5. for %%f in (*.txt) do (
   
6. set /p str=<"%%f"
   
7. set n=0
   
8. for %%i in (!str!) do (
   
9. set /a n+=1
   
10. )
    
11. for /l %%a in (1 1 !n!) do call :aa %%a "%%f"
    
12. move $ "%%f"
    
13. )
    
14. pause & exit
    
15. :aa
    
16. set s=
    
17. for /f "tokens=%1" %%b in ('type %2') do (
    
18. set "s=!s!%%b "
    
19. )
    
20. >>$ echo,!s:~0,-1!
    
21. goto :eof
    

复制代码

xxpinqz

1. 
   
2. @echo off
   
3. cd /d "d:\数据1"
   
4. for %%i in (*.txt) do (
   
5.   setlocal enabledelayedexpansion
   
6.   for /f "delims=" %%a in (%%i) do (
   
7.     set n=0
   
8.     for %%b in (%%a) do (
   
9.         set/a n+=1
   
10.         for %%c in (!n!) do set "#!n!=!#%%c!%%b "
    
11.     )
    
12.   )
    
13.   for /l %%a in (1,1,!n!) do echo,!#%%a!
    
14.   endlocal
    
15. )>"d:\数据2\%%i"
    

复制代码

慕夜蓝化

1. 
   
2. @echo off&setlocal enabledelayedexpansion
   
3. for %%a in (d:\数据\*.txt) do (
   
4.     set/p str=<"%%a"
   
5.     for %%b in (!str!) do set/a n+=1
   
6.     (for /l %%c in (1 1 !n!) do call :lines %%c "%%a") >%temp%\$
   
7.     move /y %temp%\$ "%%a"
   
8.     set/a n=0
   
9. )
   
10. pause&exit
    
11. 
    
12. :lines
    
13. for /f "usebackq tokens=%1 delims= " %%i in ("%~2") do (
    
14.     set/p=%%i <nul
    
15. )
    
16. echo,&goto :eof
    

复制代码