{---プログラム掲示板投稿フォーム---
【ソフト名】DOS窓ちっくエディタ (バージョン 1.00)
【作 成 者】さくらめろん。 (連絡先:sakuramelon@hotmail.com)
【種 別】フリーソフトウェア
【ひまわりのバージョン】ver.1.56
【転 載】可(転載条件:ご自由に)
【改変運用】可(投稿したプログラムを他人が改造し運用することを許すか)
【ひまわり本体への梱包】可
【実行時に利用作成するファイル】有（option.ini/Tエディタ設定ファイル）
【コメント】
意地悪心で作ったエディタ（笑）win2000「コマンドプロンプト」を見て作りました。
右クリックするとメニューが出現します。
---投稿フォームここまで---}
＊初期設定
読込先=「untitled.txt」
エディタ変更=「」
＊メニュー設定
ファイルメニューを、作る。
そは、「ファイル(&F)」
その、可視は、オフ。
ファイルメニューに、新規メニューを、メニュー追加。
そは、「新規(&N)」
その、イベントは、新規作成処理。
ファイルメニューに、区切り0メニューを、メニュー追加。
そは、「-」
ファイルメニューに、開くメニューを、メニュー追加。
そは、「開く(&O)」
その、イベントは、開く処理。
ファイルメニューに、区切り1メニューを、メニュー追加。
そは、「-」
ファイルメニューに、保存メニューを、メニュー追加。
そは、「保存(&S)」
その、イベントは、保存処理。
ファイルメニューに、名前保存メニューを、メニュー追加。
そは、「名前を付けて保存(&A)」
その、イベントは、名前を付けて保存処理。
ファイルメニューに、区切り2を、メニュー追加。
そは、「-」
ファイルメニューに、終了メニューを、メニュー追加。
そは、「終了(&X)」
その、イベントは、終わり。
＊母艦設定
『母艦』を、その単語に特定。
その、サイズは、(22,22,682,457)。
その、タイトルは、「DOS窓ちっくエディタ - {読込先} {エディタ変更}」
その、変更した時は、(
『DOSちっくエディタ』を、その単語に特定。
その、幅は、母艦の、幅。
その、高さは、母艦の、高さ。
)。
(0,0)へ、移動。
DOSちっくエディタを、Tエディタとして、作成。
その、背景色は、黒。
その、幅は、母艦の、幅。
その、高さは、母艦の、高さ。
その、変更した時は、(
エディタ変更=「*」
母艦の、タイトルは、「DOS窓ちっくエディタ - {読込先} {エディタ変更}」
)
その、マウス押した時は、(
もし、押された特殊キー=「Right」なら、(
ファイルメニューの、可視は、オン。
)。
)。
DOSちっくエディタを、「{母艦のパス}option.ini」から、Tエディタ設定を読込。
終了処理に、終了処理設定。
待機。
＊終了処理
もし、エディタ変更=「*」ならば、(
「{読込先}は変更されていますが、保存しますか？」と、三択。
もし、(それ=はい)なら、保存処理に、飛ぶ。
もし、(それ=いいえ)なら、終わり。
もし、(それ=キャンセル)なら、終了処理に 終了処理設定。
)。
待機。
＊保存処理
もし、読込先=「untitled.txt」ならば、名前を付けて保存処理に、飛ぶ。
もし、読込先=「untitled.txt」でなければ、(
DOSちっくエディタの、テキストを、書込データに、得る。 '文字列取得
書込先=読込先。 '読込先へ書き込む設定
「{書込データ}」を、「{書込先}」へ、書く。 'ファイル出力
エディタ変更=「」。
母艦の、タイトルは、「DOSちっくエディタ - {読込先} {エディタ変更}」。
戻る。
)。
待機。
＊名前を付けて保存処理
DOSちっくエディタの、テキストを、書込データに、得る。 '文字列取得
「テキスト|*.txt|すべてのファイル|*.*」の、書込ファイル選択。
書込先=それ。 '書込先にファイル名代入
もし、書込先<>「」ならば、(
「{書込データ}」を、「{書込先}」へ、書く。 'ファイル出力
エディタ変更=「」。
母艦の、タイトルは、「DOSちっくエディタ - {読込先} {エディタ変更}」。
戻る。
)。
待機。
＊新規作成処理
もし、エディタ変更=「*」ならば、(
「{読込先}は変更されていますが、保存しますか？」と、三択。
もし、(それ=はい)ならば、(
保存処理を、呼ぶ。
)。
もし、(それ<>キャンセル)ならば、(
エディタ変更=「」。
母艦の、タイトルは、「DOSちっくエディタ - {読込先} {エディタ変更}」。
)。
)。
もし、エディタ変更=「」ならば、(
エディタ変更=「」。
)。
待機。
＊開く処理
もし、エディタ変更=「*」ならば、(
「{読込先}は変更されていますが、保存しますか？」と、三択。
もし、(それ=はい)ならば、(
保存処理を、呼ぶ。
)。
もし、(それ<>キャンセル)ならば、(
「テキスト|*.txt|すべてのファイル|*.*」の、読込ファイル選択。
もし、それ<>「」ならば、(
読込先=それ。
読込データに、読込先を、読む。
DOSちっくエディタの、テキストは、「{読込データ}」
エディタ変更=『』。
母艦の、タイトルは、「DOSちっくエディタ - {読込先} {エディタ変更}」。
)。
)。
)。
もし、エディタ変更=「」ならば、(
「テキスト|*.txt|すべてのファイル|*.*」の、読込ファイル選択。
もし、それ<>「」ならば、(
読込先=それ。
読込データに、読込先を、読む。
DOSちっくエディタの、テキストは、「{読込データ}」
エディタ変更=『』。
)。
)。
|
NO TITLE
/さくらめろん。 (02/09/08(Sun) 13:11) [42]