请问，如何将任何文件转换成一个字符串？就像用记事本打开的样子？谢谢！
请问，如何将任何文件转换成一个字符串？就像用记事本打开的样子？谢谢！
任何文件，你确定？
VB 的Stream 对象可以将任何文件作为二进制或文本数据读入，但是有不少文件会变成乱码的。意义何在？
不清楚其他版主有什么高招
2016-11-25 16:47
2016-11-25 16:54
程序代码：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
2016-11-25 20:33