返回列表 上一主題 發帖

[發問] 網頁抓取資料如何讓中文完整顯示(用CreateObject系列)

PKKO
　暱稱: PKKO

高中生Rank: 3Rank: 3

帖子
549 
主題
152 
精華
0 
積分
691 
點名
0  
作業系統
WIN7 
軟體版本
OFFICE 2010 
閱讀權限
50 
性別
男 
註冊時間
2013-8-10 
最後登錄
2022-9-7 

論壇榮譽勳章論壇贊助勳章
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2018-11-12 11:17 | 顯示全部帖子

[發問] 網頁抓取資料如何讓中文完整顯示(用CreateObject系列)

使用以下程式碼當網頁有中文的時候
例如[漲、跌]等字樣會變成亂碼
如何用CreateObject系列的方式來讓中文正確顯示呢?
嘗試用.setRequestHeader "charset", "utf-8"等方法約莫七八種都無效
有大大有經驗嗎?
  1. Sub TEST()
  2. Url = "http://mops.twse.com.tw/nas/t21/sii/t21sc03_107_4_0.html"
  3. Set HTML = CreateObject("Microsoft.XMLHTTP")
  4. With HTML
  5.     .Open "GET", Url, False
  6.     .setRequestHeader "pragma", "no-cache"
  7.     .setRequestHeader "cache-control", "no-store, must-revalidate, private"
  8.     .setRequestHeader "charset", "utf-8"
  9.     .send
  10. End With
  11. MsgBox HTML.responseText
  12. End Sub
複製代碼
收藏 分享
PKKO

PKKO
　暱稱: PKKO

高中生Rank: 3Rank: 3

帖子
549 
主題
152 
精華
0 
積分
691 
點名
0  
作業系統
WIN7 
軟體版本
OFFICE 2010 
閱讀權限
50 
性別
男 
註冊時間
2013-8-10 
最後登錄
2022-9-7 

論壇榮譽勳章論壇贊助勳章
2#
發表於 2018-11-12 22:51 | 顯示全部帖子
回復 2# ciboybj


msgbox 只是展示給大大們看
我實際是直接讀取內容
但讀取內容也是亂碼

想問有辦法轉為正確的中文嗎?
PKKO

TOP

PKKO
　暱稱: PKKO

高中生Rank: 3Rank: 3

帖子
549 
主題
152 
精華
0 
積分
691 
點名
0  
作業系統
WIN7 
軟體版本
OFFICE 2010 
閱讀權限
50 
性別
男 
註冊時間
2013-8-10 
最後登錄
2022-9-7 

論壇榮譽勳章論壇贊助勳章
3#
發表於 2018-11-12 22:51 | 顯示全部帖子
回復 3# quickfixer


    感謝,我明天測試一下!!!
PKKO

TOP

PKKO
　暱稱: PKKO

高中生Rank: 3Rank: 3

帖子
549 
主題
152 
精華
0 
積分
691 
點名
0  
作業系統
WIN7 
軟體版本
OFFICE 2010 
閱讀權限
50 
性別
男 
註冊時間
2013-8-10 
最後登錄
2022-9-7 

論壇榮譽勳章論壇贊助勳章
4#
發表於 2018-11-13 22:32 | 顯示全部帖子
回復 3# quickfixer


    好強大的方式阿....完全正確速度又快
大大好會搜尋
我查國外網站都找不到
只有一個方式可以用,但速度太慢
您的這個方式好厲害!!!

大大說的01指的是mobile1嗎?
下次我也去那邊找找看答案
PKKO

TOP

PKKO
　暱稱: PKKO

高中生Rank: 3Rank: 3

帖子
549 
主題
152 
精華
0 
積分
691 
點名
0  
作業系統
WIN7 
軟體版本
OFFICE 2010 
閱讀權限
50 
性別
男 
註冊時間
2013-8-10 
最後登錄
2022-9-7 

論壇榮譽勳章論壇贊助勳章
5#
發表於 2019-1-4 10:28 | 顯示全部帖子
回復 7# GBKEE


非常感謝超版大大
原本以為三樓已經可以解決我的問題
沒想到會產生出其他問題

使用您的程式碼則完全沒有其他問題
真是太強大了,再次感謝!!!
PKKO

TOP

        靜思自在 : 多做多得。少做多失。
返回列表 上一主題