合并多张表, 添加数据项（2）- 已结 - 中国DOS联盟论坛

如何把附件中的XXX.txt 合并到原表.txt 中，输出另外一张表，要求是这样的：
XXX 为 ERP.txt SOL.txt WWM.txt （数量不定，并且内容为不规则的字符串）

如果在原表.txt 中的第一列发现包含字符串“STUDY” ，并且第一列字符串开头是（ERP / SOL/WWM)，则从 ERP.TXT 或 SOL.TXT或 WWM.TXT 中的内容调出一个记录，并加在原表.txt 的第三列上。如果不符合条件，就不加任何数据项在第三列上。另外，如果第一列字符串有重复，则分配相同的字符串在第三列。

输出结果为：
ADMIN , fda
DDIC , adfd
SOLMAN , ds
SPDEMO , da
SPDEMO , fda
WDDEMO , fda
WDDEMO , Sfds
WWMstudy01 , adfe ,wwm_WWM
WWMstudy01 , fds , wwm_WWM
SOLstudy01 , sa, SOL_rqrew
SOLstudy02 , adsf, SOL_ewe
WWMstudy03 , WfWM, wwm_W3
ERPstudy03 , dsERP, ERP_312
SOLstudy03 , SOaL ,SOL_fdfdd
SOLstudy04 , SaOL, SOL_kjlkj
WWMstudy04 , WWM , wwm_WW3
ERPstudy05 , EadRP,ERP_ERP31
WWMstudy05 , WaWM, wwm_WJKJ
ERPstudy06 , ER2P, ERP_55ERP
ERPstudy07 , ERaP, ERP_ERP3
ERPstudy88 , E2RP, ERP_8687
SOLstudy08 , SsOL, SOL_oioi
WWMstudy06 , WWM, wwm_WJII
ERPstudy09 , ERdP, ERP_3
SOLstudy99 , SfOL, SOL_vczxcv

~~~~~~~~~~~~~~~~~~~~
下面的代码有问题：
@echo off
setlocal enabledelayedexpansion
set List=ERP SOL WWM
set Filter=ERPstudy SOLstudy WWMstudy

for %%a in (%List%) do (
set n=
for /f "delims=" %%i in (%%a.txt) do (
set /a n+=1
set %%a_!n!=%%i
)
)

(for /f "tokens=1,2 delims=, " %%a in (原表.txt) do (
set var=%%a

if /i "!var:stud=!" neq "%%a" (
set /a %%a+=1
set var2=%var:~,3%_!%%a!
echo *!var2!*
for %%i in (!var2!) do echo %%a ,!%%i!
) else echo %%a

)) >main_new.txt
pause

参见帖子:
http://www.cn-dos.net/forum/viewthread.php?tid=47165&fpage=1&highlight=%2Buiopuiop&page=1

[ Last edited by uiopuiop on 2009-5-25 at 09:31 ]

哪位大哥行行好，帮个忙，谢谢了！不是我懒，我想了一整天都没搞定。

@echo off
setlocal enabledelayedexpansion
set List=ERP SOL WWM

for %%a in (%List%) do (
  set n=
  for /f "delims=" %%i in (%%a.txt) do (
    set %%a_!n!=%%i
    set /a n+=1
  )
)

(for /f "tokens=1,2 delims=, " %%a in (原表.txt) do (
  set var=%%a
  if "!var:STUDY=!" neq "!var!" (
    if not defined %%a (
      for %%i in (!var:~^,3!) do (
        for %%j in (!var:~^,3!_!%%i!) do echo %%a , %%b , !%%j!&set %%a=!%%j!
        set /a %%i+=1
      )
    ) else echo %%a , %%b , !%%a!
  ) else echo %%a , %%b
))>原表_new.txt

@echo off
setlocal enabledelayedexpansion
set List=ERP SOL WWM

for %%a in (%List%) do (
  for /f "delims=" %%i in (%%a.txt) do set %%a=!%%a! %%i
)

(for /f "tokens=1,2 delims=, " %%a in (原表.txt) do (
  set var=%%a
  if "!var:STUDY=!"=="!var!" (echo %%a , %%b) else (
    if defined %%a (echo %%a , %%b , !%%a!) else (
      for %%i in (!var:~^,3!) do (
        for /f "tokens=1,*" %%1 in ("!%%i!") do (
          echo %%a , %%b , %%1
          set "%%a=%%1" & set "!var:~,3!=%%2"
))))))>__new.txt

[ Last edited by tireless on 2009-5-19 at 08:24 ]

感激不尽！！！
我现在正在将代码试着应用到实际环境中。

for %%i ....
for %%j ...
这里面直接CALL 怎么样

