关于读取数据的问题

Question

Open "f:\1.txt" For Append As #1
Print #1, "12345678"
Close #1我用上面的语句将数据写入最后面,我想读它出来,我试过用LOC函数读它出来,可以就可以,但速度太慢了,哪位高手有更好的办法呢?事先声明,1.txt是比较大的.谢谢!

Answer 1

文本文件较大时，查找是很慢的，建议换成数据库。
简单的例子：
vb带的那个API Text Viewer，用记事本存储时，访问速度很慢，但如果转成access数据库后，速度大幅度提高。

Answer 2

'用二进制的形式打开文件，然后直接去到文件最末尾读取数据，我用的是Win32API.txt大小653K，不慢
Private Declare Function lstrlen Lib "kernel32" Alias "lstrlenA" (ByVal lpString As String) As LongPrivate Sub Command1_Click()
Dim str1 As String, str1Len As Integer
Dim strLen As Single
str1Len = LenB(StrConv("123从人45678", vbFromUnicode))
strLen = FileLen("f:\1.txt")
Open "f:\1.txt" For Binary As #1 '以二进制的方式读取文件
    str1 = Space(str1Len)
    Get #1, strLen - str1Len - 1, str1 '内容读入到临时字符串中
Close #1
Print str1
End Sub
'============================
Private Sub Form_Click()
Open "f:\1.txt" For Append As #1
Print #1, "1234从人5678"
Close #1
End Sub