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

【练习-062】找出文本中内容完全相同的列

出题目的:
    强化字符处理能力;
    复习变量赋值法。
解题要求:
    代码简洁、高效;
    不生成临时文件。
加分原则:
    代码技术含量高,技巧出众的加技术分1分;
    pb加分上限20分(本主题同一id各贴累计),视代码精悍程度加分;
    批处理新人积极参与解题或讨论的可获额外参与奖励2pb(本主题同一id各贴累计)。
题目如下:
    有一文本a.txt(见附件)共50行50列(以tab为列分隔符),其中每行每列的字符串是由a-z以及空格、_、
#、$、.30个字符组合而成的,现知道其中有若干列的内容是相同的,要求找出各自相同的列组合并输出其共
同的内容,在这其中要注意如下的两列是不能视为内容相同(眼睛是可以判断出,但代码中就要考虑了):
    abc     abc
    m_空格  m_
    k $      空格k$
链接: https://pan.baidu.com/s/1AI27WrBgDbfMGgXEN7IIXg?pwd=ybun
----------------------------------------------------------------------------------------------------------------------------------------
代码运行标准输出(含升序处理):
  1. 5列 12列内容相同,列内容如下:
  2. fh xs|r|_cwq|unrjh|ebbk|bm|tv|_yy|a $z|onph|unw|ms|xi|dv|vcsya|t|s._|i|f|titm$|
  3. ioz|h_|n.b|wv_m|su|bmi| h_|paxvv|zzl|rsqiy|b|fp|nqdm.|_no|q|b|d.|lf|d in|pl|..cx
  4. |tui|woe|yst|rkpnq|z|.wwo|wyq|zwch|nisle
  5. 9列 26列内容相同,列内容如下:
  6. i|lgxeo|ybfep|as| rp| trzl|gc|chr|gj|b|a.n|q|f|v|e|hzwwl|aw|_zjet|o|_|j|f|zepyn
  7. |$.ma|s|ocdvw|jep|ud|x|pmu|ywlni|$wnle| bflz|wciuq|o|fr og|.$amq|ub|qkqh|g|f|s.x
  8. |g|xc|em|mc|c|o|ajb|as
  9. 18列 31列内容相同,列内容如下:
  10. hok|_z |va|mi|h.x$|u|s|k_|almdx|kkp|j|t|$aeg|yvn|se r|ylw|dzv|so_|ltn|vtokb|yyf
  11. c|a|ql.n|uom|mouvn|fbgr|_|.sid|b|dpb|rrnb$|__fay|d|ewck|w |q|na|ecoj|r_h|h|l|i|x
  12. l|ame|x$|ynin_|cq|hc$l|$.io|gnigp
  13. 38列 41列 47列内容相同,列内容如下:
  14. eez|yq|fgbq|aeazh|k.u|phnw|byj$|ke|onr.q|a pum|frf|qem$t|qpskt|vqpto|nwm|qm yx|
  15. vyw|szrc|xfcee|_|xfx|x$sxu|l|iw|hg|je$rr|yj|vr |i.alj|ew|hio|y|iz|bw|ctl|kvbzi|j
  16. fp|bm|qvuyt|yioz |fs|vvi$|iq t|vo|e|pv|t|hxkqe|sayds|c
复制代码
***共同提高***

发错地方...

TOP

贴一个正统的解法
只为提供一种思路
为了增强代码的可读性
比较大的牺牲了效率
据说将变量名和值改为简短的英文可以提高部分效率
有心人可以试试
另外,没有细看其它人的代码
算法如有雷同,纯属巧合

  1. @echo off & setlocal EnableDelayedExpansion
  2. rem 清空环境变量空间,防止被意外变量影响
  3. for /f "delims==" %%e in ('set') do set %%e=
  4. set 起始时间=%time%
  5. rem 逐行读取测试文本
  6. for /f "delims=" %%l in (a.txt) do (
  7.     set "某行=%%l"
  8.     set "某行=!某行: =空格!
  9. set 列序号=0
  10. rem 将当前行的字符串逐个追加赋值到列变量中
  11. for %%s in (!某行!) do (
  12. set /a 列序号+=1
  13. rem 将列分割符放在后面,是为了显示出字符串末尾可能存在的空格
  14. for %%e in (_V!列序号!) do set _V!列序号!=!%%e!%%s列分割符
  15. )
  16. )
  17. rem 整理得到的所有整列
  18. for /l %%i in (1,1,!列序号!) do (
  19. set "某整列=!_V%%i!"
  20. if not defined !某整列! (
  21. set "!某整列!=%%i列"
  22. ) else (
  23. for %%d in (!某整列!) do set "!某整列!=!%%d! %%i列"
  24. set 重复列=!重复列! !某整列!
  25. )
  26. )
  27. for %%c in (%重复列%) do (
  28. echo !%%c!内容相同,列内容如下:
  29. set "列内容=%%c"
  30. set "列内容=!列内容:空格= !"
  31. set "列内容=!列内容:列分割符=|!"
  32. echo !列内容!
  33. echo.
  34. )
  35. echo %起始时间%
  36. echo %time%
