UWSCに詳しい方助けてください＞＜

質問

いつもお世話になります。

昨日、UWSCというものを知って、パソコンの操作を自動化できることに感動しました。

プログラミングはほとんどしたことがないど素人なのです＾＾；

指定したURLから特定の語句のリンクを抽出したく、なんとか抽出することはできたのですが、
重複してしまうリンクがでてきてしまいました。

重複したリンクは取得せず、抽出していく方法がわからず困っております。

重複したリンクをその都度削除、もしくは、エクセルにデータを落として、エクセルの重複削除を自動でやる、といったことでもいいのですが、そのスクリプトをどうやって書いたらいいのか全くわかりません。。。

下記が特定の語句のリンクを取得するスクリプトです。

URL = INPUT("URLを入力してください", "「指定URL」")
TOTAL_LINKS = ""
IE = CREATEOLEOBJ("InternetExplorer.Application")
IE.visible = True
IE.navigate(URL)
REPEAT
SLEEP(0.1)
UNTIL !IE.BUSY AND IE.READYSTATE = 4

LINK_AMOUNT = IE.Document.links.length
FOR KAISU = 0 TO (LINK_AMOUNT - 1)
IFB POS("特定の語句", IE.document.links[KAISU].href) > 0
TOTAL_LINKS = TOTAL_LINKS + IE.document.links[KAISU].href + "<#CR>"
ENDIF
NEXT
EXEC("NOTEPAD")
SENDSTR(GETID("無題 - メモ帳"), TOTAL_LINKS)

お力をお貸しくださいm(_ _)m

よろしくお願いいたします。

回答No.1

liners0 · ベストアンサー

単に条件を追加するだけですね。それでも下記なら一行も増えませんよ。

IFB POS("特定の語句", IE.document.links[KAISU].href) > 0 and pos("<#cr>" + IE.document.links[KAISU].href + "<#cr>", "<#cr>" + TOTAL_LINKS) = 0

お礼

すごい！！！

自分のイメージしていた通りのことができました！！

ありがとうございます！！

助かりましたm(_ _)m