自動化ツールuwsc使いよ集まれ3

[表示 : 全て最新50 1-99 101- 201- 301- 401- 501- 601- 701- 801- 901- 1001- 2chのread.cgiへ]
Update time : 10/18 14:24 / Filesize : 335 KB / Number-of Response : 1002
[このスレッドの書き込みを削除する]
[＋板最近立ったスレ＆熱いスレ一覧 : ＋板最近立ったスレ／記者別一覧] [類似スレッド一覧]


↑キャッシュ検索、類似スレ動作を修正しました、ご迷惑をお掛けしました

自動化ツールuwsc使いよ集まれ3

1 名前：名無しさん＠お腹いっぱい。 mailto:sage [2007/04/16(月) 07:57:49 ID:+HI9MOeK0]: Windowsを自動化させるツールUWSC。
ttp://www.h7.dion.ne.jp/~umiumi/

uwsc使いのみなさま、ﾏﾀｰﾘ己のスクリプトを晒しましょ。

前スレ
自動化ツールuwsc使いよ集まれ2
pc11.2ch.net/test/read.cgi/software/1156416884/
876 名前：名無しさん＠お腹いっぱい。 mailto:sage [2009/02/10(火) 17:54:36 ID:HCMc1CKn0]: >>875
まずは２つ起動

IE = CREATEOLEOBJ("InternetExplorer.Application")
IE.visible = True
IE.navigate("www.yahoo.co.jp")
REPEAT
　SLEEP(0.1)
UNTIL !IE.BUSY AND IE.READYSTATE = 4
IE2 = CREATEOLEOBJ("InternetExplorer.Application")
IE2.visible = True
KAISU = IE.document.links.length
FOR A = 0 TO (KAISU - 1)
　IFB POS("www.●●[A]", IE.document.links[A].href) > 0 Then
　　IE2.navigate(IE.document.links[A].href)
　　REPEAT
　　　SLEEP(0.1)
　　UNTIL !IE2.BUSY AND IE2.READYSTATE = 4
　ENDIF
NEXT
IE.QUIT
IE2.QUIT

if ～ Then
REPEAT ～ UNTIL
ThenとREPEATが抜けてました
あと、IE2でNavigateしたのに待ちループではIEになってました。
インデント（頭の空白）入れないとそういうところのミスが発見できません。
877 名前：名無しさん＠お腹いっぱい。 mailto:sage [2009/02/10(火) 18:23:31 ID:ldVPkdsr0]: 正直、わからないです。
質問が悪かったのかしら・・・

1、指定ページに移動
2、特定の文字を含むアドレスをゲット
3、ゲットしたアドレスを順に表示（IE2でも可）

この動作なんだけどなー。うーむ。
878 名前：名無しさん＠お腹いっぱい。 mailto:sage [2009/02/10(火) 18:43:10 ID:HCMc1CKn0]: >>875
配列を使うやつ

DIM リンク[]="ダミーデータ"

IE = CREATEOLEOBJ("InternetExplorer.Application")
IE.visible = True
IE.navigate("www.yahoo.co.jp")
REPEAT
　SLEEP(0.1)
UNTIL !IE.BUSY AND IE.READYSTATE = 4

KAISU = IE.document.links.length
FOR A = 0 TO (KAISU - 1)
　IFB POS("www.●●[A]", IE.document.links[A].href) > 0 Then
　　リンク[length(リンク) - 1] = IE.document.links[A].href
　　resize(リンク, length(リンク))
　ENDIF
NEXT

KAISU = length(リンク) - 1 // 配列の最後尾は空欄
FOR A = 0 TO (KAISU - 1)
　IE.navigate(リンク[A])
　REPEAT
　　SLEEP(0.1)
　UNTIL !IE.BUSY AND IE.READYSTATE = 4
NEXT
IE.QUIT
879 名前：名無しさん＠お腹いっぱい。 mailto:sage [2009/02/10(火) 18:51:38 ID:HCMc1CKn0]: >>878の補足
リンクの選別を最初のループでやってるので、２回目のループは無条件に処理できる。
ループ回数が違っているのも要チェック。
配列がちょっとややこしいやり方だけど、カウンタが２つ以上になってもややこしいのでこういうやり方してます。
リンク[length(リンク) - 1]は、リンクっていう配列の最後尾を意味します。
resize(リンク, length(リンク))は、配列を一つ増やします。
上記２行により、最後尾にデータを追加するたびに配列を増やし、常に最後尾をあけておきます。

ちなみに、最初に配列数を０にしておけばごみがでないように思われますが、
最小配列サイズが１なので、どうしてもごみが入ります。
また、最初の1回で隙間をなくそうとすると、ループの処理がおかしくなります。

>>877
おいおい
1、指定ページに移動　　は、IE.Navigateだし
2、特定の文字を含むアドレスをゲット　は、
　POS("www.●●", IE.document.links[A].href) > 0
　の条件を満たすときの　IE.document.links[A].href　だし
3、ゲットしたアドレスを順に表示（IE2でも可）　は、
　ループの中でIE.Navigateですよ

これ以上丁寧に教えるのは無理。
ヘルプとサンプルをじっくり見てください。

１行ずつ実行してみるのもいい手。
僕は実験のファイルが70くらいたまってる。
880 名前：名無しさん＠お腹いっぱい。 mailto:sage [2009/02/10(火) 20:47:55 ID:ldVPkdsr0]: お手間をかけます。m(_ _)m
実際に実行してみたのですが、両方駄目でした。

