[文本处理] 如何把文本文件的数据按规定的格式重新排列

qlcom

有文本文件data.txt数据内容如下(a1,b1等代表的是随机数字):
a1
b1
a2
b2
.
.
.
a20
b20
现在要求把数据变成如下形式(1-20是新添的序号),输出到新的compute.txt文件中,并打开该文件.
1   b1  a1  11  b11  a11
2   b2  a2  12  b12  a12
3   ................................
.....................................
10 b10 a10  20 b20 a20

[ 本帖最后由 qlcom 于 2008-12-24 23:26 编辑 ]

terse

@echo off&setlocal enabledelayedexpansion
for /f "delims=" %%i in (a.txt) do (
      if defined flog (
      call set .!m!=%%.!m!%% %%i
      set flog=
    ) else (
      set/a n+=1,m=n%%10
      set flog=g
      if !n! gtr 10 (call set .!m!=%%.!m!%% !n! %%i)else call set .!m!=!n!%%.!m!%% %%i
 ))
for /l %%i in (1 1 10) do (
    set/a m=%%i%%10
    call echo %%.!m!%%
)
pause
复制代码

wxcute

@echo off
setlocal enableDelayedExpansion
for /f %%i in (data.txt) do call :show %%i
for /l %%i in (1 1 9) do echo %%i !shw%%i!
echo 10 %shw0%
pause
goto :eof
:show
set val=%1
set shw%val:~-1%=!shw%val:~-1%! %val%
复制代码

qlcom

原帖由 wxcute 于 2008-12-24 19:15 发表
@echo off
setlocal enableDelayedExpansion
for /f %%i in (data.txt) do call :show %%i
for /l %%i in (1 1 9) do echo %%i !shw%%i!
echo 10 %shw0%
pause
goto :eof
:show
set val=%1
set shw%val:~-1 ...

好象不大行哦~~,而且a1-a20,b1-b20并不是个有规律的字符,而是代表的一个随机数字,不能引用其下标的.

qlcom

原帖由 terse 于 2008-12-24 16:55 发表
@echo off&setlocal enabledelayedexpansion
for /f "delims=" %%i in (a.txt) do (
      if defined flog (
      call set .!m!=%%.!m!%% %%i
      set flog=
    ) else (
      set/a n+=1,m=n%%10
    ...

不好意思,写题目的时候出了点错,应该顺序是1 b1 a1 11 b11 a11,就是a,b交换一下,依你的程序怎么修改呢?好象有点点麻烦

terse

原帖由 qlcom 于 2008-12-24 23:24 发表


不好意思,写题目的时候出了点错,应该顺序是1 b1 a1 11 b11 a11,就是a,b交换一下,依你的程序怎么修改呢?好象有点点麻烦

@echo off&setlocal enabledelayedexpansion
for /f "delims=" %%i in (ta.txt) do (
      if defined ..!n! (
      if !n! gtr 10 (call set .!m!=%%.!m!%% !n! %%i %%..!n!%%)else call set .!m!=!n! %%i %%..!n!%%
      set ..!n!=
    ) else (
      set/a n+=1,m=n%%10
      set ..!n!=%%i
 ))
for /l %%i in (1 1 10) do (
    set/a m=%%i%%10
    call echo %%.!m!%%
)
pause
复制代码