请问，如何将任何文件转换成一个字符串？就像用记事本打开的样子？谢谢！ - 编程论坛

xiangyue05102016-11-25 16:54

任何文件，你确定？
VB 的Stream 对象可以将任何文件作为二进制或文本数据读入，但是有不少文件会变成乱码的。意义何在？
不清楚其他版主有什么高招

风吹过b2016-11-25 20:33

程序代码：

Public Function 打开文件(cs As String) As String
'快速打开文件
Dim fj As Long
If Dir(cs) <> "" Then           '文件存在
    fj = FreeFile()             '产生下一文件号
    Open cs For Binary As #fj       '打开文件
        '直接读整个文件的所有的内容,按字节读,并转换为 Unicode 的VB默认字符串类型
        打开文件 = StrConv(InputB$(LOF(fj), #fj), vbUnicode)
    Close #fj
Else
    MsgBox cs & vbCrLf & "文件不存在！", vbCritical, "打开文件"       '提示文件不存在
End If
End Function

这种的结果？？？猜猜猜