PUT输出就正常？

Question

Public Sub DecryptFile(SourceFile As String, DestFile As String, Optional Key As String)



   Dim jiemi As string

  Dim Filenr As Integer



  Dim ByteArray() As Byte



  Filenr = FreeFile



  Open SourceFile For Binary As #Filenr



  ReDim ByteArray(0 To LOF(Filenr) - 1)



  Get #Filenr, , ByteArray()



  Close #Filenr



  







  Call DecryptByte(ByteArray(), Key)







 



  If (FileExist(DestFile)) Then Kill DestFile







  Filenr = FreeFile



  Open DestFile For Binary As #Filenr          ‘关键部分



  jiemi() = ByteArray()                    



  jiemi =ByteArray()            如果是BYTE型，输出内容后，前面有一部分乱码，后面有几句是正常的
                   
  msgbox jiemi     '一堆乱码出现



  Put #Filenr, , ByteArray()                    ’用PUT写到一个新文件，打开看内容就 完全正常



  Close #Filenr







End Sub

Answer 1

Form1.Text1应该是String类型的。
先转换成String类型再看吧。

---

I am Rayman Zhai

Answer 2

这个是VB6

Answer 3

有中文吗？

 

StrConv(ByteArray, vbUnicode, &H804)

---

http://feiyun0112.cnblogs.com/