还需要重新make .dir

发信人: Eternity (Eternity), 信区: NetGroup
标  题: 转换dvbbs的程序
发信站: 数学科学学院公共论坛 (Sat Jun 19 02:50:02 2004), 本站
(bbs.math.pku.edu.cn)

const
  BoardID: Integer = 87;
  BoardName: String = '研究生课程讨论区';


procedure TForm1.Button1Click(Sender: TObject);
var
  str, fn: String;
  id: Integer;
  f: TextFile;
  dt: TDateTime;
  dts: String;
begin
  TableTopic.First;
  TableBBS1.First;
  while (not TableTopic.Eof) do
  begin
    // M.1087481645.A
    if (TableTopic.Fields[2].AsInteger = BoardID) then
    begin
      dt := TableTopic.Fields[8].AsDateTime;
      dts := IntToStr(DateTimeToUnix(dt));
      fn := Format('M.%s.A', [dts]);
      Memo1.Lines.Add(fn);
      AssignFile(f, fn);
      Rewrite(f);
      str := Format('发信人: %s., 信区: %s', [TableTopic.Fields[6].AsString,
BoardName]);
      WriteLn(f, str);
      str := Format('标  题: %s', [TableTopic.Fields[1].AsString]);
      WriteLn(f, str);
      str := Format('发信站: Math BBS (%s), 本站(DvBBS 数据转换)',
[TableTopic.Fields[8].AsString]);
      WriteLn(f, str);
      WriteLn(f);
      {str := TableTopic.Fields[12].AsString;
      str := Copy(str, Pos('$', str) + 1, Length(str) - Pos('$', str));
      str := Copy(str, 1, Pos('$', str) - 1);}
      id := TableTopic.Fields[0].AsInteger;
      TableBBS1.First;
      while (not TableBBS1.Eof) do
      begin
        // root id
        if (TableBBS1.Fields[9].AsInteger = id) then
        begin
          str := #27'[1;36m──────────────────────────
─────────────'#27'[0m';
          WriteLn(f, str);
          str := Format(#27'[1;33m▌ 作者 %S    时间 %s    IP %s'#27'[0m',
                        [TableBBS1.Fields[3].AsString, TableBBS1.Fields[7]
.AsString, TableBBS1.Fields[13].AsString]);
          WriteLn(f, str);
          str := #27'[1;36m──────────────────────────
─────────────'#27'[0m';
          WriteLn(f, str);
          str := TableBBS1.Fields[6].AsString;
          WriteLn(f, str);

        end;
        TableBBS1.Next;
      end;
      WriteLn(f);
      CloseFile(f);
    end;
    TableTopic.Next;
  end;
end;
--
FROM 202.119.32.102