CODE: [Copy to clipboard]
gawk "/^::AWK脚本定义开始/,/^::AWK脚本定义结束/{if ($0!~/^::AWK脚本定义(开始|结束)/)print $0 }" "%~f0" > yh.awk
gawk -f "%~dp0yh.awk" aa.TXT & del "%~dp0yh.awk"
goto END
::AWK脚本定义开始
BEGIN { FS="\n"}
{
if ($1!~/R\|/) {
if($1!~/T[0-9]+/){temp = (temp $1 "\n")}
}
else {
# 搜索第一块数字域 域开始值 域跨度值
print match($1,/\|[0-9]+\|/),RSTART,RLENGTH
name=substr($1,RSTART+1,RLENGTH-2)
print match($1,/\|\..*Min.*\|/),RSTART,RLENGTH
TIME=substr($1,RSTART+1,RLENGTH-2)
print TIME
sub("TIME",TIME,temp)
print temp>name".txt"
temp = ""
}
}
::AWK脚本定义结束
:END
[