エラーは出ませんが、最初のヤフーページが読み込み中になりそれ以後が進みません。
難しいわぁ～('A`)
881 名前：名無しさん＠お腹いっぱい。 mailto:sage [2009/02/10(火) 21:20:46 ID:HCMc1CKn0]: >>880
とりあえずそのままuwsファイルに書き込んで起動したら、IEは自動的に終了した。
読み込み中で止まるって？
IEの設定の問題かな？

>>876のやつの　POS("www.●●", IE.document.links[A].href)　を
POS(".html", IE.document.links[A].href)　に書き換えたらばんばん開くんですけど。
POS(”www”, IE.document.links[A].href)　で試したらファイルのダウンロードが動いてCOMエラーになったけどさ。

IEのバージョンでも違うのかもしれないけど、IE６ではしっかり動きました。
ちなみに僕が使ってるのはちょっと古いバージョン。
4.4.2.4のやつ
882 名前：名無しさん＠お腹いっぱい。 mailto:sage [2009/02/10(火) 23:15:08 ID:d1Cz2CKr0]: ちと教えてくれい。
JscriptのSort関数ってUWSCで扱えるかしら？
連想配列のｿｰﾄを使って凌いでしまったんだけど、
もし使えるようなら、そのうち、ちゃんとw悩んでみようかと思って…。
883 名前：名無しさん＠お腹いっぱい。 mailto:sage [2009/02/11(水) 00:17:02 ID:HuYbgfa/0]: >>882
無理じゃね？
そういうCOMオブジェクトがあるとも思えない。
DLLの場合は配列を渡せればいけるかもしれない。

と思ったけど、データベース使えばSortできるっぽいね。
テーブル作るのめんどくさそうだけど。
884 名前：名無しさん＠お腹いっぱい。 mailto:sage [2009/02/11(水) 01:07:21 ID:kWARHqJn0]: >>883
レスサンクス。
時間掛けずにﾖｶｯﾀw
885 名前：名無しさん＠お腹いっぱい。 mailto:sage [2009/02/13(金) 14:30:03 ID:3ZWIkmUk0]: com操作から指定の同じ画像が2枚以上あるかどうかのチェックを
するスクリプトを作っています。

<img alt="画像" src="/img/member/status_01.gif?1234414294" />

これがそのソースなのですが、altの画像の個数でもおｋです。とにかく2個以上
あったらメッセージボックスで知らせてくれるみたいなのができたらと思っています。
886 名前：名無しさん＠お腹いっぱい。 mailto:sage [2009/02/13(金) 15:36:56 ID:yfzZRrrS0]: そうですか
887 名前：名無しさん＠お腹いっぱい。 mailto:sage [2009/02/13(金) 16:29:22 ID:mUOb2ZH60]: >>885
一致するやつの個数を数えるだけですよね
888 名前：名無しさん＠お腹いっぱい。 mailto:sage [2009/02/13(金) 16:31:07 ID:3ZWIkmUk0]: >>887
画像があるかどうかというのはできると思うのですが、同じ画像が2枚あるかどうか
となるとちょっと私のスキルでは難しいので訊いて見ました。

数を数えなおかつメッセージボックスなどで同じ画像が2つ以上あると知らせてくれる
というものです。
889 名前：名無しさん＠お腹いっぱい。 mailto:sage [2009/02/13(金) 16:39:01 ID:mUOb2ZH60]: >>888
cnt = 0
while 全部処理
　ifb 画像一致 then
　　cnt = cnt + 1
　eneif
wend
ifb 2 <= cnt then
　MsgBox()
endif
890 名前：名無しさん＠お腹いっぱい。 mailto:sage [2009/02/13(金) 17:35:13 ID:3ZWIkmUk0]: メモリが・・・というエラーがでる。
今、他の手法でやってますが、IE.document.body.innerHTMLで
画像で使われてる文字の数というので判断しようとしています。

一つだけの場合、ちゃんとうまくいきました。しかし上記のやつをすこし
変えてやってみましたが駄目でした。
891 名前：名無しさん＠お腹いっぱい。 mailto:sage [2009/02/13(金) 17:43:52 ID:Ro94SGUQ0]: 情報を小出しにするのはやめてください。
チャットじゃないので整理してまとめてから書き込んでください
892 名前：名無しさん＠お腹いっぱい。 mailto:sage [2009/02/13(金) 18:00:45 ID:3ZWIkmUk0]: 　str = "UWSC"

　ifb pos(str, IE.document.body.innerHTML) then
　MsgBox("あるよ")
endif

画像でエラーが出るので上記のやつで挑戦してます。
HTMLにUWSCという語句が2つ以上あればメッセージ
ボックスにあるよと表示されるというものです。

ひとつでは成功しています。
893 名前：名無しさん＠お腹いっぱい。 [2009/02/13(金) 18:30:14 ID:mUOb2ZH60]: >>892
だから>>889のとおりにやれよと。

str = "UWSC"
cnt = 0
while 全部処理
　ifb pos(str, IE.document.body.innerHTML) then
　　cnt = cnt + 1
　eneif
wend
ifb 2 <= cnt then
　MsgBox("あるよ")
else
　MsgBox("ないよ")
endif
894 名前：名無しさん＠お腹いっぱい。 mailto:sage [2009/02/13(金) 18:34:04 ID:3ZWIkmUk0]: 全部処理についてｋｗｓｋm(_ _)m
895 名前：名無しさん＠お腹いっぱい。 mailto:sage [2009/02/13(金) 18:40:58 ID:mUOb2ZH60]: >>893はミス
str = "UWSC"
ifb pos(str, IE.document.body.innerHTML, 2) then
　MsgBox("あるよ")
eneif

posは個数指定があるからループしなくてよかった。
ループする必要があるのは、前から順に１こずつ検索する場合。

>>894
全部とは、IE.document.body.innerHTMLの１文字目から最後まで処理する条件ってこと。
つまり、ループに入る前に
src = IE.document.body.innerHTML
として文字列を取得し、見つかるたびに読み進めていく。
tokn() を使って１行ずつ処理する場合とか
IEGetSrc( IE,　タグ名,　[番号] )　で、番号を順に指定して取得する場合とか。

BodyのHTML全部取得してPosで個数まで数えるならループはいらない。
896 名前：名無しさん＠お腹いっぱい。 mailto:sage [2009/02/13(金) 18:44:29 ID:mUOb2ZH60]: 見落とすかもしれないからもう一度書くけど、
pos()の３番目に２って指定すれば、２個目の位置を調べてくれる。
つまり、２個目があるかないかはPos()一回でわかる。

だからこれだけで完成
str = "UWSC"
ifb pos(str, IE.document.body.innerHTML, 2) then
　MsgBox("あるよ")
eneif
897 名前：名無しさん＠お腹いっぱい。 mailto:sage [2009/02/13(金) 18:45:01 ID:3ZWIkmUk0]: 詳しい説明どうも。
しかし、みんなどこで勉強してるんですか？
とりあえず、UWSCの掲示板とマクロテクニックという本、
検索などでやってますが、なかなか目的の回答にたどり
つけないことも多く、時間ばかりがかかってしまいます。

このスクリプトだってもう何時間も費やしていますからね・・・
898 名前：名無しさん＠お腹いっぱい。 mailto:sage [2009/02/13(金) 19:03:33 ID:mUOb2ZH60]: 大事なのは情報の探し方。
探すためのキーワードはマニュアルを順番に読んで探し出す。

UWSCは覚えることは少ないほうだし、ヘルプにまとまっているからヘルプを見る。
基本の使い方はサンプルコードを探す。
で、一つ一つの細かい使い方は、それを確認するためのサンプルコードを自分で書く。
公開されたツールを使うのも手。

あとはテクニックを覚えて応用していく。

if Pos() then 　で、存在チェックするというのもテクニックのひとつ。
Pos() は文字列の位置を返すだけだけど、取りうる値が１以上になるのでそういう使い方ができる。
if 文が、０か０以外という判断基準だからできることだけど、
それを知ってればほかの関数でもそういう使い方ができるかどうか判断できるわけ。
899 名前：名無しさん＠お腹いっぱい。 mailto:sage [2009/02/13(金) 19:14:00 ID:6zXjaVj00]: 俺個人の意見だと、そういう書き方は好きじゃないし人にも勧めないな…
900 名前：名無しさん＠お腹いっぱい。 mailto:sage [2009/02/14(土) 03:00:48 ID:lbAzgdO20]: >>897
とりあえずnotepad以外のｴﾃﾞｨﾀを用意して文字列ﾊｲﾗｲﾄ&F1key(大体のｴﾃﾞｨﾀがそうだと思う)
でHelpﾌｧｲﾙの項目にｼﾞｬﾝﾌﾟできるようにする。
その後、Helpﾌｧｲﾙのｻﾝﾌﾟﾙ、ﾈｯﾄに挙がっている短目のｻﾝﾌﾟﾙをｺﾋﾟﾍﾟ。
ｴﾃﾞｨﾀのｼｮｰﾄｶｯﾄKeyからｻﾝﾌﾟﾙを実行して結果を見たうえで、関数等を理解。
自分はこんな感じかな?
901 名前：名無しさん＠お腹いっぱい。 mailto:sage [2009/02/14(土) 09:57:37 ID:l4ICTSX40]: >>899
でも、
flag = true
if flag = true then
みたいに書くと期待通りの動作にならないですお。

いや、DLLとかの外部プログラムで言うtrueが、自分の処理系でのtrueと一致するとは限らないというべきか。
902 名前：名無しさん＠お腹いっぱい。 mailto:sage [2009/02/14(土) 14:13:39 ID:uUjk6ugC0]: >>901
IF flag <> 0 THEN MSGBOX("真") ELSE MSGBOX("偽")
903 名前：名無しさん＠お腹いっぱい。 mailto:sage [2009/02/14(土) 15:31:54 ID:kc2bS8a/0]: >>900
私もかれこれ1年ぐらいやってますが、実際に自分でサンプルとかを
やってみるのがいいみたいですね。本の内容とかを理解するより
結果そっちのほうが早かった。

あと、情報量が格段に違うので本はお勧めできない。価格が高いというのもあるけど。
本の内容なんかヘルプの1/100も載ってないしｗ掲示板での回答のほうが例としても
すぐれてるよね。本は失敗したわぁ～ｗ
904 名前：名無しさん＠お腹いっぱい。 mailto:sage [2009/02/14(土) 15:46:35 ID:w6PpT+IB0]: >>901
俺はUWSCなんて一度もさわったことはないが
if flag = trueだと代入してないか？
他の割とよくある言語だと、
flag == trueとか
flag eq trueとか
そもそも条件比較せずに
if flag thenって書き方だと思うが
=が比較にも使えるんだったらすまぬ
905 名前：名無しさん＠お腹いっぱい。 mailto:sage [2009/02/14(土) 20:38:54 ID:+5xZKKxJ0]: 複数開いてるIEでウィンドウ情報に「ソフトウェア」とか特定の文字が含まれている
ウインドウを閉じたいのですが、選択して閉じることはできますか？
906 名前：名無しさん＠お腹いっぱい。 mailto:sage [2009/02/14(土) 20:42:00 ID:mPJsDYRZ0]: >>904
普通に使えるお。
条件式では代入は行われないっス。
唯一Evalの代入で ':=' があるくらいで '==' とかはないっス。
おばかには有難いすｗ
907 名前：名無しさん＠お腹いっぱい。 mailto:sage [2009/02/14(土) 21:00:49 ID:qfzVhbRR0]: >>905
できます
908 名前：名無しさん＠お腹いっぱい。 mailto:sage [2009/02/14(土) 21:08:42 ID:6gNN+jj+0]: trueが1、falseが0という前提で
if XXX then YYY を日本語で説明するとXXXが真の場合YYYだけど
内部仕様で0 or not 0 falseじゃなければ真だからって
if POS() thenって書くのはどうかなと言っただけよ
ちゃんと？if POS() > 0 thenと書いた方が分かりやすいじゃんってこと

if flag = trueとかはまた別な話、if POS() = true then と書けと言ってる訳じゃないし
2以上の値が返ってきたら、true(1)ではないんだから。
909 名前：名無しさん＠お腹いっぱい。 mailto:sage [2009/02/14(土) 22:24:08 ID:oEG6WUs+P]: なるほど
ヘルプを文字通りに解釈すればIF文は真偽をチェックするのであって
それと0チェックは等価ではないという事か
（実際は0と0以外のチェックだろうけど）

C言語にどっぷり漬かった脳なので>>898が言っているような
書き方のほうが理解しやすく感じてしまった
910 名前：905 mailto:sage [2009/02/14(土) 22:56:30 ID:+5xZKKxJ0]: 事故解決しました。

しかし、次の問題が。ソースから

複数のアドレス


このようなソースがあった場合、三角から四角までの間にある複数アドレスを
ゲットして一個ずつ開いていくというのはできますか？

ちなみに間になければ似たようなアドレスは開けています。上でも書きましたが
改めてソースを書いときます。
IE = CREATEOLEOBJ("InternetExplorer.Application")
IE.visible = True
IE.navigate("www.yahoo.co.jp")
REPEAT
SLEEP(0.1)
UNTIL !IE.BUSY AND IE.READYSTATE = 4
KAISU = IE.document.links.length
FOR A = 0 TO (KAISU - 1)
IFB POS("dailynews.yahoo.co.jp", IE.document.links[A].href) > 0
IE2 = CREATEOLEOBJ("InternetExplorer.Application")
IE2.visible = True
IE2.navigate(IE.document.links[A].href)
ENDIF
NEXT
IE.QUIT

上記のソースでページ内にあるアドレスを順に開いていくことはできます。
何かわかりましたらよろしくお願いします。m(_ _)m
911 名前：名無しさん＠お腹いっぱい。 mailto:sage [2009/02/15(日) 00:48:48 ID:48UC/FQI0]: >>908
if flag = true　とかいう書き方をしてると
if POS() = true　というバグを見落とすことになる。
flagにしたって、状態がOn/Offだけとは限らない。
ボタンは白黒が基本だけどグレーだってある。
拡張してグレーを入れるとき、
何も考えずに取得した状態を放り込んでるとバグが発生することになるが、
自分がいじってない場所に影響が出るとは考えにくいし。

なにより、取りうる値をいちいち調べないといけない　if flag = true　なんか使ってると手間が増えるだけ。
912 名前：名無しさん＠お腹いっぱい。 mailto:sage [2009/02/15(日) 01:18:42 ID:48UC/FQI0]: >>910
とを除外ということならシンプルだけど
との間を処理するというのは、その処理基準が不適切と思われる。
ほかに手がなければしょうがないけど。
① FOR A = 0 TO (KAISU - 1); start = A + 1; next　　　// が出るまで空回り
② FOR A = start TO (KAISU - 1); 処理; next　　　// が出るまで処理
①で空回りした回数をstart にセットして、②でstartから再開すればいい。
が一度も出てこなかった場合、startにKAISUが入るので、多分②は素通りする。

IE = CREATEOLEOBJ("InternetExplorer.Application")
IE.visible = True
IE.navigate("www.yahoo.co.jp")
REPEAT
　SLEEP(0.1)
UNTIL !IE.BUSY AND IE.READYSTATE = 4
KAISU = IE.document.links.length
FOR A = 0 TO (KAISU - 1)
　start = A + 1
　IF 0 < POS("", IE.document.links[A].href) then break
NEXT
FOR A = start TO (KAISU - 1)
　IF 0 < POS("", IE.document.links[A].href) then break
　IFB 0 < POS("dailynews.yahoo.co.jp", IE.document.links[A].href) then　// まだインデントつけてないしThen抜けてるよ。
　　IE2 = CREATEOLEOBJ("InternetExplorer.Application")
　　IE2.visible = True
　　IE2.navigate(IE.document.links[A].href)
　ENDIF
NEXT
IE.QUIT
913 名前：名無しさん＠お腹いっぱい。 mailto:sage [2009/02/15(日) 01:38:43 ID:h4gEwsYs0]: ちなみにその考えじゃ永遠に無理。
914 名前：名無しさん＠お腹いっぱい。 mailto:sage [2009/02/15(日) 01:53:42 ID:MQRSTk0U0]: こんなことができたらいけるかもと考えました。

1、三角から四角までの文字列をゲット。
2、1の中のアドレスだけゲット。
3、上記のやつでアドレスを一個ずつ巡回。

1は、HTMLで見ると表示されてるやつです。コメントというのかな？
915 名前：名無しさん＠お腹いっぱい。 mailto:sage [2009/02/15(日) 04:44:36 ID:ZJEnRiKf0]: >>911
> if flag = true　とかいう書き方をしてると
> if POS() = true　というバグを見落とすことになる。

バグとか言う以前に、そんな書き方はしない。
思いつく時点でおかしい

なんで、IFの条件文でTrue/FalseのBoolean型をチェックするのに
その条件文の中でわざわざTrue/FalseのBoolean型と比較する必要があるのか
無意味な重複になってる
916 名前：名無しさん＠お腹いっぱい。 mailto:sage [2009/02/15(日) 06:36:23 ID:LdrnYZV60]: flag = trueって書き方自体はおかしな事じゃないでしょ
ifの条件式の一部にあってもおかしくはない
ただ、単体で「if flag = true then」と書くと蛇足ということになる
UWSC的にあってるかどうかはわからないけど
「if (flagA = true) AND (flagB = true) then」なんて場合があるわけだし

「if POS() = true then」をPOS() > 0 のつもりで書いているなら
変数にどんな値が入っているか、型とかを考えてない。って話になるし
POS() = 1 のつもりで書いているなら、同じ値だからといって
関係ない定数を使い回すな。という話になる

「if POS() then」がC畑の人の流儀というのは理解してるけど
それを理解してない初心者が、何となく親切心かお節介で付け加えた結果が
「if POS() = true then」ということになってるじゃなかろうか
917 名前：名無しさん＠お腹いっぱい。 mailto:sage [2009/02/15(日) 11:31:41 ID:48UC/FQI0]: >>916
>flag = trueって書き方自体はおかしな事じゃないでしょ
処理系にもよりますが、TRUEの値は保障されないので、比較で使うのはおかしい。
実際１という値を持っているしUWSCでは保障してるかもしれないけど、
一般的にそうなのでUWSCでもそういう癖はつけないほうがいいんじゃないかなと。

if (flagA = true) AND (flagB = true) then　　　×　// 成立するのはflagが１か０のときだけ
if (flagA <> false) AND (flagB <> false) then　○　// 全ての値で成立
918 名前：名無しさん＠お腹いっぱい。 mailto:sage [2009/02/15(日) 20:05:10 ID:LdrnYZV60]: だから、flag = trueに違和感を感じる人は
boolean型がないC畑の人だけで
boolean型がある言語系の人は何の違和感もないんだって
flagって変数がboolean型なんだな。って思うだけだから
919 名前：名無しさん＠お腹いっぱい。 mailto:sage [2009/02/15(日) 20:30:21 ID:LdrnYZV60]: > KAISU = IE.document.links.length
> flag = false
> FOR A = 0 TO (KAISU - 1)
> 　IF POS("", IE.document.links[A].href) THEN flag = ture
> 　IF POS("", IE.document.links[A].href) THEN flag = false
>
> 　IFB flag THEN
> 　　IFB POS("dailynews.yahoo.co.jp", IE.document.links[A].href)
> 　　　IE2 = CREATEOLEOBJ("InternetExplorer.Application")
> 　　　IE2.visible = True
> 　　　IE2.navigate(IE.document.links[A].href)
> 　　ENDIF
> 　ENDIF
> NEXT

例えば>>910のサンプルで言ったらこういうことでしょ
flagにはtrueかfalseしか代入してないんだから
trueの値が保障されてないとか、trueかfalse、0か1以外が入ってることなんて考えなくていい
この場合は「IFB flag THEN」を「IFB flag = true THEN」と書いたところで
お節介と言うことにはならない

それをPOS()という戻り値がINTのものに対してPOS() = trueとか書いてしまうと
たまたま1の時だけtrueになってしまうということになる
920 名前：名無しさん＠お腹いっぱい。 mailto:sage [2009/02/15(日) 20:56:45 ID:48UC/FQI0]: >>918-919
まあPos()のように０と０以外で判断するのはC言語系の考えとしても、
trueの定義がfalse以外のものとされてるのは、他の多くの言語で共通してるようだけど。

確かにtrueしか代入しないのなら確実に動作しそうだけど
なんかの拍子にごみが入ったとき、trueで比較するとどんな動作をするか分からない。
まあごみが入った時点ではじかれるべきだからむしろtrueと比較すべきかもしれん。
つまりelseなんか使うなって事だ・・・
921 名前：名無しさん＠お腹いっぱい。 mailto:sage [2009/02/15(日) 21:21:15 ID:o+fSWy2v0]: 型通りに書けばいいだけじゃ?、
flagはboolean型とみなしてコード書いてんだからtrueでいいし、
Pos()はint型だからtrueでの判定はナンセンスってだけ。
922 名前：名無しさん＠お腹いっぱい。 mailto:sage [2009/02/16(月) 06:46:17 ID:EmOr31T+0]: For　y　=　0　to　250
～
Call ～
～
Next
POFF(P_SUSPEND2)

と言う感じで外部スクリプトを呼び出して繰り返し作業をさせているのですが
なぜか毎回209回で終わってスタンバイになってます
なにか制限でもあるのでしょうか？
923 名前：名無しさん＠お腹いっぱい。 mailto:sage [2009/02/16(月) 09:09:28 ID:Y25mNBPu0]: >>922
変数がかぶっているとか？　callをｺﾒﾝﾄｱｳﾄしたらどう？
924 名前：名無しさん＠お腹いっぱい。 mailto:sage [2009/02/16(月) 23:09:04 ID:QUmq6Zuh0]: >>922
//主
public i
for i= 1 to 250
　　call call2.uws
next

//call2.uws
print i
でテストしてみたけど、制限などないようだよ…（ｱﾎだな自分もw)
925 名前：名無しさん＠お腹いっぱい。 mailto:sage [2009/02/16(月) 23:19:50 ID:+qFEC0Zh0]: 自作関数で戻り値を配列で返すにはどうすればよいのでしょうか？
普通に配列を指定すると怒られます。
926 名前：名無しさん＠お腹いっぱい。 mailto:sage [2009/02/17(火) 01:13:40 ID:shI/FnE+0]: >>925
ｲﾏｲﾁ質問の意味がわからんけど関数内でResizeしてないんとちゃう?
ttp://www.geocities.jp/stardust774/
927 名前：名無しさん＠お腹いっぱい。 mailto:sage [2009/02/17(火) 03:52:10 ID:X+NUGRkd0]: >>925
関数の戻り値に配列って指定できたっけ?
俺は配列変数を参照渡しして、配列の長さを返却するようにしてる

