请问高手如何读取文本文件中特定字符串的内容

Question

有一个文本文件如下，
01000001|Jan 12 2004 12:00AM|4600149017|00010|4703|21101|10|
01000002|Jan 12 2004 12:00AM|0190110417|00001|0101|416|10
01000003|Jan 12 2004 12:00AM|4790310417|00001|4703|416|10
01000004|Jan 12 2004 12:00AM|0190110101|90001|0101|10101|10|
现在我只想读取“Jan 12 2004 ”，也就是读取第一行的“Jan 12 2004 ”即可，并将他赋与一个字符串变量，请问高手如何实现

Answer 1

procedure TForm1.Button4Click(Sender: TObject);
var
  StringList:TStringList;
begin
  StringList:=TStringList.Create ;
  try
    StringList.LoadFromFile('F:\1.txt');
    Caption:=copy(StringList.Strings[0],10,11);
  finally
    StringList.Free;
  end;
end;

Answer 2

Readln(F, Str);
I:=ansipos('|',Str);
J:=ansipos(':',Str);
S:=Copy(Str,I+1,J-I-3);

Answer 3

一般情况下建议用Copy()函数
但是，如果不知道目标的所在位置。
就要用到搜索函数了！

Answer 4

现将文件读取放到临时的TRichEdit对象中
然后：执行RichEdit1.FindText();取得位置
再Copy();