请教:如何用AWK命令对文本分列?

01z

对一文本文件，需要按指定字符位置定义各列,并在裂间插入"|",我用 CUT 命令实现,因一行记录要多次用 CUT, 执行效率特慢,我知道 AWK命令很好,但我不会用,请指教该如何用AWK实现以下功能?

cat psb.txt |while read ALINE
do
F1=`echo "$ALINE" |cut -c2-13`
F2=`echo "$ALINE" |cut -c14-19`
F3=`echo "$ALINE" |cut -c20-23`
F4=`echo "$ALINE" |cut -c24-83`
F5=`echo "$ALINE" |cut -c84-87`
F6=`echo "$ALINE" |cut -c88-147`
F7=`echo "$ALINE" |cut -c148-167`
F8=`echo "$ALINE" |cut -c168-173`
F9=`echo "$ALINE" |cut -c174-203`
echo $F1"|"$F2"|"$F3"|"$F4"|"$F5"|"$F6"|"$F7"|"$F8"|"$F9"|" >>psb.new
done

waker

1. sed 's/^.\(.\{12\}\)\(.\{6\}\)(.\{4\}\)\(.\{60\}\)(.\{4\}\)\(.\{60\}\)(.\{20\}\)\(.\{6\}\)(.\{30\}\).*$/\1|\1|\2|\3|\4|\5|\6|\7|\8|\9|/'
   

复制代码

寂寞烈火

[quote]原帖由 "waker"][/quote 发表：

waker

干不成脑力活儿只能干体力活儿了，火兄不要见怪

icesummit

[quote]原帖由 "waker"][/quote 发表：


偶都木有勇气看下去

r2007

恰好是<=9段，不然想干点体力活也不成^_^

waker

假设还有，不过是多出点儿汗

1. sed 's/^.\(.\{12\}\)\(.\{6\}\)(.\{4\}\)\(.\{60\}\)(.\{4\}\)\(.\{60\}\)(.\{20\}\)\(.\{6\}\)(.\{30\}\)/\1|\1|\2|\3|\4|\5|\6|\7|\8|\9|/;
   
2. s/^.\(\{211\}\)\(.\{12\}\)\(.\{6\}\)(.\{4\}\).*$/\1|\2|\3|\4|/'
   

复制代码

寂寞烈火

[quote]原帖由 "waker"][/quote 发表：

kao,悠着点兄弟

guangzongy

用awk的substr()来做的效率不知道如何^_^

waker

awk的substr
gensub
split我想都行
但写起来也都要十来句
而且 substr()不就是cut -c么？
gensub()相当于sed
split()要写9个for?

我想直接用bash 的 ${VAR::}也行
不过看来看去全是体力活儿