关于读文件的问题

Question

我在文本文件a.txt中写入了一个用分号做为分隔的字符串.比如:
     王五;9999;2003-10-09  12:12:12
      我现在想读取第二个分号后的字符串2003-10-09  12:12:12.那我该如何直接读取?
     还有一个问题就是第二个分号后的字符串是要随时改变的,我的想法是写将该字符删掉,再将一个新的时间字符串写入第二个分号后,我该怎么实现?
谢谢大家!

Answer 1

既然同属文本文件，我觉得用INI文件形式来操作要更容易一些，因为
在INI中，用节和字段标示的每个域的读取或写入都是非常容易的。

Answer 2

用INI文件或XML文件吧,这样操作方面点.

Answer 3

把文本每次取一行出来，放在一个字符串中，用LENTH函数定其长度，用POS、COPY等几个
函数定位，就可对其中的任意字符（串）进行存取，你查查DELPHI帮助。

Answer 4

var
  MyText: TextFile;
  tempstr,str:string;
  strlen,b,c:integer;
begin
  AssignFile(MyText,OpenDialog1.FileName);
  Reset(MyText);
  Readln(MyText,tempstr);
  strlen:=length(tempstr);
  b:=0;
  c:=0;
  while b<=strlen do
  begin
    tempstr:=copy(tempstr,b,1);
    if tempstr=';' then
      inc(c,1);
    if c=2 then
      str:=copy(tempstr,b,n);//n的个数你自己定吧
  end;
end;