UWSCで使うファイルをexcelで作りたい

質問

まずあまりの初心者ゆえに失礼がありましたらすみません。

UWSCというフリーソフトのスクリプトの編集をexcelでして
そのあとにメモ帳などに移して使うつもりなのですが

たとえば下記のようなものがあったとして

BTN(LEFT,CLICK,223,72,)
SLEEP(0.5)
KBD(VK_a,DOWN,)
KBD(VK_b,DOWN,)
KBD(VK_1,CLICK,)
KBD(VK_TAB,CLICK,)
KBD(VK_RETURN,CLICK,)

という文章を

BTN(LEFT,CLICK,223,72,)
SLEEP(0.5)
KBD(VK_a,DOWN,)
KBD(VK_b,DOWN,)
KBD(VK_2,CLICK,)
KBD(VK_TAB,CLICK,)
KBD(VK_RETURN,CLICK,)

になって

BTN(LEFT,CLICK,223,72,)
SLEEP(0.5)
KBD(VK_a,DOWN,)
KBD(VK_b,DOWN,)
KBD(VK_3,CLICK,)
KBD(VK_TAB,CLICK,)
KBD(VK_RETURN,CLICK,)

をへて

BTN(LEFT,CLICK,223,72,)
SLEEP(0.5)
KBD(VK_a,DOWN,)
KBD(VK_b,DOWN,)
KBD(VK_4,CLICK,)
KBD(VK_TAB,CLICK,)
KBD(VK_RETURN,CLICK,)

となり

BTN(LEFT,CLICK,223,72,)
SLEEP(0.5)
KBD(VK_a,DOWN,)
KBD(VK_b,DOWN,)
KBD(VK_5,CLICK,)
KBD(VK_TAB,CLICK,)
KBD(VK_RETURN,CLICK,)

というかたちでKBD(VK_数字,CLICK,)という部分だけを1から500まで増やしていって
あとの数値は同じものをずっと並べていきたいのですが普通にフィルハンドル？をつかってやると
私が編集したいKBD(VK_数字,CLICK,)の部分以外の数値までおそらく増えていってしまうんですよね。
KBD(VK_数字,CLICK,)の数字の数値だけを増やしていくことはできますでしょうか？

なおどうやらソフトの性質として数字が10をこえると
KBD(VK_10,CLICK,) ではなく

KBD(VK_1,CLICK,)
KBD(VK_0,CLICK,) や

KBD(VK_1,0,CLICK,)

と表現しなければいけなくなるようなのですが
そういう数値の増やし方はできますでしょうか？

超初心者なので全く何もわからないのですがそんな人間でもできますでしょうか。

回答No.4

Wendy02

こんにちは。

ここのカテゴリは、あくまでも、Office ですが、なぜ、ここにお聞きになっているのか素朴な疑問があります。UWSC って、一種のキーロガーですね。

もしかして、そのコード自体が、Excelそのものを扱うもののような気がしました。UWSC のヘルプでみて位置を見ると

　BTN(LEFT,CLICK,223,72,)　
X=223, Y=72,
の場所って、Excelですと、数式バーのあたりのようですね。
Excelなら、VBAがあります。

Excelなら、VBAをお使いになったほうが良いのではないでしょうか？外部ツールの最大の欠点は、フレームの中の位置決めが出来ません。可能なのは、外周だけなのですね。Excelは、その状況に合わせて、位置が移動するのです。

もちろん、Excelでないにしても、Excelでドラッグやコピーして、500ブロック書く必要はないとは思います。というよりも、スクリプト系言語の場合は、スクリプトファイルの文字列を多くするのは関心しません。

そのコードは以下のようにループすればよいとは思います。UWSCのヘルプを読みながら書いてみました。Cにも感じは似ているようです。初めて書いてみたので、他の環境で、うまく行くか分かりませんが、間違っていれば、UWSCは通らないと思います。

とりあえず、"111" までにしました。"500" も入れられま。"111"は、三桁の数の検査するための最も少ない数です。

もし、Office だったら、その旨を書いてください。

//SKeysSample.UWS

Public arry[9]
arry[0] =VK_0
arry[1] =VK_1
arry[2] =VK_2
arry[3] =VK_3
arry[4] =VK_4
arry[5] =VK_5
arry[6] =VK_6
arry[7] =VK_7
arry[8] =VK_8
arry[9] =VK_9

for i = 1 to 111
BTN(LEFT,CLICK,223,72,)
SLEEP(0.5)
KBD(VK_a,DOWN,)
KBD(VK_b,DOWN,)

TOKENFIG(i)

KBD(VK_TAB,CLICK,)
KBD(VK_RETURN,CLICK,)

next
Procedure TOKENFIG(ai)
for j =1 to length(ai)
n = copy(ai,j,1)
KBD(arry[n],CLICK,)
next
Fend

お礼

ありがとうございます。
本当に全くの初心者でしてVBAというものがあるらしいという
ぐらいしか知識のないものでご提言ありがとうございます。