DIM ary[0]
DIM i

FOR i=0 TO hoge(ary, 3)-1
PRINT "ary["+i+"]: "+ary[i]
NEXT

FUNCTION hoge(VAR a[], n)
DIM i

FOR i=0 TO RESIZE(a, n-1)
a[i] = i
NEXT
RESULT = LENGTH(a)
FEND
928 名前：名無しさん＠お腹いっぱい。 mailto:sage [2009/02/17(火) 06:36:49 ID:hsq0Fe2s0]: >>925
一言で言えば、無理
929 名前：名無しさん＠お腹いっぱい。 mailto:sage [2009/02/17(火) 12:52:47 ID:zwqJ4YAK0]: >>925
俺もそれやろうとしたけどできなかったんで、配列のグローバル変数使ってやりとりしてるな
かっこ悪いけど
930 名前：925 mailto:sage [2009/02/17(火) 15:04:26 ID:zlTNHss50]: うーん、やっぱりできないっぽいですね
関数自体をループさせるか、グローバル変数使うしかないのかな…
ありがとうございました
931 名前：名無しさん＠お腹いっぱい。 mailto:sage [2009/02/17(火) 15:42:00 ID:gznT5Jkz0]: >>930
いや、>>927は無視ですか。

関数の引数を定義するときに、var 変数名　と定義してやれば、値の受け渡しができます
同じ変数名ならグローバル変数みたいに使える。
２次元配列とかもできる。
ちょっと配列数と添え字がややこしいけど。

