プログラミング

プログラミングに関するフォーラムです。VBAは除きます。
  • 掲示板への投稿には会員登録(無料)が必要です。会員登録がまだの方はこちら
  • 掲示板ご利用上のお願い」に反するご記入はご遠慮ください。
  • Q&A掲示板の使い方はこちらをご覧ください
トピックに返信
質問

 
(Windows 10全般 : その他)
VBScriptでWebページの"hogehoge"という単語を探したい
投稿日時: 20/07/02 11:53:45
投稿者: gorby

VBScriptでWebページの"hogehoge"という単語を探したいと考えています。もし、あれば、”あったよ!”とMsgBoxで表示します。
 
下記のコードで合っていますか?気になる箇所があれば教えてください。
 
ーーー<Start of code>ーーーー
 
Option Explicit
 
On Error Resume Next
Dim temp
Dim arraytemp
Dim num
Dim i
 
temp = document.body.innerHTML
 
temp = Replace(temp,CStr(vbCrLf)," ")
temp = Replace(temp,CStr(vbLf)," ")
 
'でvbCrLfとvbLfを半角スペースに置換する。
 
Do
  If InStr(1,temp," ") > 0 Then
     temp = Replace(temp," "," ")
  Else
     Exit Do
  End If
Loop
 
'で半角スペース2個を半角スペースに1個に置換する。
 
arraytemp = Split(temp," ")
num = UBound(arraytemp)
 
For i = 0 to (num - 1)
 If arraytemp(i) = "hogehoge" Then
 
         MsgBox "あったよ!"
 Else
 End If
Next
 
ーーー<End of code>ーーーー

回答
投稿日時: 20/07/03 22:01:09
投稿者: RK

対象サイトと探したい文字列によっては、ループで対象を探す必要があるかもしれませんが、
私ならループではなく
 
If InStr(temp, "hogehoge") > 0 Then
    MsgBox "あったよ"
  Else
    MsgBox "ないよ"
End If
とInStr関数一発で判定すると思います。
 
あと2月に私が答えた
https://www.moug.net/faq/viewtopic.php?t=79142
の剰余演算そのものは解決しましたか?
したのなら解決済みにして下さい。

トピックに返信