VBでPostする方法を以下のURLから知りましたが、期待通りに行きません。どなたか教えてください。


よろしくお願いします。

参考にしたURL
http://itpro.nikkeibp.co.jp/article/COLUMN/20060926/249034/?P=2&ST=develop

以下が行いたいことと課題

Dim URL As String
Dim reURL As String

URL="http://ap1.search.yahoo.co.jp/WebSearchService/........."

Dim xlr As xmlTextReader
xlr=New XmlTextReader(URL)

While xlr.Read()
Select Case xlr.LocalName
Case "xxxx"
処理
end Select
End while

1、上記のコードはヤフーの例です。あくまで例として取り上げています。
2、XMLを取得後、"xxxx"を抽出してその後の処理につなげています。ここまではurlのとおりに行えば問題なくできます。
3、仮に選択する"xxxx"がxml中2つあるとします。実際には"/aaaa/xxxx"と"/bbbb/xxxx"です。このとき"/bbbb/xxxx"をとるにはどうすればよろしいのでしょうか?
"/bbbb/xxxxx"とselect分の中に入れてもうまくいきませんでした。

よろしくお願いします。

回答の条件
  • 1人2回まで
  • 登録:2008/05/05 11:59:47
  • 終了:2008/05/12 12:00:02

回答(2件)

id:pahoo No.1

pahoo回答回数5960ベストアンサー獲得回数6332008/05/05 13:06:21

ポイント35pt

"/bbbb/xxxxx"とselect分の中に入れてもうまくいきませんでした。

"xlr.LocalName" は、 "http://" からはじまる完全な URL が入っているという前提ですよね。

であれば、"http://" からはじまる完全 URL 文字列を Case 文に指定すれば、Select してくれると思います。


ただ、現実のプログラムでは、「URL の一部に "xxxxx" が含まれていたら」という前提になるでしょうから、If 文と正規表現検索の Regex.Match メソッドを使うことになるでしょう。具体的な手順については下記を参考にしてください。

id:ken33jp No.2

ken33jp回答回数928ベストアンサー獲得回数132008/05/08 23:43:23

ポイント35pt

>実際には"/aaaa/xxxx"と"/bbbb/xxxx"です。このとき"/bbbb/xxxx"をとるにはどうすればよろしいのでしょうか?

-------

同じ処理を2回書きます。

コメントはまだありません

この質問への反応(ブックマークコメント)

「あの人に答えてほしい」「この質問はあの人が答えられそう」というときに、回答リクエストを送ってみてましょう。

これ以上回答リクエストを送信することはできません。制限について

絞り込み :
はてなココの「ともだち」を表示します。
回答リクエストを送信したユーザーはいません