0

VBスクリプトで書いた下記のコードがあります。これを「辞書と配列」あたりのユーザーライブラリを使って書き換えたいのですが可能でしょうか?

可能であれば、どのユーザライブラリをどの順番に並べれば良いかお示し頂けると助かります。

やっていることは下記のとおりです。いろいろ書いていますが、やっていることはdocument.body.innerHTMLの中の、最後から6行目(これがlast_line)

の最後から2個目の数値をresultに取得しているだけです。

■4行目のbuf = Split(Right(document.body.innerHTML,255), vbLf)

で、某サイトに表示されている全単語を配列に取得し、配列の最後から6番目の行の内容をlast_line

に取得します。

■その後、last_lineに含まれる半角スペース1個や半角スペース2個を全で削除したあと、items = Split(last_line," ")で半角スペースをデリミタとしてlast_lineの内容を区切り直します。

 ■最後にresult = items(UBound(items)-1)でlast_lineの最後から2個目の単語をresultに取得します。

ーーーーーーー 

  Dim elements
  Dim buf
  Dim last_line

  buf = Split(Right(document.body.innerHTML,255), vbLf)
  num = UBound(buf)
  last_line = buf(num-6)

MsgBox last_line

  Do
     If InStr(1,last_line,"  ") > 0 Then
        last_line = Replace(last_line,"  "," ")
     Else
        Exit Do
     End If
  Loop
  items = Split(last_line," ")
  result = items(UBound(items)-1)

ーーーーーーー

回答した質問

回答とコメントは、会員登録(無料)で閲覧できるようになります。
会員登録(無料)する