7,762
社区成员
发帖
与我相关
我的任务
分享请教:有个几十M的文本文件,每天有几十万次写入,怎么样才能快点(文件大小影响写入速度吗?)??另外,怎么样才能快速将一个几十K的文本文件,快
我写了一个小软件,里面要对一个文本文件不断写入,每天的写入次数,以几十万次计算,那个文本文件越来越大,不知会不会速度越来越慢????怎么样才能加快写入速度呢???
在那个软件中,还经常(每天也有几十万次)要对一个文本文件(这个文本文件的内容实时更新)的内容进行处理,该文本文件大小几十K,请问怎么样快速将这个文本文件的内容赋值给一个string变量呢????
请教请教!!!!
在那个软件中,还经常(每天也有几十万次)要对一个文本文件(这个文本文件的内容实时更新)的内容进行处理,该文本文件大小几十K,请问怎么样快速将这个文本文件的内容赋值给一个string变量呢????
请教请教!!!!
...全文
请发表友善的回复…
发表回复
northwolves 2004-09-05
- 打赏
- 举报
1 建议操作数据库
2
Private Sub Command1_Click()
Dim mystr As String
gettext "c:\123.txt", mystr
End Sub
Sub gettext(ByVal filename As String, Optional ByRef result As String)
Dim mybyte() As Byte
Open filename For Binary As #1
ReDim mybyte(LOF(1) - 1)
Get #1, , mybyte
Close #1
result = StrConv(mybyte, vbUnicode)
Erase mybyte
End Sub
2
Private Sub Command1_Click()
Dim mystr As String
gettext "c:\123.txt", mystr
End Sub
Sub gettext(ByVal filename As String, Optional ByRef result As String)
Dim mybyte() As Byte
Open filename For Binary As #1
ReDim mybyte(LOF(1) - 1)
Get #1, , mybyte
Close #1
result = StrConv(mybyte, vbUnicode)
Erase mybyte
End Sub
