关于数据读取的问题？？在线等！

Question

0 00:03:35.083.9  14 hhhh E2 04 00 00 00 00 00 1A ?......
1 00:03:35.315.5  1E aaaa 00 00 01 00 00 00  ........
2 00:03:35.557.6 706 05 .......
3 00:03:35.798.5  28 ffff 00 00 00 00 00 00 00 00 ........
4 00:03:36.054.0  32 01 00 00 00 00 00 00 00 ........
5 00:03:36.284.2 705 05 .......现在我想得到每一行中的数据如
E2 04 00 00 00 00 00 1A 或者00 00 01 00 00 00或者05，请问怎么做呢？

Answer 1

楼主，你给出的数据也没有规律可循啊，
.......   和  ?.......
是每一行的末尾，而你给的数据，......和前面的数据中间的分隔有的是一个空格，有的是一个TAb，怎么找啊。
是不是数据错了啊。

Answer 2

序号     时间              标示符   名字       数据                  ASCII码
0 00:03:35.083.9  14 hhhh E2 04 00 00 00 00 00 1A ?.....
每一行的数据是这样没有错，可能有的有名字，有的没有. 

Answer 3

unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;type
  TForm1 = class(TForm)
    Button1: TButton;
    Memo1: TMemo;
    procedure Button1Click(Sender: TObject);
  private
    function  CutStr(var Str:String):String;
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
var TxtFile:TextFile;
    vstr,tempStr:String;
begin
  AssignFile(TxtFile,'新建文本文档.txt');
  Reset(TxtFile);
  While not Eof(TxtFile) do
  begin
    Readln(TxtFile,tempStr);
    CutStr(tempStr);
    CutStr(tempStr);
    CutStr(tempStr);
    CutStr(tempStr);
    vstr:=Copy(tempStr,1,Pos(#9,tempStr)-1);
    Memo1.Lines.Add(vstr);
  end;
end;function TForm1.CutStr(var Str: String): String;
begin
  Result:=Copy(Str,1,Pos(#9,Str)-1);
  Str:=Copy(Str,Pos(#9,Str)+1,MaxInt);
end;end.