こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

締切り済みの質問

VB6でテレビ番組表HTMLの保存

VB6の以下のプログラムで下記URLのテレビ番組表を保存しようとしたのですが、うまくできませんでした。ソースを開いてみるとEUC-JPとなっていまして、これが原因かと思うのですが、保存するにはどうしたら良いでしょうか? よろしくお願いします。

■URL
http://tv.nikkansports.com/tv.php?site=007&mode=06&category=g&area=025&template=time&sdate=20081226&lhour=24&shour=5&arg=05

■プログラム
Private Sub Command1_Click()
Dim strURL As String ' 取得URL
Dim strFileName As String ' ファイル名

' URLとファイル名を代入する
strURL = Text1.Text
strFileName = Text2.Text

' 指定されたURLのドキュメントをファイルに出力する
Open strFileName For Output As #1
Print #1, Inet1.OpenURL(strURL)
Close #1
MsgBox strURL & "を" & strFileName & "に出力しました"
End Sub

投稿日時 - 2008-12-26 06:30:46

QNo.4583806

すぐに回答ほしいです

このQ&Aは役に立ちましたか?

1人が「このQ&Aが役に立った」と投票しています

回答(2)

ANo.2

こんにちは。

テキストをEUC-JP形式で保存したいという事であれば、ADODB.Streamを使用すれば可能だと思います。
ご参考にどうぞ。
-------------------------------------------------
Dim Stream As Object
Set Stream = CreateObject("ADODB.Stream")
With Stream
.Open
.Type = 2
.Charset = "EUC-JP"
.WriteText Inet1.OpenURL(strURL)
.SaveToFile strFileName, 2 '上書き
.Close
End With
Set Stream = Nothing

投稿日時 - 2008-12-29 02:36:31

補足

ご回答ありがとうございます。返信が遅くなってすみません。

これはどこに記述すれば良いのでしょうか?
質問文のソースに加えて記述するのでしょうか?

すみませんが、あまり難しいことはわかりません。
もう少し詳しくお願いします。

投稿日時 - 2009-01-03 03:55:26

ANo.1

やり方は若干違いますが、
Sub Main()
Dim objXMLHttp As MSXML2.XMLHTTP
objXMLHttp = CreateObject("Msxml2.XMLHTTP.3.0")
Dim strURL As String
Dim result As String
strURL = "http://tv.nikkansports.com/tv.php?site=007&mode=06&category=g&area=025&template=time&sdate=20081226&lhour=24&shour=5&arg=05"
objXMLHttp.open("GET", strURL, False)
objXMLHttp.send("")
result = objXMLHttp.responseText
MsgBox(result)
objXMLHttp = Nothing
End Sub
で、変数resultにドキュメントテキスト(そのページのソース)
が取れます。
※VBで、Microsoft XML v6.0を参照設定追加して下さい。
的外れな回答だったかも....

投稿日時 - 2008-12-26 16:26:28

補足

ご回答ありがとうございます。返信が遅くなってすみません。

参照設定なのですが、
Microsoft XML v6.0はなかったので、v3.0を使って試してみました。
しかし、objXMLHttp.open("GET", strURL, False)
の行がコンパイルエラーになってしまいました。
どうしたら良いでしょうか?

投稿日時 - 2009-01-03 03:50:26

あなたにオススメの質問