CALL 很慢。宁愿用几个 for 代替一个 call

命令耗时清单

[ Last edited by tireless on 2009-5-18 at 14:49 ]

没有理解第二种方法是怎么把其他3个表里的内容进行赋值的. 变量名是什么? （例如第一种方法里的变量名是SOL_1, SOL_2, .....)

ECHO 出来也没看懂:
@echo off
echo %time%

setlocal enabledelayedexpansion
set List=ERP SOL WWM MMM

for %%a in (%List%) do (
for /f "delims=" %%i in (%%a.txt) do (set %%a=!%%a! %%i
echo !%%a!
echo ~~~~~~~~~~~~~~~)
)

###############################
ERP_312
~~~~~~~~~~~~~~~
ERP_312 ERP_ERP31
~~~~~~~~~~~~~~~
ERP_312 ERP_ERP31 ERP_55ERP
~~~~~~~~~~~~~~~
ERP_312 ERP_ERP31 ERP_55ERP ERP_ERP3
~~~~~~~~~~~~~~~
ERP_312 ERP_ERP31 ERP_55ERP ERP_ERP3 ERP_8687
~~~~~~~~~~~~~~~
ERP_312 ERP_ERP31 ERP_55ERP ERP_ERP3 ERP_8687 ERP_3
~~~~~~~~~~~~~~~
ERP_312 ERP_ERP31 ERP_55ERP ERP_ERP3 ERP_8687 ERP_3 ERP_32
~~~~~~~~~~~~~~~
SOL_rqrew
~~~~~~~~~~~~~~~
SOL_rqrew SOL_ewe
~~~~~~~~~~~~~~~
SOL_rqrew SOL_ewe SOL_fdfdd
~~~~~~~~~~~~~~~
SOL_rqrew SOL_ewe SOL_fdfdd SOL_kjlkj
~~~~~~~~~~~~~~~
SOL_rqrew SOL_ewe SOL_fdfdd SOL_kjlkj SOL_oioi
.......

[ Last edited by uiopuiop on 2009-5-20 at 12:00 ]

第1楼　uiopuiop	发表于 2009-05-17 11:07
中级用户　发帖 211　积分 400
合并多张表, 添加数据项（2）- 已结如何把附件中的XXX.txt 合并到原表.txt 中，输出另外一张表，要求是这样的： XXX 为 ERP.txt SOL.txt WWM.txt （数量不定，并且内容为不规则的字符串）如果在原表.txt 中的第一列发现包含字符串“STUDY” ，并且第一列字符串开头是（ERP / SOL/WWM)，则从 ERP.TXT 或 SOL.TXT或 WWM.TXT 中的内容调出一个记录，并加在原表.txt 的第三列上。如果不符合条件，就不加任何数据项在第三列上。另外，如果第一列字符串有重复，则分配相同的字符串在第三列。输出结果为： ADMIN , fda DDIC , adfd SOLMAN , ds SPDEMO , da SPDEMO , fda WDDEMO , fda WDDEMO , Sfds WWMstudy01 , adfe ,wwm_WWM WWMstudy01 , fds , wwm_WWM SOLstudy01 , sa, SOL_rqrew SOLstudy02 , adsf, SOL_ewe WWMstudy03 , WfWM, wwm_W3 ERPstudy03 , dsERP, ERP_312 SOLstudy03 , SOaL ,SOL_fdfdd SOLstudy04 , SaOL, SOL_kjlkj WWMstudy04 , WWM , wwm_WW3 ERPstudy05 , EadRP,ERP_ERP31 WWMstudy05 , WaWM, wwm_WJKJ ERPstudy06 , ER2P, ERP_55ERP ERPstudy07 , ERaP, ERP_ERP3 ERPstudy88 , E2RP, ERP_8687 SOLstudy08 , SsOL, SOL_oioi WWMstudy06 , WWM, wwm_WJII ERPstudy09 , ERdP, ERP_3 SOLstudy99 , SfOL, SOL_vczxcv ~~~~~~~~~~~~~~~~~~~~ 下面的代码有问题： @echo off setlocal enabledelayedexpansion set List=ERP SOL WWM set Filter=ERPstudy SOLstudy WWMstudy for %%a in (%List%) do ( set n= for /f "delims=" %%i in (%%a.txt) do ( set /a n+=1 set %%a_!n!=%%i ) ) (for /f "tokens=1,2 delims=, " %%a in (原表.txt) do ( set var=%%a if /i "!var:stud=!" neq "%%a" ( set /a %%a+=1 set var2=%var:~,3%_!%%a! echo !var2! for %%i in (!var2!) do echo %%a ,!%%i! ) else echo %%a )) >main_new.txt pause 参见帖子: http://www.cn-dos.net/forum/viewthread.php?tid=47165&fpage=1&highlight=%2Buiopuiop&page=1 [ Last edited by uiopuiop on 2009-5-25 at 09:31 ] 附件 test table2.zip (1.05 KiB)

