怎样从一部分文件中读取其中的一部分文件~~~~~~~~~~~~~~~

Question

这是文件的一部分！！我怎样才能把他读出来啊！！
POR    VALUE
   0.00000000E+00   0.00000000E+00   0.00000000E+00   0.00000000E+00
   0.00000000E+00   0.00000000E+00   0.00000000E+00   0.00000000E+00
   0.00000000E+00   0.00000000E+00   0.00000000E+00   0.00000000E+00
   0.00000000E+00   0.00000000E+00   0.00000000E+00   0.00000000E+00
   0.00000000E+00   0.00000000E+00   0.00000000E+00   0.00000000E+00
ACTCELL
         
          0          0          0          0          0          0
          0          0          0          0          0          0
          0          0          0          0          0          0
          0          0          0          0          0          0
          0          0          1          0          0          0
          0          0          1          0          0          0
DZNET  VALUE
      .000      .000      .000      .000      .000      .000      .000      .000
      .000      .000      .000      .000      .000      .000      .000      .000
      .000      .000      .000      .000      .000      .000      .000

Answer 1

POR    VALUE
   0.00000000E+00   0.00000000E+00   0.00000000E+00   0.00000000E+00
   0.00000000E+00   0.00000000E+00   0.00000000E+00   0.00000000E+00
   0.00000000E+00   0.00000000E+00   0.00000000E+00   0.00000000E+00
   0.00000000E+00   0.00000000E+00   0.00000000E+00   0.00000000E+00
   0.00000000E+00   0.00000000E+00   0.00000000E+00   0.00000000E+00
ACTCELL
         
          0          0          0          0          0          0
          0          0          0          0          0          0
          0          0          0          0          0          0
          0          0          0          0          0          0
          0          0          1          0          0          0
          0          0          1          0          0          0
DZNET  VALUE
      .000      .000      .000      .000      .000      .000      .000      .000
      .000      .000      .000      .000      .000      .000      .000      .000
      .000      .000      .000      .000      .000      .000      .000如果这就是你的文件格式，那么可以这么做：
根据POR    VALUE 或者DZNET  VALUE这些信息确定文件部分的开始和结束，然后读取。

Answer 2

对呀 就是这个格式
你看我读的！！
  while not eof(f) do
   begin
   readln(f,skey);
   skey:=uppercase(skey);
   skey:=trim(skey);
   if skey='pop value' then
   begin
      while  skey<>'ACTCELL'  do
      begin
         这里是文件的内容
     end;
  end;
 接下来在读下一个！！但读不出来！！ 

Answer 3

procedure TForm1.Button1Click(Sender: TObject);
var
i,a,b,c : integer;
f,tf : TStringList;
begin
  f := TStringList.Create;
  f.LoadFromFile('d:\aa.txt');
  for i := 0 to f.Count-1 do
  begin
    if f[i] = 'POR    VALUE' then a := i;
    if f[i] = 'ACTCELL' then b := i;
    if f[i] = 'DZNET  VALUE' then c := i;
  end;
  tf := TStringList.Create;
  for i := a to b-1 do
    tf.Add(f[i]);
  tf.SaveToFile('d:\porvalue.txt');
  tf.Clear;
  for I := b to c-1 do
    tf.Add(f[i]);
  tf.SaveToFile('d:\actcell.txt');
  tf.Clear;
  for I := c to f.Count-1 do
   tf.Add(f[i]);
  tf.SaveToFile('d:\dznetvalue.txt');
end;D7,WINXP下测试通过,d:\aa.txt就是你那个文件

Answer 4

//faint
   skey:=uppercase(skey);
   skey:=trim(skey);
   if skey='pop value' then
//faint again你换成大写后，为什么比较里面用小写呢？

Answer 5

我想要其中一个文件读出来时是这样~~~~~~~~
ACTCELL
         
          0.1          0.2          0          0          0          0
          0.1          0.2          0          0          0          0
          0.1          0.2          0          0          0          0
          0.1          0.2          0          0          0          0
          0.1          0.2          1          0          0          0
          0.1          0.2          1          0          0          0

Answer 6

不太明白你现在需求的是什么意思???ACTCELL
         
          0          0          0          0          0          0
          0          0          0          0          0          0
          0          0          0          0          0          0
          0          0          0          0          0          0
          0          0          1          0          0          0
          0          0          1          0          0          0ACTCELL
         
          0.1          0.2          0          0          0          0
          0.1          0.2          0          0          0          0
          0.1          0.2          0          0          0          0
          0.1          0.2          0          0          0          0
          0.1          0.2          1          0          0          0
          0.1          0.2          1          0          0          0两者之间有什么关联嘛？