自動化ツールUWSC使いよ集まれ14

462 ：名無しさん＠お腹いっぱい。：2015/05/08(金) 00:14:41.27 ID:aCA8XdTmI

ちょっと質問です
<確認用.uws>
call test.uws
Dim A,B
pic("D:\images\","test.jpg",A,B)//画像の縦横を取得(例:300×200→A=300,B=200)
sfh(100,200,A,B)
<test.uws>
Procedure pic(a_path,a_name,Var a_Width,Var a_Height)
　　Dim Path_Dir = a_path
　　Dim FileName = a_name
　　Dim Shell = CreateOleObj("Shell.Application")
　　Dim NS = Shell.NameSpace(Path_Dir)
　　Dim NS_Items = NS.Items
　　Dim NS_Item = NS_Items.Item(FileName)
　　Dim a_Str = NS.GetDetailsOf(NS_Item, 31)
　　a_Width = Trim(Token("x", a_Str))
　　a_Height = Trim(Token("x", a_Str))
Fend
procedure sfh(x,y,i,j)
x = x + random(i)
y = y + random(j)
print x
print y
fend
確認用.uwsを実行すると、

1274:定義が間違っています
test.uws: 19行目: X = X + RANDOM(I)

というエラーが出てしまいます、どうしたらいいですか？
やりたいことは、画像の縦横のピクセル数から乱数をそれぞれ得て、ある値に足すことです。上に書いたサンプルでは、100〜499の値と、200〜499の値です。画像の大きさは一定にできないので変数で扱いたいです。
よろしくお願いします。