复制代码

[ 本帖最后由 qzwqzw 于 2011-3-12 22:48 编辑 ]
天的白色影子

TOP

效率总还是问题

  1. @echo off&setlocal enabledelayedexpansion
  2. set "t=%time%"
  3. for /f "delims=" %%a in (a.txt) do (
  4.   set /a m=0,n+=1
  5.   set "str=%%a"&set "str=!str: =空!"
  6.   for %%a in (!str!) do (
  7.     set /a m+=1
  8.     for %%b in (!m!) do (
  9.       set "_%%b=!_%%b!|%%a"
  10.         if !n! equ 50 (
  11.           for %%c in (!_%%b!) do (
  12.              if not defined %%c (
  13.                set "%%c=%%b列"
  14.                ) else (
  15.                if defined .%%c (
  16.                  for /f "tokens=2 delims=列 " %%d in ("!.%%c!") do set "..%%d=!..%%d! %%b列"
  17.                    ) else (
  18.                    set "..%%b=!%%c! %%b列"&set ".%%c=!..%%b!"
  19.                  )
  20.                )
  21.              )
  22.            )
  23.        )
  24.    )
  25. )
  26. for /l %%a in (1,1,%m%) do (
  27.     if defined ..%%a (
  28.        set "str=!_%%a:~1!
  29.        echo !..%%a!内容相同,列内容如下:
  30.        echo !str:空= !&echo.
  31.     )
  32. )
  33. echo %t%
  34. echo %time%
  35. pause>nul
复制代码
***共同提高***

TOP

只写个找相同项的演示代码
  1. @echo off&setlocal enabledelayedexpansion
  2. for /l %%a in (1,1,50) do (
  3.     set nums=!nums! %%a
  4.     set _%%a=### !random:~-1! ### ### !random:~-1!  ###
  5. )
  6. for /l %%a in (1,1,50) do (
  7.     set nums=!nums: %%a=!
  8.     set yn=%%a列
  9.     for %%b in (!nums!) do (
  10. if "!_%%a!" equ "!_%%b!" (
  11.    set nums=!nums: %%b=!
  12.    set yn=!yn! %%b列
  13. )
  14.     )
  15.     if "!yn!" neq "%%a列" (
  16. echo; !yn! 相同,内容为:
  17. echo;!_%%a!
  18. echo;
  19.     )
  20. )
复制代码

TOP

就现思路效率很难提升了 或许有其他路径走
最多也就16楼的第二段上简化下 但效率差不多 也就不在上面改了
  1. for /l %%i in (1 1 %n%) do (
  2.     for %%j in ("!l_%%i:~1!") do (
  3.         if "!-%%j:*列=!" equ "" set /a m+=1&set __!m!=%%j
  4.         set "-%%j=!-%%j! %%i列"
  5.     )
  6. )
复制代码

TOP

呃,我用退格不是为了多行回退...仔细看下会发现我用的是[十个tab][一个空格][80个退格键],目的就是利用退格键不能跨行的特点来对齐超过一行的内容,这样可以把两行当成一行来排序,但却显示为两行。
那个空格是特意用来隔开tab和空格的,免得效果变成退行。

TOP

本来想写成一行判断一次,这样只需要一个for,而无须把整个代码“横过来”,不过懒啊...
若非一行有50列,就可以直接用tokens了

TOP

少用set *和|findstr这样的语句,太影响效率了。。。

既然有人用上了退格,是不是可以考虑多行回退,呵呵。。。

[ 本帖最后由 batman 于 2011-3-11 12:40 编辑 ]
***共同提高***

TOP

排序很容易,现在最心痛的是效率...
  1. @echo off&setlocal enabledelayedexpansion
  2. set tab=[tab]
  3. ::请手动替换[tab]为tab键
  4. set "dq=%tab%%tab%%tab%%tab%%tab%%tab%%tab%%tab%%tab%%tab% "
  5. for /f "delims=" %%a in (a.txt) do (
  6. set "tmp=%%a"
  7. for %%b in ("!tmp:%tab%=" "!") do (
  8. set /a n=n%%50+1
  9. for %%z in (!n!) do set .!n!=!.%%z!^|%%~b
  10. )
  11. )
  12. for /l %%a in (1 1 50) do (
  13. set tmp=
  14. set m= %%a
  15. for %%b in ("\!.%%a!") do set tmp=!%%~b!
  16. set \!.%%a!=*!tmp! !m:~-2!行
  17. )
  18. (@echo off
  19. for /f "tokens=1* delims=\=*" %%a in ('set\^^^|findstr "**"') do (
  20. for /f "tokens=* delims=^|" %%c in ("%%a") do echo 第%%b相同,内容为:%dq%%%c%dq%
  21. ))|sort
  22. pause
复制代码
1

