Craftlaunch/Exを応援しよう!Part 5at SOFTWARE
Craftlaunch/Exを応援しよう!Part 5 - 暇つぶし2ch770:名無しさん@お腹いっぱい。
08/03/15 23:03:06 5XLsQe730
>>768,769
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\r\n";
//date = new Date().toLocaleString() + "\r\n";
//日付のフォーマット(YYYY-MM-DD hh-mm-ss)。ここから↓
tmp_date = new Date();
date = tmp_date.getYear() + "-";
date += ("0" + (tmp_date.getMonth() + 1)).slice(-2) + "-";
date += ("0" + tmp_date.getDate()).slice(-2) + " ";
date += ("0" + tmp_date.getHours()).slice(-2) + ":";
date += ("0" + tmp_date.getMinutes()).slice(-2) + ":";
date += ("0" + tmp_date.getSeconds()).slice(-2) + "\r\n";
//日付のフォーマット(YYYY-MM-DD hh-mm-ss)。ここまで↑
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();

日付のみで時間がいらないならgetDate行の下3行を削除して、
getDate行の" "を"\r\n"に変更


次ページ
続きを表示
1を表示
最新レス表示
レスジャンプ
類似スレ一覧
スレッドの検索
話題のニュース
おまかせリスト
オプション
しおりを挟む
スレッドに書込
スレッドの一覧
暇つぶし2ch