文件读写的问题

Question

文件读写的问题
我想做个小程序，以文本形式打开文件，主要是网页形式的 .asp.html等等，找到特定的一段字符串，在这字符串后面插入一段代码，想请教应该用什么形式打开文件比较好？ 如何查找字符串？如何插入？请指点 最好详细点

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
var
  txtF: TextFile;            //文本文件
  tmpS, tmpL: String;        //各个字段字符串值，各行字符串值
  lenL, posS, filP: Integer; //各行字符串长度，#字符位置，字段索引
begin
  AssignFile(txtF,'demo.txt'); //文本文件关联
  Reset(txtF);                 //打开文本文件
  filP := 1;                   //初始化字段序号为1
  While not Eof(txtF) do       //循环读取各行文本
  begin
    ReadLn(txtF,tmpL);         //读取一行字符串
    while posS <> 0 do         //循环处理各行字符串
    begin
      tmpL := Trim(tmpL);      //去掉前后空格
      lenL := Length(tmpL);    //获得各行字符串长度
      posS := Pos('#',tmpL);   //获得#符号位置
      tmpS := Copy(tmpL,1,posS);            //获得各个字段值
      tmpL := Copy(tmpL,posS+1,lenL-posS);  //去掉已经提取的字段字符串
      Table1.Fields[filP].AsString := tmpS; //给表字段赋值
      Inc(filP);                            //更改字段索引
      if filP > 3 then filP := 1;           //字段索引循环，1-3
    end;
  end;
  CloseFile(txtF);                          //关闭文本文件
end;

Answer 2

打开文本文件可以使用：
TextFile的Readln读行的方法
TFileStream的流方法，这个对什么文件都适用
TStringList的文本行方法查找文本可以参看Help中TFindDialog的相关说明http://lysoft.7u7.net

Answer 3

那如果我想打开.asp的文件呢？
是不是把AssignFile(txtF,'demo.txt'); //文本文件关联
改为AssignFile(txtF,'demo.asp');

Answer 4

建议使用TStream类的控件.
关联文件无所谓的...
你可以把这个当txt文件来操作,和后缀没什么关系,我认为.