Yahoo!知恵袋Web APIをVBScriptから呼び出す

Yahoo!知恵袋Web APIをVBScriptから呼び出してみます。
※ 要アプリケーションID

Option Explicit

ShowChiebukuroList "2078297489", "open" 'Yahoo!知恵袋(Office系(Word、Excel))回答受付中の質問を列挙

Sub ShowChiebukuroList(ByVal CategoryId, ByVal Condition)
  Dim oXML
  Dim oNode
  Dim url
  Const AppID = "(アプリケーションID)" 'アプリケーションID
  
  Select Case LCase(Condition)
    Case "open", "vote", "solved"
    Case Else
      WScript.Echo "パラメータを確認してください。"
      Exit Sub
  End Select
  
  url = "http://chiebukuro.yahooapis.jp/Chiebukuro/V1/getNewQuestionList?output=xml&condition=" & Condition & "&sort=-updateddate&results=20&category_id=" & CategoryId & "&appid=" & AppID
  Set oXML = Nothing '初期化
  On Error Resume Next
  With CreateObject("MSXML2.XMLHTTP")
    .Open "GET", url, False
    .Send
    Set oXML = .responseXML
  End With
  Err.Clear
  On Error GoTo 0
  If oXML Is Nothing Then
    WScript.Echo "XMLが取得できませんでした。処理を中止します。"
    Exit Sub
  End If
  If oXML.getElementsByTagName("Error").Length > 0 Then
    WScript.Echo "エラーが発生しました。処理を中止します。"
    Exit Sub
  End If
  
  WScript.Echo "--------------------"
  For Each oNode In oXML.SelectNodes("/ResultSet/Result")
    WScript.Echo "質問内容:" & oNode.SelectSingleNode("Content").Text
    WScript.Echo "回答数:" & oNode.SelectSingleNode("AnsCount").Text
    WScript.Echo "お礼コイン枚数:" & oNode.SelectSingleNode("Coin").Text
    WScript.Echo "カテゴリ:" & oNode.SelectSingleNode("Category").Text
    WScript.Echo "URL:" & oNode.SelectSingleNode("QuestionUrl").Text
    WScript.Echo "更新日時:" & oNode.SelectSingleNode("UpdatedDate").Text
    WScript.Echo "--------------------"
  Next
End Sub
広告

コメントを残す

以下に詳細を記入するか、アイコンをクリックしてログインしてください。

WordPress.com ロゴ

WordPress.com アカウントを使ってコメントしています。 ログアウト / 変更 )

Twitter 画像

Twitter アカウントを使ってコメントしています。 ログアウト / 変更 )

Facebook の写真

Facebook アカウントを使ってコメントしています。 ログアウト / 変更 )

Google+ フォト

Google+ アカウントを使ってコメントしています。 ログアウト / 変更 )

%s と連携中


%d人のブロガーが「いいね」をつけました。