费列罗与德芙相比:vb 的一个大容量文件的读取问题

来源：百度文库编辑：高校问答时间：2024/04/28 07:31:14

'目的是从txtpath.Tex指向的文件中提取出i长度的字符串，这个字符串是xxxxxx.dsp的一个路径(dsp确定，但是xxxxx不确定)
Private Sub Command1_Click()
Dim i As Integer
i = 1
Dim ss() As Byte
Dim h As String '要查找的后缀名
h = Space$(3)
Open txtpath.Text For Binary As #1
ReDim ss(LOF(1)) As Byte
While h <> "dsp"
Get #1, i, ss(i)
Get #1, i + 1, ss(i + 1)
Get #1, i + 2, ss(i + 2)
h = Chr$(ss(i)) & Chr$(ss(i + 1)) & Chr$(ss(i + 2))
i = i + 1
Debug.Print h
Wend
'取得了出现dsp字符的起始位置为i-1
i = i+1 '得到包含xxxx.dsp的路径的字符串的长度
ReDim ss(i) As Byte
Dim X As Integer
For X = 1 To i
Get #1, X, ss(X)
Next X
Close #1
'这往后小弟就写不下去了，目的是从txtpath.Tex指向的文件中提取出i长度的字符串进行处理
End Sub
关键是这类文件很大，至少50M,而出现dsp字符的位置在第1或者第2行
主要的目的就是通过处理得到xxx.dsp的xxx是什么内容

5月15日 18:24 文件夹里的东西太多、太乱了，碎片肯定也太多了，导致打开文件夹时要读取很长时间，而遇到碎片就打不开了，建议：
运行系统自带的磁盘扫描程序，检查一下磁盘错误再去打开，看能否解决你的问题。

vb 的一个大容量文件的读取问题 VB读取TXT文件的一个问题在VB 怎么读取大的TXT文件？ vb 读取文本文件的问题 VB中LISTBOX读取文本的一个小问题 vb读取txt文件的内容大容量文件的保存！如何把一个大容量的文件压缩为几个小容量的文件以便上传? 文件的容量问题 vb 文本文件的读取问题(急)