第2楼　uiopuiop	发表于 2009-05-18 02:25
中级用户　发帖 211　积分 400
哪位大哥行行好，帮个忙，谢谢了！不是我懒，我想了一整天都没搞定。

第3楼　tireless	发表于 2009-05-18 06:28
银牌会员　发帖 1,122　积分 2,025
@echo off setlocal enabledelayedexpansion set List=ERP SOL WWM for %%a in (%List%) do ( set n= for /f "delims=" %%i in (%%a.txt) do ( set %%a_!n!=%%i set /a n+=1 ) ) (for /f "tokens=1,2 delims=, " %%a in (原表.txt) do ( set var=%%a if "!var:STUDY=!" neq "!var!" ( if not defined %%a ( for %%i in (!var:~^,3!) do ( for %%j in (!var:~^,3!_!%%i!) do echo %%a , %%b , !%%j!&set %%a=!%%j! set /a %%i+=1 ) ) else echo %%a , %%b , !%%a! ) else echo %%a , %%b ))>原表_new.txt @echo off setlocal enabledelayedexpansion set List=ERP SOL WWM for %%a in (%List%) do ( for /f "delims=" %%i in (%%a.txt) do set %%a=!%%a! %%i ) (for /f "tokens=1,2 delims=, " %%a in (原表.txt) do ( set var=%%a if "!var:STUDY=!"=="!var!" (echo %%a , %%b) else ( if defined %%a (echo %%a , %%b , !%%a!) else ( for %%i in (!var:~^,3!) do ( for /f "tokens=1," %%1 in ("!%%i!") do ( echo %%a , %%b , %%1 set "%%a=%%1" & set "!var:~,3!=%%2" ))))))>__new.txt [ Last edited by tireless on 2009-5-19 at 08:24* ]

第4楼　uiopuiop	发表于 2009-05-18 12:01
中级用户　发帖 211　积分 400
感激不尽！！！我现在正在将代码试着应用到实际环境中。

第5楼　terse	发表于 2009-05-18 14:01
银牌会员　发帖 946　积分 2,404
for %%i .... for %%j ... 这里面直接CALL 怎么样

第6楼　tireless	发表于 2009-05-18 14:43
银牌会员　发帖 1,122　积分 2,025
Re 5 楼 CALL 很慢。宁愿用几个 for 代替一个 call 命令耗时清单 [ Last edited by tireless on 2009-5-18 at 14:49 ]

第7楼　uiopuiop	发表于 2009-05-20 11:59
中级用户　发帖 211　积分 400
没有理解第二种方法是怎么把其他3个表里的内容进行赋值的. 变量名是什么? （例如第一种方法里的变量名是SOL_1, SOL_2, .....) ECHO 出来也没看懂: @echo off echo %time% setlocal enabledelayedexpansion set List=ERP SOL WWM MMM for %%a in (%List%) do ( for /f "delims=" %%i in (%%a.txt) do (set %%a=!%%a! %%i echo !%%a! echo ~~~~~~~~~~~~~~~) ) ############################### ERP_312 ~~~~~~~~~~~~~~~ ERP_312 ERP_ERP31 ~~~~~~~~~~~~~~~ ERP_312 ERP_ERP31 ERP_55ERP ~~~~~~~~~~~~~~~ ERP_312 ERP_ERP31 ERP_55ERP ERP_ERP3 ~~~~~~~~~~~~~~~ ERP_312 ERP_ERP31 ERP_55ERP ERP_ERP3 ERP_8687 ~~~~~~~~~~~~~~~ ERP_312 ERP_ERP31 ERP_55ERP ERP_ERP3 ERP_8687 ERP_3 ~~~~~~~~~~~~~~~ ERP_312 ERP_ERP31 ERP_55ERP ERP_ERP3 ERP_8687 ERP_3 ERP_32 ~~~~~~~~~~~~~~~ SOL_rqrew ~~~~~~~~~~~~~~~ SOL_rqrew SOL_ewe ~~~~~~~~~~~~~~~ SOL_rqrew SOL_ewe SOL_fdfdd ~~~~~~~~~~~~~~~ SOL_rqrew SOL_ewe SOL_fdfdd SOL_kjlkj ~~~~~~~~~~~~~~~ SOL_rqrew SOL_ewe SOL_fdfdd SOL_kjlkj SOL_oioi ....... [ Last edited by uiopuiop on 2009-5-20 at 12:00 ]