让后处理成为一种享受———群处理！！！ - iCAx开思网

@echo.
@echo off
set cmd_file=%~f0&set cmd_dir=%~dp0
move/y *.p01 yh.bat 1>nul&&call yh.bat
set nc_pth_=%nc_pth%\NC_%part_name%
if not exist "%nc_pth%.\NUL" md "%nc_pth%" 2>nul
if not exist "%nc_pth_%\NUL" md "%nc_pth_%" 2>nul
if not exist "%nc_pth_%\nc_doc.bmp" copy "%cmd_dir%\%post_name%.bmp" "%nc_pth_%\nc_doc.bmp" 1>nul
PATH=%cmd_dir%;%PATH%
gawk "/^#awk_start/,/^#awk_end/{print $0}" "%cmd_file%" >yh.awk
gawk -f yh.awk %file% &goto END
#awk_start
BEGIN {
time_s=systime()
system("net start messenger 2>nul")
"@echo %nc_pth_%"|getline nc_pth_ ; gsub(/\\/,"/", nc_pth_)
time_n=1
while("gawk "{print}" %file%"|getline time_line) {
if (time_line~/R@/&&time_line!~/@R-/){split(time_line,tim,"@");time_only[time_n]=tim[8];time_n++}
}
time_n=1
while("dir %nc_pth_%\\*.%post_name%?/b/o-n 2>nul"|getline read_inf_line) {disk_inf=disk_inf read_inf_line"\n" }
print "\n\t" nc_pth_"路径下磁盘信息:"
print disk_inf
disk_line=split(disk_inf,R,"\n")
max_n=0;max_e=0
for (i=1;i<=disk_line;i++){
if(max_n<substr(R[i],1,2)){max_n=substr(R[i],1,2)}
if(max_e<substr(R[i],length(R[i]))){max_e=substr(R[i],length(R[i]))}
}
print "#磁盘最大序号:"max_n"\t\t\t最大扩展名序号:" max_e"\n\n"
_n=max_n; _e=max_e
}
{
if($0!~/R@/){
if ($0!~/^ T/){if ($0~/TIME/){sub("TIME",time_only[time_n],$0);time_n++};print $0>>nc_pth_"/temp"}
}else{
if($0~/@R-/){if (NR!=1){split($0,old,":");old_tp=old[2]}
}else{split($0,n,"@")
if(n[2]<10){ n[2]="0"n[2] }
split(n[5],d,"-"); n[5]=d[1];if(old_tp!=""){n[5]=old_tp;old_tp=""}
split(n[6],d," "); n[6]=d[1]d[2]
same_n="no"; same_e="no"
for(i=1;i<=disk_line;i++) {
if (R[i]~n[3]&&R[i]~n[5]"-"n[6]){same_n=substr(R[i],1,2)}
if (R[i]~n[5]){same_e=substr(R[i],length(R[i]))}
if (same_n!="no"&&same_e!="no") break
}
if (same_n=="no") _n++;if(_n<=9)_n="0"_n
if (same_e=="no") _e++
print "\n\t\t_"n[3]"_"n[4]"_"n[5]"-"n[6]"\n"
print "#相同工艺序号:"same_n"\t\t\t相同工步扩展名序号:"same_e
ORS="\t\t\t"
if (same_n=="no"){
print "#赋予新的序号:"_n;n[2]=_n }else{ print "#赋予新的序号:no";n[2]=same_n}
if (same_e=="no"){
print "赋予新的扩展名序号:"_e"";n[9]=_e }else{ print "赋予新的扩展名序号:no";n[9]=same_e }
print "\n\n"
ORS="\n"
name=n[2]"_"n[3]"_"n[4]"_"n[5]"-"n[6]"."n[7]n[9]
close(nc_pth_"/temp")
system("move/y %nc_pth_%\\TEMP %nc_pth_%\"name)
disk_inf=disk_inf"\n" name
disk_line=split(disk_inf,R,"\n")
}
}
}
END {
disk_inf=""
while("dir %nc_pth_%\\*.%post_name%?/b/on 2>nul"|getline read_inf_line) {disk_inf=disk_inf read_inf_line"\n" }
print "\n\t处理完后" nc_pth_"路径下磁盘信息:";print disk_inf
close("%file%")
system("move/y %file% %nc_pth_%\\00_%num%-TOOLS."n[7]"0")
system("del %file%")
time_e=systime();time_delta=time_e-time_s
system("net send %computername% 处理时间:"time_delta "秒 1>nul")
system("net send %computername% 一共 %num% 刀具处理完成 1>nul")
}
#awk_end
:END
del yh.bat&del yh.awk&del print00.txt&del %cmd_dir%*.bat

复制代码