深
深圳小吴
Unregistered / Unconfirmed
GUEST, unregistred user!
我想把用文本文件批量的输入数据!
如有文本文件:
1,1.00,6:00,23:00,东湖站,爱国路,火车站
2,1.50,6:00,23:00,布吉,建设路,火车站
.
.
.
表的结构为:
nbus: alpha 3;
money:alpha 10;
btime:alpha 10;
etime:appha 10;
station:alpha 255;
我用逐个读字符的方法先判断是不是逗号在读入,代码如下!
while(not eof(file1))do
begin
query1.Append ;
while(not seekeoln(file1))do
begin
for i:=1 to 255 do
begin
read(file1,t);//t为一字符变量
if(j=4)then begin read(file1,buffer);//buffer为string
query1.fields[j].asstring:=buffer;
buffer:='';
break;
end;
if(t<>t1)then buffer:=buffer+t//t1=',';
else begin query1.Fields[j].asstring:=buffer;
j:=j+1;
buffer:='';
break;
end;
end;
end;
j:=0;
readln(file1);
// if(eof(file1))then break;
end;
但是以上代码在读前四个字段都很正常,到最后一个字段时老是前几个字符出现
乱码?
如:nbus=1,则station有可能变成' 爱国路,火车站';
有知为什么???
有更好的办法把文本文件转成指定格式的数据表吗???
哦!我用的是pardax 7.0!!!
如有文本文件:
1,1.00,6:00,23:00,东湖站,爱国路,火车站
2,1.50,6:00,23:00,布吉,建设路,火车站
.
.
.
表的结构为:
nbus: alpha 3;
money:alpha 10;
btime:alpha 10;
etime:appha 10;
station:alpha 255;
我用逐个读字符的方法先判断是不是逗号在读入,代码如下!
while(not eof(file1))do
begin
query1.Append ;
while(not seekeoln(file1))do
begin
for i:=1 to 255 do
begin
read(file1,t);//t为一字符变量
if(j=4)then begin read(file1,buffer);//buffer为string
query1.fields[j].asstring:=buffer;
buffer:='';
break;
end;
if(t<>t1)then buffer:=buffer+t//t1=',';
else begin query1.Fields[j].asstring:=buffer;
j:=j+1;
buffer:='';
break;
end;
end;
end;
j:=0;
readln(file1);
// if(eof(file1))then break;
end;
但是以上代码在读前四个字段都很正常,到最后一个字段时老是前几个字符出现
乱码?
如:nbus=1,则station有可能变成' 爱国路,火车站';
有知为什么???
有更好的办法把文本文件转成指定格式的数据表吗???
哦!我用的是pardax 7.0!!!