推 yinjing:XD 蠻有趣的 10/23 19:36
推 yuyubuy:真的非常感謝您 >___< 10/23 20:13
推 executor123:還真實用哩XDDDDD 10/23 20:16
其實這滿簡單的，順手寫了一下：
---------->8----------沿線剪下，存為 random.js---------->8----------
try {
fso = new ActiveXObject('Scripting.FileSystemObject');
nfo = fso.OpenTextFile(WScript.Arguments.Item(0), 1, true, 0);
subject = nfo.ReadLine();
content = nfo.ReadLine().split(', ');
nfo.Close();
WScript.Echo(subject + "\r\n\r\n" + //
content[parseInt(Math.random() * content.length)]);
WScript.Quit();
} catch (e) {
WScript.Echo('沒有指定檔案');
WScript.Quit();
}
--------------------------------------------------------------------
問題檔案要另外做，格式舉例如下：
---------->8----------沿線剪下，存為 dinner.txt---------->8----------
今晚想吃什麼？
藍藍路, 啃得鴨, Mos 叭嘎, 鴻門宴, 三井宴
---------------------------------------------------------------------
嗯…然後要使用的時候，把 dinner.txt 拖拉至 random.js 上面，就會顯示結果了。
你也可以建立很多問題檔案，到時候需要哪一個就拉哪一個就可以了。
p.s. 問題檔案的檔名、以及所有相關程式及檔案，請勿放在太奇怪的資料夾下，
然後本程式沒有任何防呆，所以請自行確認輸入的內容無誤，
否則可能會發生預期之外的錯誤。
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 218.165.33.54