VBSでリンクをクリックしたいのですが、
某所からコピペしたVBSのスクリプトです。
これを実行すると、たしかに
YAHOOのオークションに行きます。
==============================
Option Explicit
Dim objIE
Dim objShell
Dim strBody
Dim objLINK
'Shell.Application オブジェクトの作成
Set objShell = CreateObject("Shell.Application")
'IE を起動して Yahoo のトップページを開く
Set objIE = CreateObject("InternetExplorer.Application")
objIE.Visible = True 'IEウィンドウを表示
objIE.Navigate2 "http://www.yahoo.co.jp/" 'Yahoo のページが起動する
'ページの読み込みが終わるまで待機する
Do Until objIE.Busy = False
'空ループだと無駄にCPUを使うので250ミリ秒のインターバルを置く
WScript.sleep(250)
Loop
' Yahoo トップページのオークションのリンクをクリックする
For Each objLINK In objIE.Document.Links
If objLINK.InnerText = "オークション" Then
objLINK.Click
Exit For
End If
Next
============================
質問させていただきたいのは
If objLINK.InnerText = "オークション" Then
この部分が例えば「オークション」でなくとも「オークショ」のように
アンカーテキストリンクの一部が同じだったら、いけるようにしたいのですが、
どうしたらよろしいでしょうか?
「オークション」
だったら
「オークショ*」
や
「*クション」
とかでもいけるのかなーとおもってたんですが、
全然わからないんです。
どうかよろしくお願い致します。
No.1ベストアンサー
- 回答日時:
プログラミング用語で「正規表現」というやつですね。
「VBS 正規表現」で検索するといいですよ。
最後の節をこうしてみてください。
Dim objRE
Set objRE=CreateObject("VBScript.RegExp")
objRE.Pattern="^.*ークショ.*$"
' Yahoo トップページのオークションのリンクをクリックする
For Each objLINK In objIE.Document.Links
If objRE.Test(objLINK.InnerText) Then
objLINK.Click
Exit For
End If
Next
objRE.Pattern="^.*クシ.*$" でもオークションのトップページに飛べましたよ。
参考URL:http://chaichan.lolipop.jp/vbtips/VBMemo20070101 …
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- その他(プログラミング・Web制作) VBSでExcelファイル起動時、重複しても開くのを止めたい 1 2022/10/01 23:20
- Visual Basic(VBA) EXCEL VBAで NHK NEWSの NEWSデータ内容取得が できない 1 2023/04/09 12:26
- Visual Basic(VBA) このVBAでExcelアプリケーションを作成は必要ですか? 3 2023/07/19 21:13
- Excel(エクセル) 【エクセルマクロ】既に開いているIEの、サイズや表示位置を変更するには 4 2022/12/01 22:57
- Visual Basic(VBA) 【VBA】写真の貼り付けコードがうまく機能しません。 5 2022/09/01 18:43
- Visual Basic(VBA) InputBoxでキャンセルボタンを押したらファイル自体を閉じたい 3 2022/07/23 17:52
- Excel(エクセル) 2つのVBAを一緒にしたら機能しなくなりました(エクセル) 7 2022/06/02 12:41
- ヤフオク! ヤフオク。入札価格が安すぎるから、ということで出品者都合でキャンセルするのはアリなのか? 5 2022/10/14 16:40
- Visual Basic(VBA) 貼り付けた値が消えていく 以下はソースファイルの2番目のシートのB6から最終行を取得 ターゲットファ 2 2023/07/27 12:23
- Visual Basic(VBA) Excel VBAの解読について質問があります。 概要は、マクロでチェックボックスにチェックすると日 1 2023/02/10 07:50
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
ヤフオクが垢BANになりました p...
-
自分でオークションサイトって...
-
Yahooオークションで閲覧履歴を...
-
サイクロン掃除機(安くおすすめ)
-
東京読売巨人軍創立50周年記念...
-
JR西日本株主優待券を安く手...
-
ヤフオクで手渡しして欲しいと...
-
2年前に12万円で買ったノートパ...
-
最近はヤフーIDを登録すると...
-
yahooIDを変更したい
-
Yahoo!オークションとauオーク...
-
スラムダンク全巻オークション...
-
yahooオークションの表示順は?
-
オークショニアのきまり文句
-
WebMoneyって金券ショップで売...
-
オークションサイトなどで韓国...
-
ヤフオクで売られているパソコ...
-
JR切符の出品者逮捕の真相に...
-
即売くんの簡単リンク貼り う...
-
ヤフオクの出品で写真を複数枚...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
ヤフオクが垢BANになりました p...
-
オークショニアのきまり文句
-
ヤフオクで手渡しして欲しいと...
-
ヤフオクの自分のオークションI...
-
yahooのポップアップ宣伝の停止...
-
旧楽天フリマの『探し物』のよ...
-
IDは分る??ヤフオクで商品ペー...
-
yahooオークションの表示順は?
-
オークションでパソコンソフト...
-
中古とジャンクの違いについて
-
(ヤフオク)注目のオークショ...
-
キャンディキャンディの背表紙
-
足腰の弱い老人用のステッキカ...
-
みなしごハッチのぬいぐるみ
-
プリンターのインクカートリッ...
-
自分でオークションサイトって...
-
インターネットで副収入って本...
-
社内でオークション
-
パソコンを売るならどこがいい...
-
子供がネットオークションをや...
おすすめ情報