注册 登录
编程论坛 VFP论坛

数据表字段值合并与拆分求助

liujc73 发布于 2020-07-08 13:59, 1742 次点击
有一个表,字段 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.

请大侠们帮忙写段程序,谢谢!
6 回复
#2
sdta2020-07-08 14:32
原表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
#3
liujc732020-07-08 15:01
谢谢!
#4
liujc732020-07-08 15:19
回复 2楼 sdta
如果原表有多条记录怎么处理啊?谢谢!
#5
sdta2020-07-08 15:31
说说看,上传相关文件
#6
liujc732020-07-08 15:36
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
#7
sdta2020-07-08 16:00
自己动手,丰衣足食。
1