求助，如何把一个txt文本的内容分别插到父子表中？？

[十豆七]

txt内容：
2002110001~~3~~远方公司~~321000X89010001~~湖北省武汉市~~工行珞珈山办事处~~软件价格不包含有偿服务费~~张三~~李四
财务软件~~套~~四模块~~1~~10300.00~~0.17~~1510~~0
软磁盘~~盒~~5"~~-1~~-30.00~~0.17~~1510~~0~~-5.12
软磁盘~~盒~~3"~~1~~60.00~~0.17~~1510~~10~~10.2

第一行为主表内容，插到主表中
下面的三行都是明细表内容，插到明细表中

表单的父子表要关联起来，就是点击主表记录，明细表自动对应的记录（就是2，3，4行记录）

拜谢了！！！

[WWWWA]

两条记录分隔以空格 OR //单据？
1条记录内明细表的内容开头有空格？
是否固定

[十豆七]

两条记录以//单据分隔
有空格
都是固定的

[WWWWA]

假设格式固定，TXT为A
CREATE CURSOR dd(bh c(254),abz c(3),bbz n(3))
APPEND FROM a.txt sdf
1
bz=0
abz='z'
SCAN
IF AT('单据',bh)>0
bz=bz+1
SKIP
REPLACE abz WITH 'f',bbz WITH bz
ENDIF
IF LEFT(bh,2) =SPACE(2)
REPLACE abz WITH 's',bbz WITH bz
ENDIF
ENDSCAN
brow

剩下的事可以做了吧

[WWWWA]

F为主表记录标志，S为从表记录标志，abz 为同1条记录标志，自行修改，
将abz为F、S的COPY到TXT中，再用
APPE FROM TXT DELI WITH '~~'导入你的主表、从表中

[十豆七]

这1是什么意思诶？

[WWWWA]

[Quote=引用 9 楼 szqy716 的回复:]
这1是什么意思诶？
[/Quote]
bbz 为同1条记录标志，即主表记录、明细表记录是对应的，比如
2002110001~~3~~远方公司~~321000X89010001~~湖北省武汉市~~工行珞珈山办事处~~软件价格不包含有偿服务费~~张三~~李四
主表记录

财务软件~~套~~四模块~~1~~10300.00~~0.17~~1510~~0
软磁盘~~盒~~5"~~-1~~-30.00~~0.17~~1510~~0~~-5.12
软磁盘~~盒~~3"~~1~~60.00~~0.17~~1510~~10~~10.2
明细表记录
也可以自行修改

[WWWWA]

[Quote=引用 9 楼 szqy716 的回复:]
这1是什么意思诶？
[/Quote]
相当于两表的1个KEY字段，通过此字段连接

[十豆七]

还是有点问题的，第二行为空记录，你的执行结果，把它当作第一条记录了，并有s符号

还有剩下来的代码还是不会写，麻烦帮帮忙!!!(初学者，很菜)

[WWWWA]

我将空记录删除了，
没有写代码，DELETE FROM dd WHERE LEN(ALLT(BH))=0

还有剩下来的代码还是不会写
自己动手试试
提示：
copy to asd.txt sdf for abz='f'
copy to ase.txt sdf for abz='e'
假设主表已经建立，且字段对应，你的TXT文件格式正确
use 主表
APPE FROM asd.TXT DELI WITH '~~'导入你的主表、从表中

[十豆三]

帖一下你的 主表 和 明细表 的字段有哪些，及字段类型、长度。

[十豆七]

copy to asd.txt sdf for abz='f' 这句代码什么意思？
asd.txt哪来的啊？？

[十豆七]

都是根据txt内容定的
主表：
2002110001（单据编号）~~3（表示有三条明细）~~远方公司（购方名称）~~321000X89010001（购方税号）~~湖北省武汉市（购方地址电话）~~工行珞珈山办事处（购方银行账号）~~软件价格不包含有偿服务费~~张三~~李四

明细表
财务软件（商品名称）~~套（单位）~~四模块（规格型号）~~1（数量）~~10300.00（单价）~~0.17（税率）~~1510（税额）~~0
软磁盘~~盒~~5"~~-1~~-30.00~~0.17~~1510~~0~~-5.12（同上）
软磁盘~~盒~~3"~~1~~60.00~~0.17~~1510~~10~~10.2（同上）

[wwwwb]

导入后再处理是比较简单的方法

[十豆三]

[Quote=引用 20 楼 szqy716 的回复:]
请问一下，如何用fseek（）函数做呢？？？
[/Quote]
用 feek() 函数效率更低。

[十豆七]

但是要求是用fseek（），我也没办法啊？求大侠们，帮帮忙！！！

[wwwwb]

用FSEEK，VFP的优势无法体现出来，基本没有用过此函数，一般导入DBF，再做处理，自己看看VFP HELP，动手做吧，无法提供帮助。

[十豆七]

额。。。理解，十分感谢！

[十豆七]

求助啊,各位！！！

[wwwwb]

自己动手做一下吧，有问题再问

[十豆七]

请问一下，如何用fseek（）函数做呢？？？