如何加快读取文本文件的速度

Question

to:bestluo
把你的“算法”贴出来看看

Answer 1

不知你的算法是什么。
我第一次做文件转换程序时，是一个字符一个字符的读，太慢了。后来我发觉先一次性把文件内容读到一个byte数组中再进行处理速度提高了近百倍。
不知是不是也象我那时的菜。

Answer 2

to：cool222(天下第一笨）
   可法否写下原代码。

Answer 3

dim xByte() as byte
dim fLen as long
open filename for binary as 1
flen=lof(1)'取文件长度是这个函数吧，我记不清了
redim xByte(flen) as byte这样filename文件的内容就读入xByte数组中了，flen为长度，可以用了。
你要做文件分割程序吗，分段保存为文件就行了。呵呵，开个玩笑~~~~~~

Answer 4

不好意思，漏了关键的一点,最后一行后加上：
input #1,xByte

Answer 5

我对不起你啊，好久没用VB啦，记错了。应该是：
Get #1,,xByte

Answer 6

to:cool222
  好象有点问题

Answer 7

如果按照cool222(天下第一笨)的方式：dim BytContent() as byte
dim lngFileLen as long
dim intFileNum as integer
intFileNum = FreeFile
open "c:\abc.bin" for binary as intFileNum
lngFileLen=Lof(intFileNum)
Redim BytContent(0 to lngFileLen-1) as byte
Get #intFileNum,,BytContent
Close #intFileNumDeubg.Print StrConv(BytContent,VbUnicode)

Answer 8

有问题!!？不会吧，我用着正常嘛。不过我的dim 定义部分是窗体级的，而不是在过程中。