- 767 名前：名無しさん＠お腹いっぱい。 mailto:sage [2008/03/15(土) 19:37:29 ID: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();
|
 |
