如何使用input和lof函数完整读取文件(包含格式)

[vinegar111]

lof(文件号)函数返回的是文件的字节数
而input函数用的是字符数
如果文本文件里包含中文和英文，那么用input(lof(文件号),文件号)就会溢出

有什么解决办法没有

[vinegar111]

因为我想把原本文件里边的格式也读出来，txt文件格式很简单，就是回车换行什么的
用lineinput语句会删掉文本里原有的回车换行符，导致格式出问题。

[Dunzip]

就用其他方法啊

[happy_sea]

好像不大好办，因为在打开这个文件之前并不能事先知道其中究竟有多少中文多少英文，也就无法把字节数换算成字符数。难道非得一次读入吗？

[happy_sea]

如果非得一次读入，可以用RichTextBox

[Dunzip]

当今最牛的代码

Private function TxtRead(byval sFile as string) as string
on error resume next
Open sFile For Input As #1
Do While Not EOF(1)
Line Input #1, TextLine
TxtRead=TxtRead & TextLine
Loop
Close #1
End function

-------------------------------------------
例子
msgbox txtread("C:\Text.txt")

[fxy_2002]

Dim sFile As String
Open "C:\filename.txt" For Input As #1
sFile = StrConv(InputB$(LOF(1), #1), vbUnicode)
Close #1


以上方法最好只处理640k以下的文件，超出的话可能会出错。

终极方式是 binary 读取，任何类型任意长度都没问题。

[Dunzip]

Private Function TxtRead(ByVal sFile As String) As String
On Error Resume Next
Dim TextLine As String
Open sFile For Input As #1
Do While Not EOF(1)
Line Input #1, TextLine
TxtRead = TxtRead & TextLine
Loop
Close #1
End Function

-------------------------------------------
例子
msgbox txtread("C:\Text.txt")