dim a[0]
hoge( a )

FUNCTION hoge( var a[] )
　dim i
　resize(a,10)
　for i = 0 to 9
　　a[i] = "x"
　next
FEND

>>927はfor文でResizeしてるっぽいけどありなのか。
932 名前：名無しさん＠お腹いっぱい。 mailto:sage [2009/02/17(火) 16:19:37 ID:gQhLPPZu0]: FOR文自体は、中がループしてるだけで
ループ毎にFOR文の行を処理してる訳じゃないからね。
2行に分けて書くか、1行にまとめて書くかだけの違いで。
933 名前：名無しさん＠お腹いっぱい。 mailto:sage [2009/02/17(火) 16:52:39 ID:gznT5Jkz0]: いや、
for i=0 to Max
っていうのは、i とMaxを比較するんじゃないかなと。
そしたらMaxは毎回処理されるんじゃないかなと思ったんだけど
UWSCの場合はForが回数固定でカウンタとか保護されてるから大丈夫なんだろう。
いや、サイズが一緒だから変化がないだけかも。

C言語でいうと
for( i=0; i<Max; i++ )
iやMaxはループ中で変更できちゃうんだよね。
そんで初期化以外は毎回評価、実行されるんだよね。

初期化が入ったとき１回だけなのは当然だけど、終了条件の実行回数は分からない。
だからC言語でループ回数に関数を使うときは
for( i=sizeof(array); i>=0; i-- )
て言う風に初期化子として使う。
いや、そんなことしてなかったな。俺は。
どうせ最適化してくれるだろうと思って。
934 名前：名無しさん＠お腹いっぱい。 mailto:sage [2009/02/17(火) 17:00:23 ID:gznT5Jkz0]: //　forのテスト。終了条件を関数で指定するとどうなるか。

