我读入文本文件中的数据,字母,数字,及其他符号都正常,只有中文为乱码。
Dim DataChunk As String
Open Fname$ For Binary As #1
Do While Not EOF(1)
' update the Pass Variable
passes& = passes& + 1
' get some of the file data
DataChunk$ = Input(MAX_CHUNK, #1)
FrmServer.Text1.Text = FrmServer.Text1.Text + DataChunk
一次取MAX_CHUNK,在Text里面显示中文为乱码。为何?
Dim DataChunk As String
Open Fname$ For Binary As #1
Do While Not EOF(1)
' update the Pass Variable
passes& = passes& + 1
' get some of the file data
DataChunk$ = Input(MAX_CHUNK, #1)
FrmServer.Text1.Text = FrmServer.Text1.Text + DataChunk
一次取MAX_CHUNK,在Text里面显示中文为乱码。为何?
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货