No.1 ログファイル作成 Liners
// メモ帳を開いてLogfile.txtに日付と時間を記録して閉じる。 One-Liners(一行野郎)の真髄?
Fid=Exec("notepad.exe LogFile.txt");SendSTR(Fid,"ログを作成しました。");SCKEY(Fid,VK_F5,VK_ENTER,VK_ALT,F,S,F,X)
// トリビア&トリッキー:あらかじめLogFile.txtを作成せずに実行すると??
No.2 タイマー録画(スタンバイモードへ移行) Liners
// WinDVR録画が終了してもスタンバイモードへ移行できないので自作。
// もっといろいろ追加できるけど、コレで十分。愛用の一本です。
// ウィンドウ消失待ちなんか何の役に立つの?って思ってたキミ、これですよコレ!
while 1
fukidasi("VTR 監視中")
sleep(120) // 開始時間待ち(2分)
while
GETID("InterVideo WinDVR")>0
sleep(10)
wend
fukidasi("スタンバイ 準備中")
sleep(30)
if
GETID("InterVideo WinDVR")<0 then POFF(P_SUSPEND2)
wend
No.3 掲示板用の特殊文字変換(クリップボード内で変換)
//
// 掲示板用の特殊文字変換(クリップボード内で変換)
// (大変便利!!投稿者に必須の一本。)
//
wks=GetStr(0)
//クリップボードより文字列取得
wks=CHGMOJ(wks, "<", "<")
wks=CHGMOJ(wks, ">", ">")
wks=CHGMOJ(wks, " ", " ") //半角2文字空白を全角1文字の空白へ
SendStr(0,wks) //クリップボードに返却
// なお、<#DBL>など特殊文字は変換前に、空白などを入れて、( 例: <# DBL> )
// 貼付け後削除してください。
No.4 クリップボードへ複数行転送 (いずれも質問内容から抜粋)
// クリップボードへ複数行転送
// GETDIR()は、1回で全ファイル名を取得します。
// しかし、クリップボードへは1度に1個しか内容を送れません。(2回目以降は上書きとなる。)
// そこでファイル名を改行付で連結し、後で一気にクリップボードへ送ります。
// スクリプトを手直しすると下記のようになります。
リスト=""
for i=0 to GETDIR(フォルダ,"*.*")-1
print GETDIR_FILES[i]
リスト=リスト+GETDIR_FILES[i]+"<#CR>"
next
SendStr(0,リスト,0)
// サンプルに追加しての応用例
// a.txt(ファイル)の内容が下記のように1行目タイトル、2行目以降を本文と仮定すると
// 1行目 題名カキカキ
// 2行目 本文もカキカキ
// 3行目 もう終わり残念。
// スクリプトはこんな感じでしょうか。
// サンプルにファイルから題名+ついでに本文も(複数行入力)
fp = FOPEN("a.txt", F_READ)
行数=FGET(fp, -1)
題名=FGET(fp, 1)
本文=""
Count=2 // 2行目から本文
While Count<=行数
本文=本文+FGET(fp,Count)+"<#CR>" // 本文内容を連結
Count=Count+1
Wend
IE.document.all["subject"].value = 題名
IE.document.all["me"].value = 本文