for i = 0 to test(i)
print "roop" + i
sleep(1)
next

Function test(i)
print "Func" + i
result = 2
FEND

実行結果。終了条件の関数は、カウンタの初期化の後１回だけ呼ばれる。
Func0
roop0
roop1
roop2
935 名前：925 mailto:sage [2009/02/18(水) 13:34:14 ID:YzuvFpA90]: 恥ずかしながら>>927の意味がよくわかってませんでした(；´Д｀)

>>931
わかりやすい説明ありがとうございます
これは便利ですね！
936 名前：922 mailto:sage [2009/02/19(木) 18:03:25 ID:LQepcHmb0]: ログが最大209行で終わっていたというあほな理由でした
吊ってきます
937 名前：名無しさん＠お腹いっぱい。 mailto:sage [2009/02/19(木) 18:22:19 ID:ac9y3F6q0]: (´･ω･｀)
938 名前：名無しさん＠お腹いっぱい。 mailto:sage [2009/02/19(木) 20:54:42 ID:UxnJe9qS0]: 複数行のテキストを入力できるようなインターフェースって作れる？
INPUTだと1行だけだよね
939 名前：名無しさん＠お腹いっぱい。 mailto:sage [2009/02/19(木) 21:04:22 ID:vC1/avge0]: フォームでできるよ
940 名前：名無しさん＠お腹いっぱい。 mailto:sage [2009/02/19(木) 21:19:52 ID:UxnJe9qS0]: >>939ありがとう
941 名前：名無しさん＠お腹いっぱい。 mailto:sage [2009/02/20(金) 02:33:51 ID:Zfo0EG+70]: IEでの動作の途中に、別ウインドウのコマンドプロンプトに文字列を記入するマクロをつくっているのですが、
SENDSTR関数か、SCKEY関数か、どちらの方が安定するものでしょうか？
SENDSTR関数の方がいいような気もするし、
SCKEY関数の方が
コマンドプロンプトのウインドウをアクティブにしなくていい分、
有利な気もするし、、、
ちなみに、CPU負荷が高い状態での動作になります。
どちらがいいでしょうか？
942 名前：名無しさん＠お腹いっぱい。 mailto:sage [2009/02/20(金) 06:24:43 ID:cWHe1c0/0]: IEの特定のアドレスが含まれている画像のクリックするスクリプトを組んでいます。
前に、指定の範囲のアドレスを・・・と書いたものです。

