下面这个工程是我在学文件读写的时候写的。。。有两个问题要请教。。
下面的这个是保存的代码
－－－－－－－－－－－－－－－－－－－－－－－－－－
Private Sub save_Click()
Dim i As Integer, inputdata As String
CommonDialog1.Filter = "文本文件（*.txt）|*.txt"
CommonDialog1.ShowSave
Open CommonDialog1.FileName For Output As #1
Print #1, Text1.Text
Close #1
End Sub
－－－－－－－－－－－－－－－－－－－－－－－－－－－
下面这个是打开读入文件的代码：
－－－－－－－－－－－－－－－－－－－－－－－－－－－
Private Sub open_Click()
Dim inputdata As String
Text1.Text = ""
CommonDialog1.ShowOpen
Open CommonDialog1.FileName For Input As #1
Do While Not EOF(1)
Line Input #1, inputdata
Text1.Text = Text1.Text & inputdata & vbCrLf
Loop
End Sub
－－－－－－－－－－－－－－－－－－－－－－－－－－－
问题1：
当我自己在文本框里面输入字符时，然后保存，可以正常保存，但是当我先打开读入一个文本文件，把里面的内容读入text1.text。。。。然后再保存就会出错。。。请问这个是怎么回事？不明白。。。
问题2：
我调用lof函数来测试文件的字节数，假如文本框中没有内容，为空，按书上说lof(1)则返回○，但是我调用则返回2
假如文本模框中有n个西文字符，则返回n+2个，也就是说始终多两字节。。。为什么？
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
下面是工程文件。
b2f0Rnvh.rar[此贴子已经被作者于2006-12-22 21:15:59编辑过]
