读取txt文件的指定的数据列问题!(100分)

  • 主题发起人 主题发起人 woshiyu
  • 开始时间 开始时间
W

woshiyu

Unregistered / Unconfirmed
GUEST, unregistred user!
小弟如今需要读取一个txt类型的文本文件。该文本形如:

Name Value1 Nominal Value2 Value3 Deviation Result
line1 -0.2816 -0.2816 0.0000 0.0000
Pass
line2 0.0281 0.0281 0.0000 0.0000
Pass
line3 0.0000 0.0000 0.0000 0.0000
...........
现在我需要读取任意列的数据放到一个临时的query中去,但是该文本有点不规则,而且数据是以行隔一行的,这样我该怎么实现呢?
 
你的列同列之间是怎么区别的?例如是:列1,8个空格,列2,。。。
 
只能循环读了
 
procedure StrToList(AList: TStringList);
begin
Alist.Clear;
ExtractStrings([' '],[], Pchar(Content), AList);
end;
这个过程把用空格隔开的字符串保存到一个TStringList当中。
先把你的文本读入一个Memo或者TStringList都可以。
每一行就是Memo1.Lines了,把每一行用此过程分开保存倒AList。
你判断AList[0]如果是pass跳过这行了。
否则就取得AList[j],j就是你想要的某一列了。
把i从0到尾一个循环就搞定了。
 
如果用的是oracle

load data infile '/oracle/bill/data/mydata.txt'
into table tmp_mydata
( fd1 position(1:8) char,
fd2 position(9:20) char,
fd3 position(21:10) char)
 
多人接受答案了。
 

Similar threads

S
回复
0
查看
3K
SUNSTONE的Delphi笔记
S
S
回复
0
查看
2K
SUNSTONE的Delphi笔记
S
S
回复
0
查看
751
SUNSTONE的Delphi笔记
S
S
回复
0
查看
758
SUNSTONE的Delphi笔记
S
后退
顶部