他に方法はないかとソースなどをみてみたのですが、画像のアドレスなら前回の
場合と違い数が少なくできそうだなと思いました。

<a href="○○" target="_blank" onClick="return top_ekiden_click_chance('top4', '○○')"><img src="●●"></a></p>

上のソースの●●の部分は、複数あるのですが、POSでゲットして巡回できたらと思っています。
ちなみにリンクの場合上記にも書きましたが下のようになります。

IE = CREATEOLEOBJ("InternetExplorer.Application")
IE.visible = True
IE.navigate("www.yahoo.co.jp")
REPEAT
SLEEP(0.1)
UNTIL !IE.BUSY AND IE.READYSTATE = 4
KAISU = IE.document.links.length
FOR A = 0 TO (KAISU - 1)
IFB POS("dailynews.yahoo.co.jp", IE.document.links[A].href) > 0
IE2 = CREATEOLEOBJ("InternetExplorer.Application")
IE2.visible = True
IE2.navigate(IE.document.links[A].href)
ENDIF
NEXT
IE.QUIT
943 名前：名無しさん＠お腹いっぱい。 mailto:sage [2009/02/20(金) 11:35:06 ID:mn16sQrP0]: >>941
SendSTR()は使えないよ。
ショートカットでのコピペもできない。
右クリックメニューを出して貼り付けは可能。
944 名前：名無しさん＠お腹いっぱい。 mailto:sage [2009/02/21(土) 19:32:30 ID:P+noKJtd0]: uwscのエラーウィンドウを消すマクロってありませんか
945 名前：名無しさん＠お腹いっぱい。 mailto:sage [2009/02/21(土) 19:49:38 ID:OlRYAKfW0]: >>944
まずはエラーメッセージを抑制するようにしたらいいよ。
OLEなら関連関数の例に書いてあるし、それ以外はUWSC本体の設定にあるか、INIファイル編集するとか。
946 名前：名無しさん＠お腹いっぱい。 mailto:sage [2009/02/21(土) 20:01:51 ID:P+noKJtd0]: >>945
具体的にどうすればいいか教えていただけますか
947 名前：名無しさん＠お腹いっぱい。 mailto:sage [2009/02/21(土) 20:10:20 ID:P+noKJtd0]: 例外エラー対策ならマクロの
最初に
TRY
を入れて

