借助http://bbs.pfan.cn/post-285656.html中hw2007name的代码，稍做改动：
cRowStr=""
cWriteStr=""
NEW_STR = FILETOSTR('i:\A.TXT')
ROWBZ_STR=CHR(13)+chr(10)
FOR I=1 TO GETWORDCOUNT(NEW_STR,chr(13))
    cRowStr=GETWORDNUM(NEW_STR,I)
    IF cRowStr = '辽宁丹东'
        cWriteStr=cRowStr+ROWBZ_STR;
        +GETWORDNUM(NEW_STR,I+1)+ROWBZ_STR;
        +GETWORDNUM(NEW_STR,I+2)+ROWBZ_STR;        
        +GETWORDNUM(NEW_STR,I+3)+ROWBZ_STR        
        STRTOFILE(cWriteStr,"i:\B1.TXT",1)
    ENDIF    
ENDFOR