VB6以二进制读取文本文件,回车、换行哪去了?
VB6以二进制读取文件,赋值给文本框,但回车与换行符没有了,所有的字符都在1行上,这个怎么解决呢?只有5分了,等你来拿!...
VB6以二进制读取文件,赋值给文本框,但回车与换行符没有了,所有的字符都在1行上,这个怎么解决呢?
只有5分了,等你来拿! 展开
只有5分了,等你来拿! 展开
1个回答
展开全部
已测试通过 未发现丢失换行符 我的环境 xp vb6
注意你的Text1属性设置 Text1.MultiLine = True
Private Sub Command1_Click()
Dim a() As Byte
Dim al As Long
Dim b As String
'2进制方式读取文本文件
Open App.Path & "\text.txt" For Binary As #1
al = LOF(1)
ReDim a(al)
Get #1, , a
Close #1
MsgBox a
'把2进制信息转换成字符串
b = StrConv(a, vbUnicode)
'输出到Text1
Text1.Text = b
End Sub
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询