マクロの末尾に
EXCEPT
endtry
あたりいれるのがもっとも簡単なんでしょうか
948 名前：名無しさん＠お腹いっぱい。 mailto:sage [2009/02/22(日) 10:05:02 ID:Rpahjq6x0]: >>947
まぁ、UWSCで用意されてるものだしなぁ
例外処理でこれ以上簡単なのはないと思うよ。
…エラーを起こさせないという前提で作ればもっと簡単になるけどねｗ

あと、全体を無理やり囲うのはどうなん
949 名前：名無しさん＠お腹いっぱい。 [2009/02/22(日) 17:59:07 ID:a3nz7nXd0]: 特定の文字を判定してそこまでの文字を消すマクロはありますか？

例えば
「あいうえお」と入力してあって
「う」まで消したい、そうすると
「あい」となるようなマクロです。
950 名前：名無しさん＠お腹いっぱい。 mailto:sage [2009/02/22(日) 18:28:16 ID:DuKIHBzQ0]: POS COPY CHGMOJ でいいじゃねーの
951 名前：名無しさん＠お腹いっぱい。 mailto:sage [2009/02/22(日) 18:31:19 ID:K0Xm20HXP]: string = "あいうえお"
find = "う"

MsgBox(COPY(string, 1, POS(find,string)-1))

いや、違う？
この世界に「愛」だけを残す方法を我々に聞いているのか？
952 名前：名無しさん＠お腹いっぱい。 mailto:sage [2009/02/22(日) 19:08:17 ID:a3nz7nXd0]: >>950
初心者なのでよくわかりません

>>951
できれば表計算ソフトで使用したいのですが・・・
953 名前：名無しさん＠お腹いっぱい。 [2009/02/22(日) 19:14:53 ID:mX0F8+M00]: >>952
冗談じゃなく、ロジックを正しく説明してくれないとプログラムなんか書けませんから。
日本語から勉強してきてください。
954 名前：名無しさん＠お腹いっぱい。 mailto:sage [2009/02/22(日) 19:16:18 ID:lHLWjdVe0]: >>952
その表計算ソフトのスレででも聞けよ…
955 名前：名無しさん＠お腹いっぱい。 mailto:sage [2009/02/22(日) 21:10:11 ID:a3nz7nXd0]: >>953
セル内に
1戦1勝0負
10戦5勝5負
1000戦500勝500負
・
・
・
となっているものを負を消して
1戦1勝
10戦5勝
1000戦500勝
・
・
・
としたいのです。
よろしくお願いします。
956 名前：名無しさん＠お腹いっぱい。 mailto:sage [2009/02/22(日) 21:21:24 ID:feS5VAah0]: 丸投げしたいなら他行ってくれ
スレ違いだ
957 名前：名無しさん＠お腹いっぱい。 mailto:sage [2009/02/22(日) 21:37:49 ID:a3nz7nXd0]: >>956
そうですか、自分で努力します。
失礼しました。
958 名前：名無しさん＠お腹いっぱい。 mailto:sage [2009/02/22(日) 22:42:54 ID:K0Xm20HXP]: うむ
たとえばExcelの場合だとしよう
A1:A100（A1,A2,・・・A100のセル）にそのデータがあるとすればB1に
=LEFT(A1,FIND("勝",A1))
を入れる。次にB1選択した状態でメニューから
編集-コピーを選択、B2:B100選択した状態で
編集-貼り付けを選択。
さらにB1:B100を選択した状態で
編集-コピーを選択、
C1を選択した状態で、
編集-形式を選択して貼り付け(だったっけ？)-値を選択すると
C1:C100に目的のデータが入力される

