Craftlaunch/Exを応援しよう！Part 5

Craftlaunch/Exを応援しよう！Part 5 at SOFTWARE

767:名無しさん＠お腹いっぱい。
08/03/15 19:37:29 5XLsQe730
勉強がてら書いてみた。>>766の期待通りの動作はしてると思う。
default.txtがないorあっても0バイトだとエラー吐く仕様になってるので、
中身はなんでもいいのでdefault.txtを作成してから実行のこと。
詳しい人突っ込みヨロ。
作ってから気付いたがPythonのスクリプトならともかく、ぶっちゃけスレ違いな気がしなくもなくはない

filename = "default.txt";
if (WScript.Arguments.Count() != 0) filename = WScript.Arguments(0);
document = WScript.GetObject(WScript.FullName, "htmlfile");
while(document.readyState != "complete") WScript.Sleep(10);
text = document.parentWindow.clipboardData.getData("text");
if (text == null) WScript.Quit();
text += "\r\n";
date = new Date().toLocaleString() + "\r\n";
fso = WScript.CreateObject("Scripting.FileSystemObject");
//手を入れたのはここ以下
stream = fso.OpenTextFile(filename, 1, false);
buf = stream.ReadAll();
stream.Close();
buf = date + text + buf;
stream = fso.OpenTextFile(filename, 2, false);
stream.Write(buf);
stream.Close();

次ページ

続きを表示

1を表示