IF NOT USED('Book1')
USE Book1 IN 0
ENDIF
*01.哲学
SELECT Book1
LOCATE FOR AT(' ',ALLTRIM(fi1))=0
IF FOUND()
M_xkml=ALLTRIM(fi1)
SKIP
ENDIF
*'李建华
55
伦理学、政治哲学
中南大学'
DO whil NOT EOF()
M_fi1=ALLTRIM(fi1)
M_xm=LEFT(M_fi1,AT(' ',M_fi1))
M_fi1=ALLTRIM(SUBSTR(M_fi1,AT(' ',M_fi1)))
M_nl=LEFT(M_fi1,AT(' ',M_fi1))
M_fi1=ALLTRIM(SUBSTR(M_fi1,AT(' ',M_fi1)))
M_xkzc=LEFT(M_fi1,AT(' ',M_fi1))
M_fi1=ALLTRIM(SUBSTR(M_fi1,AT(' ',M_fi1)))
M_DWMC=M_fi1
REPLACE xkml WITH M_xkml,XM WITH M_xm,nl WITH M_nl,xkzc WITH M_xkzc,DWMC WITH M_DWMC
SKIP
IF NOT EOF() AND AT(' ',ALLTRIM(fi1))=0
M_xkml=ALLTRIM(fi1)
SKIP
ENDIF
ENDDO
USE IN Book1