掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
INETコントロールでテキスト形式で取得するには (ID:101906)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
参考にやってみたのですが、ファイルから読み出してテキストに変換 する事は出来たのですが、一旦ファイルに保存せずに直接デコードした テキストにする事が出来ません。 Dim STRURL As String ' 取得URL Dim bytHtml() As Byte STRURL = "http://jp.msn.com/" 'ファイルをバイナリモードで読み込み bytHtml() = Inet1.OpenURL(STRURL, icByteArray) Dim objStream Set objStream = CreateObject("ADODB.Stream") objStream.Open objStream.Charset = "utf-8" objStream.WriteText bytHtml() Text1.Text = objStream.ReadText() objStream.Close テキストボックスには何も書き出されません。 はっきり言って基本的に理解できていませんが、上のコードを何処を 直せば上手くいくでしょうか
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.