st=alltrim(fgets(in_file,8000))
    len1=atcc('|',st,1)                        &&取第一个:前的字符
         mpost=SUBSTRC(st,1,len1-1)
        
    len1=atcc('|',st,1)                         &&取第一个:和第二个:之间的字符
        len2=atcc('|',st,2)
        maddress=SUBSTRC(st,len1+1,len2-len1-1)   
********
说明：
mpost=        
maddress=
能一行写下来代码不？