[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖

[ 新手练习题 10 ] 批处理实现文本行序重排

[ 新手练习题 10 ] 文本行序重排
假设原文本:
  1. A B
  2. B D
  3. X C
  4. D M
复制代码
显示示例:
  1. D M
  2. B D
  3. A B
  4. X C
复制代码
注意:以上只是一个范例。

若某行甲的首字母与另一行乙的尾字母相同,则行甲要排在行乙前面。

未进行重排的行位置任意。
假定:每一纵列不会出现重复字母,同行字母也不会相同。
也不会出现如 “A B”,“B A” 这样会让排序进入死循环的行。

目的:综合运用,学习字符串对比方法。

要求:不区分大小写;
   方法不限。

评分:代码可读性 1 分;
   首个新方法 8 分,第二个 6 分,依次类推,最少 2 分;
   一人可多种方法,新方法追加 4 分,已经出现过的方法追加 1 分。

[ 本帖最后由 wxcute 于 2009-9-29 17:20 编辑 ]
批处理之家论坛官方 QQ 群 :【当前人数/人数上限】【2009-07-08】
群①:43011867(181/200);群②:(暂缺数据);群③:66165582(120/200)。

新手,第一次回贴!

  1. @echo off
  2. set a=A B
  3. set b=B D
  4. set c=X C
  5. set d=D M
  6. echo %d%&echo %b%&echo %a%&echo %c%
  7. pause>nul
复制代码
1

评分人数

TOP

回复 2 楼 kjliuo 的帖子

只是示例文本,值并不是固定的。
可能你没看清题意。
批处理之家论坛官方 QQ 群 :【当前人数/人数上限】【2009-07-08】
群①:43011867(181/200);群②:(暂缺数据);群③:66165582(120/200)。

TOP

算是出来了,就是很麻烦,没有用循环,楼主看看对不对
@echo off
set /p x=请输入第一个字符串:
set /p y=请输入第二个字符串:
set /p m=请输入第三个字符串:
set /p n=请输入第四个字符串:
if "%x%" lss "%y%" set y=%x%&set x=%y%
if "%x%" lss "%m%" set m=%x%&set x=%m%
if "%x%" lss "%n%" set n=%x%&set x=%n%
if "%y%" lss "%m%" set m=%y%&set y=%m%
if "%y%" lss "%n%" set n=%y%&set y=%n%
if "%m%" lss "%n%" set n=%m%&set m=%n%
echo %x%
echo %y%
echo %m%
echo %n%
pause
1

评分人数

    • wxcute: 感谢参与!如楼下所说数据是变化的,行数也 ...PB + 1

TOP

原帖由 mm546863903 于 2009-9-28 15:10 发表
算是出来了,就是很麻烦,没有用循环,楼主看看对不对
@echo off
set /p x=请输入第一个字符串:
set /p y=请输入第二个字符串:
set /p m=请输入第三个字符串:
set /p n=请输入第四个字符串:
if "%x%" lss  ...

1.最好从文本读取
2.不一定只有4个
这问题一点也不新手...我昨天做了个效率还行不过太麻烦,没好意思发结果删掉了...

TOP

  1. A B
  2. B C
  3. O K
  4. D E
  5. M D
复制代码
这个应该怎么排?

TOP

回复 6楼 Seter 的帖子

其中一种排法
  1. B C
  2. A B
  3. O K
  4. D E
  5. M D
复制代码
O K 这两个字母只出现一次,位置可以任意;
D E、M D 这两组与前面 B C、A B 这两组无关联,因此也可以放在上面,或是穿插其中。
批处理之家论坛官方 QQ 群 :【当前人数/人数上限】【2009-07-08】
群①:43011867(181/200);群②:(暂缺数据);群③:66165582(120/200)。

TOP

C语言思路,效率中等偏低,我学C的,大大别骂人~
  1. @echo off&setlocal enabledelayedexpansion
  2. set i=1
  3. for /f "delims=" %%i in (t.txt) do set t=%%i&set t!i!=%%i&set f!t:~,1!=!i!
  4. &set e!t:~-1!=!i!&set/ai+=1
  5. for %%i in (A B C D E F G H I J K L M N O P Q R S T U V W X Y Z) do if
  6. defined "!f%%i!" if defined "!e%%i!" set l!f%%i!=!e%%i!&set p!e%%i!=!f%%i!
  7. :a
  8. for /l %%i in (1,1,%i%) do if "!l%%i!" neq "" set k=%%i&goto n
  9. for /l %%i in (1,1,%i%) do if "!t%%i!" neq "" echo !t%%i!
  10. pause&exit
  11. :n
  12. if defined "!p%k%!" set k=!p%k%!&goto n
  13. :k
  14. if "%k%"=="" goto a
  15. set t=%k%&echo !t%k%!&set t%k%=&set k=!l%k%!&set l%t%=&goto k
复制代码

[ 本帖最后由 Seter 于 2009-9-29 17:51 编辑 ]
1

评分人数

    • wxcute: 难度较高,就不考虑是否新手了。给个满分+1 ...PB + 10

TOP

修改完毕,请大大们提意见~
  1. C C
  2. D D
复制代码

这种情况请无视

[ 本帖最后由 Seter 于 2009-9-29 16:54 编辑 ]
1

评分人数

    • wxcute: 谢谢指正,题目已更新(细节)PB + 1

TOP

  1. @echo off&setlocal enabledelayedexpansion
  2. set n=-1
  3. for /f "tokens=*" %%a in (a.txt) do (
  4. set str=%%a
  5. set t=!t!!str:~,1!
  6. set w=!w!!str:~-1!
  7. set t!str:~,1!=%%a
  8. set w!str:~-1!=%%a
  9. set/a n+=1
  10. )
  11. for /l %%a in (0,1,!n!) do for %%b in ("!t:~%%a,1!") do (
  12. if "!w:%%~b=!" neq "!w!" for %%c in ("!t%%~b:~-1!") do set w=%%~c!w:%%~c=!
  13. )
  14. for /l %%a in (0,1,!n!) do for %%b in ("!w:~%%a,1!") do echo;!w%%~b!
复制代码
1

评分人数

    • wxcute: 测试如下样本不正确 d a c b a c f q ...PB + 3

TOP

这个可以了,支持字母以外的字符

  1. @echo off&setlocal enabledelayedexpansion
  2. for /f "tokens=*" %%a in (a.txt) do (
  3.         set str=%%a
  4.         set t=!t!!str:~,1!
  5.         set w=!w!!str:~-1!
  6.         set t!str:~,1!=%%a
  7. )
  8. :lp
  9. (
  10. for %%b in (!t!) do (
  11.         for %%c in ("!t%%~b:~-1!") do (
  12.                 set str=!w:*%%~b=!
  13.                 if !str! neq !w! (
  14.                         if "!str:%%~c=!" neq "!str!" (
  15.                                 set w=%%~c !w: %%~c=!
  16.                                 set t=%%b !t: %%b=!
  17.                         )
  18.                 )
  19.         )
  20. )
  21. if "%w%" neq "!w!" goto :lp)
  22. for %%b in (!t!) do echo;!t%%~b!
复制代码
1

评分人数

    • wxcute: 补上加分。现测试正常,之前是我操作出错。PB + 10

TOP

回复 11楼 的帖子

没有任何输出哦?
其中a.txt文件存在,内容正常。
批处理之家论坛官方 QQ 群 :【当前人数/人数上限】【2009-07-08】
群①:43011867(181/200);群②:(暂缺数据);群③:66165582(120/200)。

TOP

re 版主

我自己从论坛复制下来的,经测试也正常呀,
可能是太快了,一闪而过吧
在后面加个暂停看看

TOP

加了,可还是一样。
两位技术组成员写代码都没加暂停,我一样测试。所以这点能力是不用怀疑我的。
另外我猜可能是我机子的问题,由于个人原因,没办法换机器测试,只好拜托有条件的兄弟朋友帮忙进行测试了。
测试文本
d a
c b
a c
f q
注释掉 @echo off 后
最后一行测试显示为:echo;!tdcaf!
=================================
不好意思,可能是电脑上记事本程序有问题,一行中最后一个字符若是空格,复制到记事本中会被自动忽略掉。
所以复制代码时少了两个空格,又因为代码中设置变量的行没有用引号闭合,所以没有检查出来。
代码中四、五两行加上空格后测试正确。

[ 本帖最后由 wxcute 于 2009-9-30 09:47 编辑 ]
批处理之家论坛官方 QQ 群 :【当前人数/人数上限】【2009-07-08】
群①:43011867(181/200);群②:(暂缺数据);群③:66165582(120/200)。

TOP

这样对吗
  1. @echo off&setlocal enabledelayedexpansion
  2. for /f "tokens=1-2" %%a in (a.txt) do (
  3. set #%%a=%%a %%b&set $%%b=%%a %%b&set _%%b=%%a&set "@%%a=%%a %%b"
  4. if defined #%%b set "@%%a="
  5. if defined $%%a set "@!_%%a!="
  6. )
  7. for /f "tokens=2-3 delims== " %%a in ('set @') do (
  8. echo %%a %%b&set str=%%a&call :px
  9. )
  10. pause&exit
  11. :px
  12. if defined $!str! (
  13. echo !$%str%!&set str=!$%str%!&set str=!str:~,1!&goto px
  14. )
复制代码
2

评分人数

TOP

返回列表