■スレッドリストへ戻る■ 全部 1- 101- 201- 301- 401- 501- 601- 701- 801- 901- 1001- 最新50

monazilla

93 :turbo type D@monazilla :2001/02/14(水) 12:07
Board一覧データの取得方法考えました。

クラスを作る
  //インスタンスが一つだけのクラス
  T2chBoardList class
    BoardCategorys: TList;//カテゴリのリスト
  end;

  //カテゴリごとのクラス
  TBoardCategory = class;
    Title: String;//【おすすめ】などのカテゴリ名
    BoardItems: TList;//カテゴリに属する板のTBordItemを保持
  end;

  //各板ごとのクラス
  TBoardItem = class
    Title: String;//板のタイトル
    Name: String;//板の英語名
    URL: String;//板のURL
  end;

--http://salad.2ch.net/bbstable.htmlのソースから
2chBoardListを生成

S := bbsSource;
CategoryDataStart := Sから【<B>を探索
CategoryDataEnd := Sから次の位置の【<B>を探索/見付からない場合は文末
CategoryData := SのCategoryDataStartからCategoryDataEndまで
CategoryDataが取得できなかったらエラー
SからCategoryDataは削除

CategoryTitleStart := CategoryDataから【<B>を探索
CategoryTitleEnd := CategoryDateから</B>】
CategoryTitle := CategoryDataのCategoryTitleStartからCategoryTitleEndまで
CategoryTitleが取得できなかったらエラー
BoardCategoryを生成2chBoradListに登録、タイトルに代入
CategoryDataからCategoryTitleは削除

BoardItemCount := CategoryDataの中ノ<Aと</A>の数を数える→一致しなければエラー
for i=0 to BoardItemCount-1 do
begin
  BoardItemDataStart := CategoryDataから<A HREF=を検索
  BoardItemDataEnd := CategoryDataから</A>を検索
  BoardItemData := CategoryDataのBoardItemDataStartからBoardItemDataEndまで
  CategoryDataからBoarItemDataは削除
  BoardItemDataは<A...>...</A>という文字列になっているので解析して
    リンク先とタイトルを取得する。
end;


316KB
新着レスの表示

スレッドリストへ戻る 全部 前100 次100 最新50

0ch BBS 2004-10-30