请求帮助!!!这样的文本文件如何读入数据库?(100分)

  • 主题发起人 主题发起人 joann
  • 开始时间 开始时间
J

joann

Unregistered / Unconfirmed
GUEST, unregistred user!
楼盘名称 : xxxx建设发展有限公司 楼盘编号 : 000001
存款帐号 : 40001 总期数 : 180
-------------------------------------------------------
楼盘名称 : xxxx开发公司 楼盘编号 : 000002
存款帐号 : 40002 总期数 : 240
-------------------------------------------------------
...................
...................
楼盘名称 : xxxx建设发展有限公司 楼盘编号 : 000149
存款帐号 : 40631 总期数 : 360
-------------------------------------------------------
楼盘名称 : xxxx开发公司 楼盘编号 : 000150
存款帐号 : 40892 总期数 : 120
-------------------------------------------------------

读入PARADOX数据库表为
LPMC LPBH CKZH ZQS
xxxx建设发展有限公司 000001 40001 180
xxxx开发公司 000002 40002 240
...................
xxxx建设发展有限公司 000149 40631 360
xxxx开发公司 000150 40892 120
 
:可以作为分界符
 
用两个Stringlist,第一个s1先把文件load进来,
然后把s1中的":"replace成空格,用第二个Stringlist,
s2.commtext:=s1
楼盘名称->s2[1],xxxx建设发展有限公司->s2[3]
inc(i)
s2.commtext:=s1
存款帐号->s2[1],总期数->s2[3]
 
sorry,写错了
楼盘名称->s2[1],楼盘编号->s2[3]
inc(i)
s2.commtext:=s1
存款帐号->s2[1],总期数->s2[3]
 
如果你的文本文件的格式如你所说能够保持一致:
可以考虑用,
readln()一行一行的读.
然后因为你的每一行都有两个:号,所以可以用程序判断它的存在
这样用pos()你就可以确定需要放入数据库的每个具体的值,然后通过
循环
adoquery1.fieldbyname(你的字段).asstring:=你用上面的方法所读出的字符串
这们可以解决你的问题
试试吧
 
问题解决了吗?能发给我一份吗?hbxyk@ufsoft.com.cn
 
接受答案了.
 

Similar threads

S
回复
0
查看
3K
SUNSTONE的Delphi笔记
S
S
回复
0
查看
2K
SUNSTONE的Delphi笔记
S
I
回复
0
查看
770
import
I
后退
顶部