我见过一个bbs有从dvbbs转换到ytht代码的数据，具体那个忘了，好像是北大哪个学院的。
【 在 wangzhuoer (沧海三声笑) 的大作中提到: 】
: 请问有没有WEB基于mysql系统论坛数据转换到smth_BBS,或者fb2000之类BBS的程序呢,万分感谢
--
FROM 219.225.4.*

还需要重新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

忘了说了，是delphi的。
【 在 Fishingsnow (對鏡持柳葉自剖業與孽) 的大作中提到: 】
: 还需要重新make .dir
: 发信人: Eternity (Eternity), 信区: NetGroup
: 标  题: 转换dvbbs的程序
: 发信站: 数学科学学院公共论坛 (Sat Jun 19 02:50:02 2004), 本站
: (bbs.math.pku.edu.cn)
: const
:   BoardID: Integer = 87;
: ...................
--
FROM 202.119.32.102

m了
【 在 atppp@bbs.stanford.edu-SPAM.no (Big Mouse) 的大作中提到: 】
: m啦，顺便问一下有没有人做过转换帐号的程序，从dvbbs或者phpbb到bbs
: 【 在 tnds@smth.org-SPAM.no (拖泥带水) 的大作中提到: 】
: : 赞，全国各地都给m吧，呵呵
--
FROM 10.2.168.205

再烂比没有强。BBS需要大家的贡献 :)
【 在 Eternityz.bbs@ytht.net (歪歪·桃桃) 的大作中提到: 】
: ft
: 这个程序写得烂死了，就不要贴了吧……
: 当初赶时间写得，效率不高，每转一篇文章都要重新跑一遍数据库，哪位大侠优化一下吧
: ...................
--
FROM 128.12.155.*