tagCANDY CGI VBレスキュー(花ちゃん) の Visual Basic 2010 用 掲示板(VB.NET 掲示板) [ツリー表示へ]   [Home]
一括表示(VB.NET VB2005)
タイトル System.IO.StreamReaderで文字に?がでる場合
記事No9611
投稿日: 2009/11/19(Thu) 11:40
投稿者KEISUKE
こんにちは、お世話になります。
vb暦 3ヶ月の初心者です、ワード検索ごGOOGLE等で調べましたが
解決できませんで、質問させていただきます。
環境はWindows 7、使っているものはVB2008 Express Editionです。

下にある(Test)ようなを動作させると、戻ってくるものが玉に
"<title>??&#375;??????</title>"となります。
これを?部、見えるようにするにはどうしたら良いでしょうか?
objIE(W) = CreateObject("InternetExplorer.application")
URL01 = "http://hanatyan.sakura.ne.jp/dotnet/index.html"
objIE(W).Navigate(URL01)
dat(W, 1) = objIE(W).Document.Body.InnerHtml
これですと読めるのですが、何か変換??みたいな命令があるのでしょうか、


Sub test()
Dim webClient As New System.Net.WebClient()
Dim sr As System.IO.Stream = webClient.OpenRead(URL01)
Dim srRead As New System.IO.StreamReader(sr)
TextBox1.Text = srRead.ReadToEnd()
srRead.Close()
End Sub

[ツリー表示へ]
タイトルRe: System.IO.StreamReaderで文字に?がでる場合
記事No9612
投稿日: 2009/11/19(Thu) 11:56
投稿者オショウ
> 下にある(Test)ようなを動作させると、戻ってくるものが玉に
> "<title>??&#375;??????</title>"となります。
> これを?部、見えるようにするにはどうしたら良いでしょうか?
>  objIE(W) = CreateObject("InternetExplorer.application")
>  URL01 = "http://hanatyan.sakura.ne.jp/dotnet/index.html"
>  objIE(W).Navigate(URL01)
>  dat(W, 1) = objIE(W).Document.Body.InnerHtml
> これですと読めるのですが、何か変換??みたいな命令があるのでしょうか、

  こちらは、エンコーディングが自動的に行われている。

> Sub test()
> Dim webClient As New System.Net.WebClient()
> Dim sr As System.IO.Stream = webClient.OpenRead(URL01)
> Dim srRead As New System.IO.StreamReader(sr)
> TextBox1.Text = srRead.ReadToEnd()
> srRead.Close()
> End Sub

  こっちは、エンコーディングを別途行わないと文字バケする。

  と言うことかと。

  http://dobon.net/vb/dotnet/internet/webrequest.html

  こんな方法もあります。

以上。参考まで

[ツリー表示へ]
タイトルRe^2: System.IO.StreamReaderで文字に?がでる場合
記事No9614
投稿日: 2009/11/19(Thu) 12:13
投稿者KEISUKE
なるほど、理解いたしました。
ありがとうございます、答えは身近なところにあったのですね。
試してみますです。

[ツリー表示へ]