对文本文件操作的问题！

Question

没办法，遍历整个文件了。
while not eof(F) do
Readln(F, S);
if (Pos('559', S) <> 0) or (Pos('560', S) <> 0) or (Pos('561', S) <> 0) then
begin
  ......
end;
end;

Answer 1

如果你觉得自己写代码导入太麻烦的，那可以用excel来导入数据（这个应该比较方便），然后用odbc配置一个excel型的数据库，接着就可以用数据库的方法了否则就辛苦你了，一行行的读入数据，再进行判断   ：）

Answer 2

建议你将txt文件作为一个表来对待，但是在这之前首先要定义该txt的文件结构，其文件名与txt文件名相同,后缀名为.sch，然后将table的TableType属性摄卫ttASCII,然后即可对它进行操作