我一向用現成的ocx轉
但我有見人用vb6的內定功能(程式碼如下)
試了一下，只見一堆中文加???
我想了解一下問題所在,thanks
=======================================
Dim iReadNumber As Integer
Dim iWriteNumber As Integer
Dim mem() As Byte
Dim strFileName As String
Dim lLength As Long
iReadNumber = FreeFile
strFileName = TextFileName.Text
lLength = FileLen(strFileName)
ReDim mem(lLength) As Byte
Open strFileName For Binary As #iReadNumber
Get #iReadNumber,, mem
Close #iReadNumber
'將mem陣列轉換為Big5碼所對應的Unicode碼
mem = StrConv(mem， vbUnicode， ＆H404)
'再將Unicode轉換為GBK碼
mem = StrConv(mem， vbFromUnicode， ＆H804)
iWriteNumber = FreeFile
Kill strFileName
Open strFileName For Binary As #iWriteNumber
Put #iWriteNumber,, mem
Close #iWriteNumber