有一个表，字段 filename（C）,FTXT(M),其中 FTXT中是多行数据，想要得到一个新的表：

原表的1条记录内容：
filename        ftxt（备注型）
DGYS201704002   [1]LEVY J A. The hospice in the context of an aging society[J]. Journal of aging studies, 1989, 3(4): 385-399.
                [2]PRATT M, MACERA C A, WANG G. Higher direct medical costs associated with physical inactivity[J]. The physician and sportsmedicine, 2000,28(10): 63-70.
                [3]马惠娣, 邓蕊, 成素梅. 中国老龄化社会进程中的休闲问题[J].自然辩证法研究, 2002, (8): 58-62.
                [4]田翠芹, 齐心. 农民闲暇[M]. 北京: 社会科学文献出版社, 2005.

结果表：4条记录
filename         ftxt  （备注型）
DGYS201704002   [1]LEVY J A. The hospice in the context of an aging society[J]. Journal of aging studies, 1989, 3(4): 385-399.
DGYS201704002   [2]PRATT M, MACERA C A, WANG G. Higher direct medical costs associated with physical inactivity[J]. The physician and sportsmedicine, 2000,28(10): 63-70.
DGYS201704002   [3]马惠娣, 邓蕊, 成素梅. 中国老龄化社会进程中的休闲问题[J].自然辩证法研究, 2002, (8): 58-62.
DGYS201704002   [4]田翠芹, 齐心. 农民闲暇[M]. 北京: 社会科学文献出版社, 2005.

请大侠们帮忙写段程序，谢谢！

原表FTXT中共有28条记录
VFP9代码

CLOSE DATABASE
USE ckwx
bb = filename
ALINES(aa, ftxt)
SELECT * FROM ckwx WHERE .F. INTO TABLE ckwx1
FOR lnj = 1 TO 4
    INSERT INTO ckwx1 VALUES (bb, aa[lnj])
ENDFOR
SELECT ckwx1
BROWSE 

谢谢！

如果原表有多条记录怎么处理啊？谢谢！

说说看，上传相关文件

CLOSE DATABASE
set memowidth to 1024
SELECT 0
USE ckwx
COPY STRUC TO CKWX1
SELECT 0
USE CKWX1
SELECT CKWX
SCAN
bb = filename
ALINES(aa, ftxt)
stor meml(ftxt) to n
FOR j = 1 TO n
 SELECT CKWX1
 APPEND BLANK
 REPL FILENAME WITH BB
 REPL FTXT  WITH AA(J)
ENDFOR
ENDSCAN
SELECT ckwx1
BROWSE


已解决了，真的谢谢！@sdta

自己动手，丰衣足食。