Search Results

Try:
awk '
/Subject/ {
split($0,F,/(^|=)[^ ]*( |$)/)
for(i in F) P[F[i]]=i
sub(/>/,x)
print $1,$P["R"],$P["W"],$P["E"],$P["Q"] ">"
next
}
1
' file

Or using the...

I don't know how generic this must be but you can try this:

$ awk '{sub(/>/,"",$NF); print $1,$5,$3,$4,$2">"}' infile
<Subject D="010101010101" B="1039502" C="2015-06-30" A="I">