中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --
联盟域名：www.cn-dos.net　论坛域名：www.cn-dos.net/forum

游客 | 登录 | 注册 | 会员 | 搜索 | 中国DOS联盟

中国DOS联盟论坛
现在时间是 2026-09-30 19:22

共 47,813 主题排行 / 349,918 发帖 / 今日 0 篇 / 48,279 会员排行

DOS批处理 & 脚本技术（批处理室） » 如何给新员工分配工号？合并两张表

可打印版本　1,161 / 10

第1楼　uiopuiop	发表于 2009-04-23 01:56
中级用户　发帖 211　积分 400
如何给新员工分配工号？合并两张表有两张表，如何自动给新员工分配员工号？合并两张表，得到NEW.txt Employee.txt 包含如下内容 zhao，NEW qian, OLD sun, NEW li, OLD zhou, NEW wu,TEMP NEW.txt 包含如下内容（新员工工号) 100 101 102 NEW2.txt 需要得到以下内容： zhao,NEW, 100 qian, OLD sun, NEW, 101 li, OLD zhou, NEW, 102 wu,TEMP [ Last edited by uiopuiop on 2009-4-23 at 03:23 ]

第2楼　tireless	发表于 2009-04-23 03:25
银牌会员　发帖 1,122　积分 2,025
如果 NEW.txt 里面的数字后一位比前一位大1： @echo off&setlocal enabledelayedexpansion set /p n=<new.txt (for /f "tokens=1,2 delims=, " %%a in (Employee.txt) do ( if /i "%%b"=="NEW" ( echo.%%a, %%b, !n! set /a n+=1 ) else echo.%%a, %%b ))>NEW2.txt start NEW2.txt

第3楼　uiopuiop	发表于 2009-04-23 04:09
中级用户　发帖 211　积分 400
Originally posted by tireless at 2009-4-23 03:25 AM: 如果 NEW.txt 里面的数字后一位比前一位大1： @echo off&setlocal enabledelayedexpansion set /p n=<new.txt (for /f "tokens=1,2 delims=, " %%a in (Employee.txt) ... 不好意思，在实际情况下NEW.txt 里面的不一定是数字而且是没有规律字符串。想到要用 set /a num+=1 给每个符合的记录编号，但想不出有什么简便的算法。 [ Last edited by uiopuiop on 2009-4-23 at 04:16 ]

第4楼　tireless	发表于 2009-04-23 04:22
银牌会员　发帖 1,122　积分 2,025
@echo off&setlocal enabledelayedexpansion set n= for /f "tokens=" %%a in (new.txt) do ( set /a n+=1 set #!n!=%%a ) set n= (for /f "tokens=1,2 delims=, " %%a in (Employee.txt) do ( if /i "%%b"=="new" ( set /a n+=1 for %%i in (#!n!) do echo.%%a, %%b, !%%i! ) else echo.%%a, %%b ))>NEW2.txt p.s. 员工号位数是否一致？ [ Last edited by tireless on 2009-4-23 at 04:26* ]

第5楼　uiopuiop	发表于 2009-04-23 04:30
中级用户　发帖 211　积分 400
re: 员工号位数是否一致？不一致，我这里只是举个例子，实际情况可能是一个随机的EMAIL 地址。 set #!n!=%%a 中#n表示什么？ echo.ab 和 echo ab有什么区别？ [ Last edited by uiopuiop on 2009-4-23 at 04:38 ]

第6楼　tireless	发表于 2009-04-23 04:41
银牌会员　发帖 1,122　积分 2,025
Re 5楼 # 是变量名的一部分。有点多余了，可以把代码中的 # 去掉。 echo.ab 中的点也多余了。。。可以去掉。加一个点是为了防止后面的字符是 on 或 off，造成 echo on 或 echo off；要输出空行时也要加点。 [ Last edited by tireless on 2009-4-23 at 04:46 ]

第7楼　uiopuiop	发表于 2009-04-23 04:53
中级用户　发帖 211　积分 400
很经典，简洁，多谢！

第8楼　mmh1	发表于 2009-04-23 05:06
初级用户　发帖 24　积分 20
3楼，4楼的我试了下，怎么不行啊？？？？结果： hao，NEW, qian, OLD sun, NEW, 100 li, OLD zhou, NEW, 101 wu, TEMP

第9楼　freeants001	发表于 2009-04-23 05:11
中级用户　发帖 244　积分 330　来自湖北
hao，NEW, qian, OLD sun, NEW, 100 li, OLD zhou, NEW, 101 wu, TEMP

第10楼　freeants001	发表于 2009-04-23 05:13
中级用户　发帖 244　积分 330　来自湖北
来个JS的 fso=WScript.createobject("scripting.filesystemobject"); f1=fso.opentextfile("Employee.txt") f2=fso.opentextfile("NEW.txt"); f3=fso.createtextfile("$_dest.txt",1) re=/\bNEW*$/i; while(!f1.AtEndOfStream){ sss=f1.readline(); if(re.test(sss))sss=sss.replace(re,"NEW,"+f2.readline()); f3.writeline(sss); }

第11楼　jmz573515	发表于 2009-04-23 21:53
银牌会员　发帖 464　积分 1,212
on error resume next set fso=createobject("scripting.filesystemobject") set f1=fso.opentextfile("Employee.txt") set f2=fso.opentextfile("NEW.txt") set f3=fso.createtextfile("Employee_new.txt") do while f1.atendofstream<>true n=f1.readline if f1.line mod 2=0 then sm=sm &n & "," & f2.readline & vbcrlf if err then err.caler else sm=sm & n & vbcrlf end if loop f3.write sm f1.close f2.close f3.close set fso=nothing [ Last edited by jmz573515 on 2009-4-23 at 21:58 ]

[ 联系联盟系统管理团队 - 中国DOS联盟 - 标准版 ]
Sponsored by ifanr Inc | © 2001–2023