使用 Line Input #1, mystr 中文字會變成亂碼,請問有方法克服嗎?
- 帖子
- 199
- 主題
- 45
- 精華
- 0
- 積分
- 252
- 點名
- 0
- 作業系統
- windows 7 (X64)
- 軟體版本
- office 2010 (x64)
- 閱讀權限
- 20
- 性別
- 男
- 來自
- 桃園
- 註冊時間
- 2010-12-24
- 最後登錄
- 2020-3-31
 
|
使用 Line Input #1, mystr 中文字會變成亂碼,請問有方法克服嗎?
請問各位有遇到過這樣的問題嗎?
Open myfile For Input as #1
Line input #1, mystr
Close #1
若 mystr 有中文碼,都會變成一連串的?號,請問可以克服嗎?
|
|
|
V98
|
|
|
|
|
- 帖子
- 199
- 主題
- 45
- 精華
- 0
- 積分
- 252
- 點名
- 0
- 作業系統
- windows 7 (X64)
- 軟體版本
- office 2010 (x64)
- 閱讀權限
- 20
- 性別
- 男
- 來自
- 桃園
- 註冊時間
- 2010-12-24
- 最後登錄
- 2020-3-31
|
3#
發表於 2011-3-19 17:05
| 只看該作者
Hsieh板主:
我的文字檔是從VB產生出來的,從記事本中可以看到完整的文字檔,但是從Excel讀進來遇到中文字會變成亂碼.
myinx = 0
Open muti_f For Input As #1
Do Until EOF(1)
Line Input #1, mystr
myinx = myinx +1
mylist(myinx) = mystr
muti_count = muti_count + 1
Loop
Close #1
會是設定的問題嗎? |
|
|
V98
|
|
|
|
|
- 帖子
- 199
- 主題
- 45
- 精華
- 0
- 積分
- 252
- 點名
- 0
- 作業系統
- windows 7 (X64)
- 軟體版本
- office 2010 (x64)
- 閱讀權限
- 20
- 性別
- 男
- 來自
- 桃園
- 註冊時間
- 2010-12-24
- 最後登錄
- 2020-3-31
|
5#
發表於 2011-3-19 18:11
| 只看該作者
Hsieh板主你好:
不知道VB中的編碼的方式為何,但是如果是Unicode的話,如何轉換成Ansi 呢? |
|
|
V98
|
|
|
|
|
- 帖子
- 199
- 主題
- 45
- 精華
- 0
- 積分
- 252
- 點名
- 0
- 作業系統
- windows 7 (X64)
- 軟體版本
- office 2010 (x64)
- 閱讀權限
- 20
- 性別
- 男
- 來自
- 桃園
- 註冊時間
- 2010-12-24
- 最後登錄
- 2020-3-31
|
7#
發表於 2011-3-19 19:00
| 只看該作者
本帖最後由 linshin1999 於 2011-3-19 20:18 編輯
回復 6# Hsieh
Hsieh板主你好:
問題解決了,我的VB原始設定是(UTF-8),雖然這樣可以但是是不是每次都要做這樣的轉換呢?
另外在 Line Input 這邊解決了,但是會在滙入檔案那邊會出問題,這邊適合用(UTF-8),不然會亂碼.匯入檔案的程式如下:
With ActiveSheet.QueryTables.Add(Connection:=input_file, Destination:=Range("$A$1"))
.Name = "表頭"
.RefreshOnFileOpen = False
.RefreshStyle = xlInsertDeleteCells
.SaveData = True
.AdjustColumnWidth = True
.TextFilePlatform = 65001
.TextFileStartRow = 1
.TextFileParseType = xlFixedWidth
.TextFileColumnDataTypes = Array(2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2)
.TextFileFixedColumnWidths = Array(2, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3)
.TextFileTrailingMinusNumbers = True
.Refresh BackgroundQuery:=False
End With
這一段程式接受(UTF-8),而Line Input那邊則接受(ANSI)麻煩吧,不過總是把問題找出來了,謝謝你!!
另外你是否知道VB可有控制輸出碼的方法嗎?謝謝!!
|
|
|
V98
|
|
|
|
|
- 帖子
- 199
- 主題
- 45
- 精華
- 0
- 積分
- 252
- 點名
- 0
- 作業系統
- windows 7 (X64)
- 軟體版本
- office 2010 (x64)
- 閱讀權限
- 20
- 性別
- 男
- 來自
- 桃園
- 註冊時間
- 2010-12-24
- 最後登錄
- 2020-3-31
|
8#
發表於 2011-3-19 22:59
| 只看該作者
本帖最後由 linshin1999 於 2011-3-19 23:16 編輯
回復 6# Hsieh
Hsieh板主:
利用 Line Input # 滙入檔案,是不是太老式了,以前好像亂碼困擾很多人,從Office 2007 以後好像被改善了,像用 ActiveSheet.QueryTables.Add 滙進來的檔案就没問題,會用 Line input #, 是因為那是中間檔長度不固定,而且不是要直接丟到 Worksheet 去, 所以用 Line input #, 不知道有没其他方法可以滙入檔案(像讀循序檔那樣), 而且可以接受 UTF-8 的? 謝謝!! |
|
|
V98
|
|
|
|
|
- 帖子
- 5923
- 主題
- 13
- 精華
- 1
- 積分
- 5986
- 點名
- 0
- 作業系統
- win10
- 軟體版本
- Office 2010
- 閱讀權限
- 150
- 性別
- 男
- 來自
- 台灣基隆
- 註冊時間
- 2010-5-1
- 最後登錄
- 2022-1-23
        
|
10#
發表於 2011-3-20 07:09
| 只看該作者
Sub Ex()
Application.DisplayAlerts = False
With Workbooks.Open("D:\Test\文件.txt") '開啟 Unicode 格式檔案
.SaveAs Filename:="D:\Test\Test.txt", FileFormat:=xlText
'另存為 ASCII 格式檔案
.Close
End With
Application.DisplayAlerts = True
End Sub |
|
|
|
|
|
|
|
