Excel VBA 讀寫檔案使用While EOF(檔案) Get舊檔 Put新檔如何避免多出最後一段 00 00 00 00 資料?

excel vba eof

achan 2021-03-26 11:37:57 ‧ 995 瀏覽

使用Excel VBA 處裡文字檔，想轉成UTF-8 no BOM (原本是有BOM 用程式 Seek從 #4 開始讀取存成新檔案

但程式如下
While Not EOF(舊檔案)
Get #讀舊檔, , fileByte
Put #寫入新檔, , fileByte
Wend
觀察新檔案已經到最後了程式仍會跳到上面檢查 EOF 結果就會多一段(HEX) 00 00 00 00

請問有什麼解法嗎?

<說明>
我的程式已經有先處理將原本的BIG-5 轉成UTF-8 ，才發現是UTF-8 BOM 格式目前是卡在轉乘 UTF-8 without BOM 處理不好

直播研討會

{{ item.channelVendor }} {{ item.webinarstarted }} |

直播中

海綿寶寶

iT邦大神 1 級 ‧ 2021-03-26 12:13:37

最佳解答

有辦法直接刪除檔案的最欠面 3個 byte ?

Google 這個移除 BOM 的 VBA 程式碼
參考看看能不能用

另外
GET, PUT 好像不是文字檔用的

achan iT邦研究生 3 級 ‧ 2021-03-26 13:08:48 檢舉

謝謝大神回答 ~ 改用這個程式處理好了

原先是參考下面文章才會有我提到到的問題
[http://www.office-cn.net/tw/access-function/149.mhtml]

立即登入回答

參賽組數

1064 組

團體組數

40 組

累計文章數

22207 篇

完賽人數

600 人

IT邦幫忙

Excel VBA 讀寫檔案 使用While EOF(檔案) Get舊檔 Put新檔 如何避免 多出最後一段 00 00 00 00 資料?