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

batman

出题目的：
    强化字符处理能力；
    复习变量赋值法。
解题要求：
    代码简洁、高效；
    不生成临时文件。
加分原则：
    代码技术含量高，技巧出众的加技术分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
----------------------------------------------------------------------------------------------------------------------------------------
代码运行标准输出（含升序处理）：

5列 12列内容相同,列内容如下：
fh xs|r|_cwq|unrjh|ebbk|bm|tv|_yy|a $z|onph|unw|ms|xi|dv|vcsya|t|s._|i|f|titm$|
ioz|h_|n.b|wv_m|su|bmi| h_|paxvv|zzl|rsqiy|b|fp|nqdm.|_no|q|b|d.|lf|d in|pl|..cx
|tui|woe|yst|rkpnq|z|.wwo|wyq|zwch|nisle

9列 26列内容相同,列内容如下：
i|lgxeo|ybfep|as| rp| trzl|gc|chr|gj|b|a.n|q|f|v|e|hzwwl|aw|_zjet|o|_|j|f|zepyn
|$.ma|s|ocdvw|jep|ud|x|pmu|ywlni|$wnle| bflz|wciuq|o|fr og|.$amq|ub|qkqh|g|f|s.x
|g|xc|em|mc|c|o|ajb|as

18列 31列内容相同,列内容如下：
hok|_z |va|mi|h.x$|u|s|k_|almdx|kkp|j|t|$aeg|yvn|se r|ylw|dzv|so_|ltn|vtokb|yyf
c|a|ql.n|uom|mouvn|fbgr|_|.sid|b|dpb|rrnb$|__fay|d|ewck|w |q|na|ecoj|r_h|h|l|i|x
l|ame|x$|ynin_|cq|hc$l|$.io|gnigp

38列 41列 47列内容相同,列内容如下：
eez|yq|fgbq|aeazh|k.u|phnw|byj$|ke|onr.q|a pum|frf|qem$t|qpskt|vqpto|nwm|qm yx|
vyw|szrc|xfcee|_|xfx|x$sxu|l|iw|hg|je$rr|yj|vr |i.alj|ew|hio|y|iz|bw|ctl|kvbzi|j
fp|bm|qvuyt|yioz |fs|vvi$|iq t|vo|e|pv|t|hxkqe|sayds|c
复制代码

batman

就是找出a.txt中完全相同的列，这有可能是3　5　12列相同，同时21　49列相同，输出其共同的内容即为输出这些相同列的内容（在一行内输出，中间用|格开）。

[ 本帖最后由 batman 于 2011-3-10 19:15 编辑 ]

batman

新手可以先尝试着生成a.txt这样的文本，有助于打开解题思路。。。

batman

理解错误，难道这题这么难理解！

batman

题意还只有你理解对了，但结果不正确，请修改。。。

[ 本帖最后由 batman 于 2011-3-10 19:05 编辑 ]

batman

题意还是没有理解对，难道我表达能力这么差！题目是要找出a.txt中所有彼此相同的列啊。。。

[ 本帖最后由 batman 于 2011-3-11 00:16 编辑 ]

batman

重要也是最难点就是列出这些相同的列组，请继续修改

batman

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

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

[ 本帖最后由 batman 于 2011-3-11 12:40 编辑 ]

batman

@echo off&setlocal enabledelayedexpansion
set "t=%time%"
for /f "delims=" %%a in (a.txt) do (
  set /a m=0,n+=1
  set "str=%%a"&set "str=!str: =空!"
  for %%a in (!str!) do (
    set /a m+=1
    for %%b in (!m!) do (
      set "_%%b=!_%%b!|%%a"
        if !n! equ 50 (
          for %%c in (!_%%b!) do (
             if not defined %%c (
               set "%%c=%%b列"
               ) else (
               if defined .%%c (
                 for /f "tokens=2 delims=列 " %%d in ("!.%%c!") do set "..%%d=!..%%d! %%b列" 
                   ) else (
                   set "..%%b=!%%c! %%b列"&set ".%%c=!..%%b!"
                 )
               )
             )
           )
       )
   )
)
for /l %%a in (1,1,%m%) do (
    if defined ..%%a (
       set "str=!_%%a:~1!
       echo !..%%a!内容相同,列内容如下：
       echo !str:空= !&echo.
    )
)
echo %t%
echo %time%
pause>nul
复制代码