’ibbsログコンバータ
'(C)2006 hiro http://cinema1987.org/diary/
'2006年2月19日修正

!「nakonet.nako」を取り込む。

●母艦設計
　　母艦の可視はオフ。
　　その幅は580。
　　その高さは160。
　　そのタイトルは「ibbsログコンバータ」。

ウィンドウ背景色で画面クリア
『#親部品名,部品名,テキスト,ショートカット,オプション,イベント
なし,ファイルメニュー,ファイル(&F),,,
-,開くメニュー,forum.txtを開く(&O),Ctrl+O,,フォーラム開く
-,-,,,,
-,閉じるメニュー,閉じる(&C),Ctrl+Shift+F4,,終了処理
なし,ヘルプメニュー,ヘルプ(&H),,,
-,バージョン情報,バージョン情報(&Z),,,情報
』をメニュー一括作成。

ボタン1とはボタン。
ボタン1のテキストは「ダウンロード」
ボタン1のXは30
ボタン1のYは30
ボタン1のWは100
ボタン1のHは20
ボタン1をクリックした時は〜
　　ログFTP取得。

ボタン2とはボタン。
ボタン2のテキストは「一次処理」
ボタン2のXは150
ボタン2のYは30
ボタン2のWは100
ボタン2のHは20
ボタン2をクリックした時は〜
　　一次処理。

ボタン3とはボタン。
ボタン3のテキストは「日付順ログ変換」
ボタン3のXは260
ボタン3のYは30
ボタン3のWは120
ボタン3のHは20
ボタン3をクリックした時は〜
　　日付順。

ボタン4とはボタン。
ボタン4のテキストは「タイトル順ログ変換」
ボタン4のXは390
ボタン4のYは30
ボタン4のWは140
ボタン4のHは20
ボタン4をクリックした時は〜
　　タイトル順。

フォーラムエディタとはエディタ
そのテキストは「最初にダウンロードボタンを押し、最新のログをダウンロードしてください。」
フォーラムエディタのXは30
フォーラムエディタのYは60
フォーラムエディタのWは500

母艦を中央移動。
母艦の可視はオン。

ファイルチェック。
待機。

●フォーラム開く
　　「{デスクトップ}forum.txt」が存在するか。
　　もし、それがはいならば
　　　　「{デスクトップ}forum.txt」を起動。
　　違えば、
　　　　「デスクトップにforum.txtがありません。{改行}一次処理ボタンを押してください。」と言う。
　　戻る。

●情報
　　「ibbsログコンバータver.0.1
(C)2006 hiro{改行}http://homepage3.nifty.com/cinema1987/」と言う。
　　戻る。

●ログFTP取得
’ファイルのダウンロード
　　「HOST=foo.bar.ne.jp
ID=foo
PASSWORD=pass1234」でFTP接続。
　　「/home/foo/public_html/cgi-bin/ibbs」にFTP作業フォルダ変更。
　　経過ダイアログ。
　　エラー監視。
　　　　「ibbs.dat」を「{デスクトップ}ibbs.txt」へFTPダウンロード。
　　エラーならば、「ファイルをダウンロードできませんでした。」と言う。
　　　　終わる。
　　FTP切断。
　　１秒待つ。
　　フォーラムエディタのテキストは「一次処理ボタンを押してください。」
　　戻る。

●ファイルチェック
　　「{デスクトップ}ibbs.txt」が存在するか。
　　もし、それがはいならば
　　　　戻る。
　　違えば、
　　　　「デスクトップにibbs.txtがありません。{改行}最初にダウンロードしてください」と言う。
　　待機。

●一次処理
　　ファイルチェック。
　　クリア＝「」。
　　クリアを「{デスクトップ}forum.txt」に保存。

　　ログファイルに「{デスクトップ}ibbs.txt」を開く。
　　正規表現修飾子＝「ig」
　　ログファイルの「<>」をタブに正規表現置換。
　　「Re: 」を「」に正規表現置換。
　　それを「{デスクトップ}temp.txt」に保存。

　　ログファイル２に「{デスクトップ}temp.txt」を毎行読んで反復。
　　　　ログファイル２はタブで区切ったもの。
　　　　timeはログファイル２【1】。
　　　　nameはログファイル２【2】。
　　　　titleはログファイル２【4】。
　　　　commentはログファイル２【5】。
　　　　ログファイル３は「■{タブ}{time}{タブ}{カッコ}{title}{カッコ閉}{タブ}　{comment}{タブ}by {name}{改行}」。
　　　　ログファイル３を「{デスクトップ}forum.txt」に追加保存。
　　「{デスクトップ}forum.txt」を読む。
　　それをTSV取得。
　　それはそれの1を表ソート。
　　「,」をタブに置換。
　　「　　」を「　」に置換。
　　「{デスクトップ}forum.txt」に保存。
　　「{デスクトップ}temp.txt」をファイル削除。
　　「{デスクトップ}forum.txt」を起動。
　　フォーラムエディタのテキストは「デスクトップのforum.txtから不要な行を削除してください。」
　　戻る。

●日付順
　　ファイルチェック。
　　エラーチェック。
　　「■{タブ}」を「{改行}■」に置換。
　　「{タブ}」を「{改行}」に置換。
　　「<br><br>」を「{改行}」に置換。
　　「<br>」を「{改行}」に置換。
　　「{デスクトップ}date_sort.txt」に保存。
　　「{デスクトップ}date_sort.txt」を起動。
　　フォーラムエディタのテキストは「日付順に並べ替えました。→デスクトップのdate_sort.txt」。
　　戻る。

●タイトル順
　　ファイルチェック。
　　エラーチェック。
　　それをTSV取得。
　　それの2を表ソート。
　　それの2を表ソート。
　　「,」をタブに置換。
　　「■{タブ}」を「{改行}■」に置換。
　　「{タブ}」を「{改行}」に置換。
　　「<br><br>」を「{改行}」に置換。
　　「<br>」を「{改行}」に置換。
　　「■.*{改行}」を「」に正規表現置換。
　　「{デスクトップ}title_sort.txt」に保存。
　　「{デスクトップ}title_sort.txt」を起動。
　　フォーラムエディタのテキストは「タイトル順に並べ替えました。→デスクトップのtitle_sort.txt」。
　　戻る。

●エラーチェック
　　エラー監視
　　　　「{デスクトップ}forum.txt」を読む。
　　エラーならば、
　　　　「デスクトップにforum.txtがありません。{改行}一次処理ボタンを押してください。」と言う。
　　　　待機。
　　戻る。

●終了処理
　　「終了します。よろしいですか？」と二択。
　　もし、それがはいならば、
　　　　終わる。
　　違えば、
　　　　戻る