怎样将文本文件导入数据库?(100分)

C

CJ

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-10-03

• #21

CAKK：别喜欢的过头了呀
支持CAKK，除非你是以前老程序的数据，否则，多数是如此的，还是看提问着吧。

 

坏

坏蟑螂

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-10-04

• #22

我并不是赞成生成非标准、非规范、不通用、不统一、移植性差、可读性差的数据格式，
我想提问者自己也不赞成，
但他在工作中遇到的格式是不能确定的，也是不能以他的意识所改变的，
他的数据来源不见得就是人工录入的文本文件，或许是一些专用系统自动生成的数据。
如果他遇到的原始数据格式是标准、规范的，他干吗还要来这提问呢？

 

C

cAkk

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-10-04

• #23

对呀!
特殊的数据格式当然有,比如前段时间有人问"钱龙"的数据格式...
不过,不过你是正规的和"钱龙"搞合作开发的,你一定会知道格式的,
因为它的数据不标准,所以它一定会告诉你格式.

如果你想读取一个特殊类型文件,却又不知道格式,那么你是不是在...?

 

M

MaQi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-10-04

• #24

谢谢大家的热心帮助。我用的文本格式是：
0,1,3.4,6,0,,,,,,
它的每一个字段只有一个记录，或是整数或是小数。
因为我是一个初学者，所以还请大家讲的详细一点。谢谢！！！

 

C

cAkk

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-10-05

• #25

"每一个字段只有一个记录"?????????????????????????
应该是"每一个记录只有一个字段"吧? 看来还是怀蟑螂猜对了.

简单呀! 前面的人说得很清楚了, 我也写一个吧!
如何快速地把"1,2,3,4,5,6,7"格式文件读到 stringlist里面:
function ReadFromText(filename:string):tstringlist;
var lst:tstringlist;
begin
lst:=tstringlist.create;
lst.LoadFromFile(filename);
lst.text:=stringreplace(lst.text,',',chr(13)+chr(10),[rfreplaceall]);
result:=lst;
end;

读到字符串列表后就简单了,你遍历一遍依次写到你的数据库里面就是了.

 

坏

坏蟑螂

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-10-05

• #26

问题澄清了，解决办法也提出来了，
而且还有多种不同的办法，
他会接受谁的呢？
谁会得到这100分呢？
哈哈哈哈哈哈哈哈哈哈哈！！！！！！！！！1

 

S

SeaSky

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-12-21

• #27

多人接受答案了。