原文件为：
第一行：新A分店-订货单     |0109-20031117-05006 |0001|20031117|20031121|广州市白云区广花三路85＃                          |510665|新A分店            |                    |                    |厦门银鹭食品有限公司                    |10540210|020-34030236        |胡隼      |                                       
第二行：新A分店-订货单     |0109-20031117-05007 |0001|20031117|20031124|广州市白云区广花北路55＃                          |510665|新A分店            |                    |                    |广州市华记昌盛贸易有限公司              |10554510|82382609            |张永华    |                                       
第三行：新A分店-订货单     |0109-20031117-05013 |0001|20031117|20031120|广州市白云区广花F路59＃                          |510665|新A分店            |                    |                    |广州市万年红食品有限公司                |10557010|020-86051170        |钟梓玮    |                                       
第N行。。。。                           


从键盘上输入二个数，分别READ入。在上面文件中的每一行中的第二域中找到后4位相同的则把此行 > 到一个新文件中。如输入  :5006,5007则可把上面文件中的其中二行符合条件的>到newfile,我是这样写的，但得不到结果：

#!/bin/sh
echo -e -n "\t 起始号:[Enter:]"
read Begno
echo -e -n "\t 终止号:[Enter:]"
read Endno

if [ ${Begno} -lt ${Endno} ]
then
     sed -n "/^.\{35\}${Begno}/,/^.\{35\}${Endno}/p" file1.txt > newfile.txt
else
     echo "输入有误！"
fi
cat  newfile
或把：sed -n "/^.\{35\}${Begno}/,/^.\{35\}${Endno}/p" file1.txt > newfile.txt
修改成：
代码:
awk  "/${Begno}/,/${Endno}/" file1.txt  > newfile
也得不到结果！！

不明白你是要一段范围还是一点
就是 0001～0010之间还是只要0001和0019
如果是点的话awk可以轻松搞定，
如果是段的话awk就要麻烦一点点。


awk 'substr($2,3,length($2)-2)=05006 {print}'
这是一个例子，具体你再调一调。

:oops:

awk 'BEGIN{FS="|";OFS="|"}'
{
     section=substr($2,length($2)-3,4);
     if(section>=5007&&section<=5009){
          print >"new_file.txt"
     }
}

第2域的后4位？
还是固定位置在35列之后？

描述不清呀！

BEGIN{
        FS="|"
        printf "Please type First ID:"
        getline num_1 < "/dev/tty"
        printf "Please type Second ID:"
        getline num_2 < "/dev/tty"
}

{
match($2,/[0-9]+ $/)
}
num_1 == substr($2,RSTART+1,RLENGTH-2),num_2 == substr($2,RSTART+1,RLENGTH-2){print}