ちょっとした英訳を知りたい時に使える、デ辞蔵のREST APIを使った和英辞典プログラム

  Private Async Sub okButton_Click(sender As Object, e As RoutedEventArgs) Handles okButton.Click
    If dicTextBox.Text <> String.Empty Then
      Dim dicUri = String.Format("http://public.dejizo.jp/NetDicV09.asmx/SearchDicItemLite?Dic=EdictJE&Word={0}&Scope=HEADWORD&Match=STARTWITH&Merge=AND&Prof=XML&PageSize=20&PageIndex=0", Uri.EscapeDataString(dicTextBox.Text))
      Dim myHttpClient As New HttpClient
      Dim resultDicXml = Await myHttpClient.GetStringAsync(dicUri)
      resultDicXml = resultDicXml.Replace("<SearchDicItemResult xmlns:xsi=" & ChrW(34) & "http://www.w3.org/2001/XMLSchema-instance" & ChrW(34) & " xmlns:xsd=" & ChrW(34) & "http://www.w3.org/2001/XMLSchema" & ChrW(34) & " xmlns=" & ChrW(34) & "http://btonic.est.co.jp/NetDic/NetDicV09" & ChrW(34) & ">", "<SearchDicItemResult >")
      Dim dicXmlDoc As XElement = XElement.Parse(resultDicXml)
      Dim myItemCount = dicXmlDoc.Descendants("ItemCount").Value
      If myItemCount = "0" Then
        Dim message = New MessageDialog("該当する単語がありません。")
        Await message.ShowAsync
        Exit Sub
      End If
 
      Dim myDicList As New List(Of dicInfo)
      For Each result In From c In dicXmlDoc.Descendants("DicItemTitle") Select c
        Dim dicItem = result.Element("ItemID").Value
        Dim resultDicUri = String.Format("http://public.dejizo.jp/NetDicV09.asmx/GetDicItemLite?Dic=EdictJE&Item={0}&Loc=&Prof=XML", dicItem)
        Dim myDicHttpClient As New HttpClient
        Dim resultMeanXml = Await myDicHttpClient.GetStringAsync(resultDicUri)
        resultMeanXml = resultMeanXml.Replace("<GetDicItemResult xmlns:xsi=" & ChrW(34) & "http://www.w3.org/2001/XMLSchema-instance" & ChrW(34) & " xmlns:xsd=" & ChrW(34) & "http://www.w3.org/2001/XMLSchema" & ChrW(34) & " xmlns=" & ChrW(34) & "http://btonic.est.co.jp/NetDic/NetDicV09" & ChrW(34) & ">", "<GetDicItemResult>")
        resultMeanXml = resultMeanXml.Replace("<div class=" & ChrW(34) & "NetDicBody" & ChrW(34) & " xml:space=" & ChrW(34) & "preserve" & ChrW(34) & " xmlns=" & ChrW(34) & ChrW(34) & ">", "<div>")
 
        Dim meanXmlDoc As XElement = XElement.Parse(resultMeanXml)
        Dim english = meanXmlDoc.Descendants("span").Value
        Dim mean = meanXmlDoc.Descendants("Body").Elements("div").Elements("div").Value
 
        myDicList.Add(New dicInfo With {.英文 = english, .意味 = mean})
      Next
      GridView1.ItemsSource = myDicList
    Else
      dicTextBox.Focus(Windows.UI.Xaml.FocusState.Pointer)
      Exit Sub
    End If
  End Sub

「kuniyasuのアプリ一覧」ボタンがクリックされた時の処理

私の作者名kuniyasuをクエリに指定して、Windows ストアに公開している私のアプリ一覧を表示します。
この画面から、もとの画面に戻るには、画面の左隅上にマウスカーソルを移動し、表示されるこのアプリの小さな画面をタップすると戻ることができます。

  Private Async Sub myApps_Click(sender As Object, e As RoutedEventArgs) Handles myApps.Click
    Dim myAppsUri = New Uri("ms-windows-store:Search?query=kuniyasu")
    Await Windows.System.Launcher.LaunchUriAsync(myAppsUri)
  End Sub
End Class

図4：英和辞典のXMLの構造。が取得されている（クリックで拡大）

図5：を指定した結果のXMLの構造（クリックで拡大）

アイコンの作成

詳細については、「自分の現在位置を取得して表示するサンプルプログラム」の記事を参照してください。

今回はここまでです。ありがとうございました。