uwsc 便利だね！

2019/09公開

2021年の梅雨に修正

日本人がを誇る「UWSC」は良いよね！
名前わかりにくいけど、みんなが使っているので、かなりのドキュメントがあります。
開発者が、素敵な感じでプログラムを作成してくれたようです。

自分は、すべて好きですよ！

現在は、開発終了みたいですが、残念です。

いろいろネットにあるけれど、どうしたのかな？

（機会があったら引き継ぎたいですね！ここで終わってしまうのは、非常に残念！、日本の財産がなくなるーです）

今は、PAD（Power Automate Desktop）を触っているけど……

何か今見ると過去の産物なような感じですが

では、また！

エクスプローラーでダウンロードのフォルダされたファイルを
リネームする

作成したソースは以下だけど、よさげな箇所を抜き出し書きます


＊ウインドウのIDを取得します
　（返却値が、-1ならウインドウが存在しない）

　　id = getid("sakura")  //　タイトルの一部分でも判定可能

spkMain.uws

// エスケープキーで処理を中断することができる
sethotkey(VK_ESC, 0, "ForceStop")



id = getid("sakura")  //　タイトルの一部分でも判定可能
if id> -1
IFB STATUS(id, ST_ICON) // ウィンドウがアイコン状態（最小化）かチェック
CTRLWIN(id, NORMAL) // 表示を通常にする
ENDIF
IFB !STATUS(id, ST_ACTIVE) // ウィンドウがアクティブかチェック
CTRLWIN(id, ACTIVATE) // アクティブにする
ENDIF
else
msgbox("error sakura")
endif



while 1
st = chkEnd( ID )
if st = 1 then break

CTRLWIN(id, ACTIVATE) // アクティブにする
print "start"
sleep(1)

copyPaste( id )
call "spk2.uws"

CTRLWIN(id, ACTIVATE) // アクティブにする
KBD( VK_HOME )
KBD( VK_down )

copyPaste( id )
call "rename.uws"

CTRLWIN(id, ACTIVATE) // アクティブにする
KBD( VK_HOME )
KBD( VK_down )
wend



print "test"
//msgbox("")
exitexit





function chkEnd( ID )

SENDSTR(0,"")
copyPaste( id )

str = GETSTR(0)
//msgbox("data is(" + str + ")")

str = REPLACE(str,  chr(13), "" ) //CRを削除
str = REPLACE(str, chr(10), "" ) //LFを削除
if str = ""
result= 1
msgbox("endend")
else
result= 0
endif
fend


// 現在の行をクリップボードにいれるのです
procedure copyPaste( id )

SENDSTR(0,"")
KBD( VK_END )
print "copyPaste"
sleep(1)

KBD( VK_HOME )
sleep(1)

SCKEY(ID,VK_SHIFT, VK_END)
sleep(1)
SCKEY(ID,VK_CTRL, VK_c)
KBD( VK_HOME )
fend


// ESCキーがおされたら、こちらに飛んできます
procedure ForceStop()
exitexit
fend