- 770 名前：名無しさん＠お腹いっぱい。 mailto:sage [2008/03/15(土) 23:03:06 ID: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"に変更
|
 |
