如何将，.TEXT的文本文件写入数据库中？
文本文件 A.TEXT 是：
张某；19；一(1)
李某；20；一(2)
陈某；21；一(3)
赵某；22；一(5)
说明：每行后都有一个换行符，每一行中用分号（；）隔开字符串
A（TABLE）结构是：
id int 自动加一
name varchar(20)
age varchar(20)
grade varchar(20)
如何把A.TEXT 记录写进 A（TABLE）？
问题点数：23、回复次数：15Top
1 楼summer1978（夏）回复于 2001-05-22 14:51:00 得分 0
先把文本文件读到一个字符窜变量里去，再进行分解，肯定是绝对可以实现的，只是可能很麻烦做起来。Top
2 楼devv（song）回复于 2001-05-22 15:11:00 得分 0
楼上的同志，详细些，Top
3 楼pure_cmh（不死鸟）回复于 2001-05-22 15:12:00 得分 0
同意summerTop
4 楼pure_cmh（不死鸟）回复于 2001-05-22 15:15:00 得分 0
假设已经在string1中
按照你自己所说的特征，以；为分割符，可以方便的得到每个记录对应的值：）Top
5 楼summer1978（夏）回复于 2001-05-22 15:21:00 得分 5
你先将文本文件按换行符的分开读到一个字符窜变量中去，
比如：str1:='张某；19；一(1)',然后就分解这个字符窜，将他逐个加到数据库中去呀
name:=copy(str1,0,4),加到数据库中去呀。
Top
6 楼devv（song）回复于 2001-05-22 15:22:00 得分 0
pure_cmh(不死鸟):
我比较菜；您能否把如何得到每个记录对应的值以例子形式赐给我？先谢了Top
7 楼pure_cmh（不死鸟）回复于 2001-05-22 15:23:00 得分 0
补充：）
用pos获取；所在位置，要不然三个字的名字不就惨了：）Top
8 楼summer1978（夏）回复于 2001-05-22 15:24:00 得分 0
对，那到是，用pos,不要copyTop
9 楼devv（song）回复于 2001-05-22 15:33:00 得分 0
summer1978(夏)：
我的悟性比较低；我还是不明白
1.文本件里肯定不止四条（行），有可能上万行，我如何读，又如何分解字符窜；
2。能以一个例子，将全过程给我？ Top
10 楼Apollo47（阿波罗）回复于 2001-05-22 15:34:00 得分 0
用Readln把文件中的第一行读到一个字符串中，再把这个字符串按“；”号分解成名字、年龄、班级三部分，再把这三部分写入数据库中；接着读文件中的第二行。。。。。。。第三行。。。。。。。。
整个过程可用 While 循环语句。
Top
11 楼pure_cmh（不死鸟）回复于 2001-05-22 15:36:00 得分 5
看看帮助啦！
几个用得到的命令都已经提示了，多看help才可以多学点：）
pos
copy
再就是数据库的SQL语言了Top
12 楼devv（song）回复于 2001-05-22 15:39:00 得分 0
Apollo47(阿波罗):
恳求您把“再把这个字符串按“；”号分解成名字、年龄、班级三部”具体如何分解说详细一些
最好能用例子赐教！ Top
13 楼Apollo47（阿波罗）回复于 2001-05-22 16:46:00 得分 13
procedure TForm1.Button1Click(Sender: TObject);
var s:string;
i:integer;
Strs:TStringList;
begin
s:='aaa;bbb;ccc';
Strs:=TStringList.Create;
while pos(';',s)<>0 do
begin
i:=pos(';',s);
Strs.Add(copy(s,1,i-1));
Delete(s,1,i);
end;
Strs.Add(s);
end;
Top
14 楼devv（song）回复于 2001-05-22 17:25:00 得分 0
谢谢各位老师的赐教Top
15 楼devv（song）回复于 2001-05-22 17:27:00 得分 0
谢谢各位老师的赐教 Top
