以前にVBScriptで某WebページのHTML文のpreタグの内容を変数tempに取得した後、Split関数で、配列arrayTempに入れて、Forループで回して、必要な文字列をスクレイピングしました。

Dim文省略したり、一部修正しましたが、コードはだいたい下記のとおりです。

同様の考え方で、某WebページのHTML文全文を変数tempに取得したいのですが、最初の1行目

Set elements = document.GetElementsByTagName("pre") '変数elements にオブジェクトを取得​

をどう修正すれば良いでしょうか？

---<ここから>----

Set elements = document.GetElementsByTagName("pre") '変数elements にオブジェクトを取得​

​

temp = elements(1).innerHTML ​

MsgBox "tempは" & vbCrLf & CStr(temp)​

'tempに半角スペースが2個あれば、すべて半角スペース1個に置換する。​

Do​

　If InStr(1,temp," ") > 0 Then​

　　　temp = Replace(temp," "," ")​

　Else​

　　　Exit Do​

　End If​

Loop​

​

​

'MsgBox "tempは" & vbCrLf & CStr(temp)​

​

'arrayTempに配列を取得​

​

arrayTemp = Split(temp," ")​

num = UBound(arrayTemp)​

​

'MsgBox num ​

​

'fCapacityに数値を取得​

​

For i = 0 To (num - 1)​

​　If arrayTemp(i) = "ABC" or "SCB" or "ACC" Then​

　fCapacity = fCapacity + CDbl(arrayTemp(i-1))/1000000000​

End If​

Next​

---<ここまで>-----​

​