UWSCでやれない訳ではないけれど結構大変になる
一般的な表計算ソフトの標準機能でこのような簡単な手段は
用意されているのでそちらを調べたほうがいい
959 名前：名無しさん＠お腹いっぱい。 mailto:sage [2009/02/22(日) 23:27:25 ID:q6eIkfWd0]: >>958
反応するなよ。反応されるとそれに対して反応したくなる…
そんなに面倒なことせんでも(ry
960 名前：名無しさん＠お腹いっぱい。 mailto:sage [2009/02/22(日) 23:54:16 ID:a3nz7nXd0]: >>958
ありがとうございます。参考になります。
961 名前：名無しさん＠お腹いっぱい。 mailto:sage [2009/02/23(月) 04:11:08 ID:S/nw+oX60]: IEが複数開いてたとしてウインドウタイトルに特定の文字が含まれているもの
以外閉じるということはできますか？

例えばタイトルに「自動化ツール」というのがあるとして、その他タイトルに「自動化ツール」
が無かったら閉じるといった感じです。
962 名前：名無しさん＠お腹いっぱい。 mailto:sage [2009/02/23(月) 08:00:29 ID:7fqz0Mlm0]: >>961
できます
963 名前：名無しさん＠お腹いっぱい。 mailto:sage [2009/02/23(月) 10:33:55 ID:S/nw+oX60]: ＞＞962
死にうせろ
964 名前：名無しさん＠お腹いっぱい。 mailto:sage [2009/02/23(月) 11:15:39 ID:H0niA5cQ0]: >>961
簡単だよ
965 名前：名無しさん＠お腹いっぱい。 mailto:sage [2009/02/23(月) 11:42:07 ID:PyFhHQu70]: >>961
できます。簡単だから頑張って
966 名前：名無しさん＠お腹いっぱい。 mailto:sage [2009/02/23(月) 16:39:43 ID:8oL82p7A0]: >>961
タブブラウザ（FireFox3とか）を使うと、たくさんタブが増えても閉じるボタン一発で閉じれるよ。
ウィンドウをいっぱい開いちゃってもタスクバーで右クリックしてまとめて終了すればいい。
Alt+F4で連続終了させるのが簡単。Alt+TABやAlt+ESCと組み合わせてもいいし。

もしそういうスクリプトを作ったとして、たとえば銀行取引のページが別窓で表示されたときに
同じタイトルだからと言って閉じてしまうと取引が不完全なまま終了しちゃっておかしくなるかも。

あと、UWSCってタイトルでアプリを終了させようとすると、
UWSCってフォルダを開いてるエクスプローラーが閉じられたりUWSC自身が終了したり変なことになる。
そういうヘンなの作ってなにか意味あるの？
967 名前：名無しさん＠お腹いっぱい。 mailto:sage [2009/02/23(月) 21:08:56 ID:WFLH0UN70]: それはお前だけじゃね？
968 名前：名無しさん＠お腹いっぱい。 mailto:sage [2009/02/24(火) 00:04:30 ID:3MTrBR1N0]: >>961
ウィンドウタイトルに「自動化ツール」が含まれない IE6 を終了

DIM i

FOR i=0 TO GETALLWIN()-1
IF STATUS(ALL_WIN_ID[i], ST_CLASS) <> "IEFrame" THEN CONTINUE
IFB !POS("自動化ツール", STATUS(ALL_WIN_ID[i], ST_TITLE)) THEN
CTRLWIN(ALL_WIN_ID[i], CLOSE)
ENDIF
NEXT
969 名前：名無しさん＠お腹いっぱい。 mailto:sage [2009/02/24(火) 00:47:30 ID:rOG7rC/gP]: 私も考えてみたのですがIE7でタブを使っている場合は
どうすればいいんでしょうね

それさえ実現できれば>>961さんの要求を完全に満たせると思うのですが
970 名前：名無しさん＠お腹いっぱい。 mailto:sage [2009/02/24(火) 11:56:45 ID:1GbWnsrA0]: chkimg()で透過色指定＋形でチェックを同時にできるようにしてほしいのう
画像内の文字に対するgrepみたいなのを作ってるのだけどフォントカラーが変わったら使えなくなってしまう
フォントスタイル自体は固定なので問題ないんだけど
971 名前：名無しさん＠お腹いっぱい。 mailto:sage [2009/02/24(火) 15:42:30 ID:CGjnVP+X0]: chkimgX()　みたいな関数作って
内部で透過色＆形の2重にチェックするぐらいしか思いつかないわー
972 名前：名無しさん＠お腹いっぱい。 mailto:sage [2009/02/24(火) 17:02:53 ID:Jl8nOyx+0]: いやそれ画像2枚いりますやんｗ
973 名前：名無しさん＠お腹いっぱい。 mailto:sage [2009/02/24(火) 20:21:28 ID:7Fr+80aB0]: 単純な input() や slctbox() ではなく、
リストボックスをいくつか置き、さらにそのリストボックスの値で
ラベルが動的に変化するようなフォームを使いたいのですが、

同じようなことを試みられた方はいらっしゃいますか？
やはり外部DLLを自作するしかないでしょうか。
974 名前：名無しさん＠お腹いっぱい。 mailto:sage [2009/02/24(火) 21:47:44 ID:AV7g6HDD0]: >>973
DLLで画面出す気？
プロパティみたいな感じで？
UWSCの有料版で画面作れるらしいけど、
無料がよければ、最近HTAていうの知ったんだけど、
DynamicHTMLで画面作って、結果をクリップボード経由で渡すようなのなら作れると思う。

リストボックスが変更されたら表示を変更。
OKボタンにOnClickイベントとしてクリップボードにセット。
というHTMLを作って拡張子をHTAに変更。
いや、別にHTMLのまんまでもいいんやけど画面まわりうざいし。

あ、いつどうやって終了を知らせるかが問題だな。
・・・
975 名前：名無しさん＠お腹いっぱい。 mailto:sage [2009/02/24(火) 21:51:45 ID:D2y5nC2+0]: ajax使用webサイト超めんどー
なんとかなんない？
976 名前：名無しさん＠お腹いっぱい。 mailto:sage [2009/02/24(火) 22:32:36 ID:7Fr+80aB0]: >>974
ありがとう、参考になりました。

[ 続きを読む ] / [ 携帯版 ]

read.cgi ver5.27 [feat.BBS2 +1.6] / e.0.2 (02/09/03) / eucaly.net products.
担当:undef