评分人数

    • batman: 好,居然用上了退格!PB + 8

TOP

原来这样  理解能力问题
  1. @echo off&setlocal enabledelayedexpansion
  2. set "Tab=        "这里改为跳格键
  3. for /f "delims=" %%i in (_a.txt) do (
  4.     set str=%%i&set n=
  5.     for %%j in ("!str:%Tab%="%Tab%"!") do (
  6.         set /a n+=1
  7.         for %%k in (!n!) do set "l_%%k=!l_%%k!|%%~j"
  8.     )
  9. )
  10. for /l %%i in (1 1 %n%) do (
  11.     for %%j in ("!l_%%i:~1!") do (
  12.         if defined _%%j (
  13.            if defined -%%j (
  14.               set "-%%j=!-%%j! %%i列"
  15.            ) else set /a m+=1&set __!m!=%%j&set "-%%j=!_%%j! %%i列"
  16.         ) else set _%%j=%%i列
  17.     )
  18. )
  19. for /l %%i in (1 1 %m%) do for %%j in (!__%%i!) do echo 第!-%%j!内容相同,列内容如下:&echo %%~j
  20. pause
复制代码
1

评分人数

    • batman: 好,效率能否再提?PB + 20

TOP

呃,终于明白了,貌似不太难...这么长的行,我感觉用眼睛更判断不了
  1. @echo off&setlocal enabledelayedexpansion
  2. ::将下面的[tab]改为实际的跳格键
  3. set "tab=        "
  4. for /f "delims=" %%a in (a.txt) do (
  5.         set "tmp=%%a"
  6.         for %%b in ("!tmp:        =" "!") do (
  7.                 set /a n=n%%50+1
  8.                 for %%z in (!n!) do set .!n!=!.%%z!^|%%~b
  9.         )
  10. )
  11. for /l %%a in (1 1 50) do (
  12.         set tmp=
  13.         for %%b in ("\!.%%a!") do set tmp=!%%~b!
  14.         set \!.%%a!=*!tmp! %%a列
  15. )
  16. for /f "tokens=1* delims=\=*" %%a in ('set\^|findstr "**"') do (
  17. echo 第%%b相同,内容为:
  18. echo %%a
  19. )
  20. pause
复制代码
1

评分人数

    • batman: 可再尝试升序处理PB + 12

TOP

回复 13楼 的帖子

  1. @echo off&setlocal enabledelayedexpansion
  2. ::将下面的[tab]改为实际的跳格键
  3. set "tab=[tab]"
  4. for /f "delims=" %%a in (a.txt) do (
  5.   set "str=%%a"
  6.   for /l %%b in (1 1 50) do (
  7.     for /f "delims=%tab%" %%c in ("!str!") do set "_%%b=!_%%b!批%%c"&set "str=!str:*%tab%=!"
  8.   )
  9. )
  10. echo,相同的列有:
  11. set n=
  12. for /f "tokens=1* delims==" %%h in ('set _') do (
  13.   if "!%%i!"=="" set/a n+=1&set "#!n!=%%i"
  14.   set "%%i=!%%i!%%h"
  15. )
  16. for /l %%j in (1 1 %n%) do (
  17.   set num=!#%%j!
  18.   call,set value=%%!num!%%
  19.   for /f "tokens=1-3 delims=_" %%x in ("!value!") do if not "%%y"=="" echo,第%%x %%y %%z列,内容为:!num:批= !
  20. )
  21. pause>nul
复制代码
效率不高,见谅。

[ 本帖最后由 weichenxiehou 于 2011-3-10 22:25 编辑 ]
1

评分人数

    • batman: 再尝试用两个for循环解决PB + 10
看得多说得多,远比不上写得多。

TOP

回复 12楼 的帖子

重要也是最难点就是列出这些相同的列组,请继续修改
***共同提高***

TOP

回复 10楼 的帖子

谢谢加分!我把我的代码执行结果跟11楼对比了下,多显示了一行,代码修改了一下,就是没列出哪些列是一样的,只把这些列的内容打印出来了:
  1. @echo off&setlocal enabledelayedexpansion
  2. ::将下面的[tab]改为实际的跳格键
  3. set "tab=[tab]"
  4. for /f "delims=" %%a in (a.txt) do (
  5.   set "str=%%a"
  6.   for /l %%b in (1 1 50) do (
  7.     for /f "delims=%tab%" %%c in ("!str!") do set "_%%b=!_%%b!批%%c"&set "str=!str:*%tab%=!"
  8.   )
  9. )
  10. echo,相同的列有:
  11. for /f "tokens=1* delims==" %%h in ('set _') do (
  12.   if "!%%i!"=="a" set "var=%%i"&echo,!var:批= !"
  13.   set "%%i=!%%i!a"
  14. )
  15. pause>nul
复制代码

[ 本帖最后由 weichenxiehou 于 2011-3-10 21:00 编辑 ]
看得多说得多,远比不上写得多。

TOP

返回列表