Hatena::Groupgeneration1986

omote87 このページをアンテナに追加 RSSフィード

ura87 no omote

メインのブログ(d:id:kiwofusi)は日本語の読めるひとみんなに読んでもらいたいので、作業メモやソースコードなどはこちらに書きます。

 | 

2010年03月05日(金)

アンディー・メンテ「電子海のはなし」をverupするスクリプト 21:16 はてなブックマーク - アンディー・メンテ「電子海のはなし」をverupするスクリプト - omote87 アンディー・メンテ「電子海のはなし」をverupするスクリプト - omote87 のブックマークコメント

説明

アンディー・メンテ作のゲーム電子海のはなしバージョンアップ作業を数秒だけ節約します。

注意

このスクリプトは「電子海のはなし」ver095へのバージョンアップに対応するよう2010年03月05日に更新しました。データファイルmy_kaizu.datとmy.datを引き継ぐ処理をおこないます。verup方法が変更されたときにこのスクリプトを実行するとデータが失われるおそれがありますのでご注意ください。

使い方

最新版sea.zip解凍してから使います。

elecsea-verup.vbs(右クリック→保存)

↑をダウンロードして↓のように設定してダブルクリックして実行します。

設定

vbsファイルをメモ帳などで開き、環境に応じてmain_folder(いつも使っている「sea.exe」の親フォルダ)とnew_folder(最新版sea.zipから解凍した「sea.exe」の親フォルダ)を書き換えてご利用ください。

初期設定

main_folder = ".\電子海のはなし"
new_folder = ".\sea\sea"

のようなフォルダ構成に対応しています。「.\」はスクリプトのあるフォルダのことです。

絶対パスでも指定可能です。たとえば以下のように書きます。

main_folder = "C:\Program Files\アンディー・メンテ\電子海のはなし"
new_folder = "C:\Documents and Settings\Administrator\デスクトップ\sea"

ファイルやフォルダの削除に関わる記述はコメントアウトしてあります。パスを正しく設定したうえで、必要であれば行頭の「'」を削除してご利用ください。

参考

Windows Script Host Laboratory Lesson13

のぶさんのIT界で生きる道(ブログ) 【VBScript】 ファイル操作

ソース

'フォルダの設定
main_folder = ".\電子海のはなし" 'いつも使っている「sea.exe」の親フォルダ
new_folder = ".\sea\sea" '最新版sea.zipから解凍した「sea.exe」の親フォルダ

'ファイルシステム
Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")

'設定ファイルをmainフォルダ直下に移す
fso.CopyFile main_folder + "\dat\my_kaizu.dat", main_folder + "\my_kaizu.dat", True
fso.CopyFile main_folder + "\dat\my.dat", main_folder + "\my.dat", True

'最新版のファイルをmainフォルダにコピーする
fso.CopyFolder new_folder, main_folder, True

'設定ファイルをdatフォルダに戻す
fso.CopyFile main_folder + "\my_kaizu.dat", main_folder + "\dat\my_kaizu.dat", True	
fso.CopyFile main_folder + "\my.dat", main_folder + "\dat\my.dat", True
'fso.DeleteFile main_folder + "\my_kaizu.dat"
'fso.DeleteFile main_folder + "\my.dat"

'verup用フォルダおよびファイルを削除する
'fso.DeleteFolder ".\sea"
'fso.DeleteFile ".\sea.zip"

'完了報告
msgbox "完了"

RoxieRoxie2011/05/07 11:17That's raelly thinking out of the box. Thanks!

トラックバック - http://generation1986.g.hatena.ne.jp/kiwofusi/20100305
 |