我写了一个小软件,里面要对一个文本文件不断写入,每天的写入次数,以几十万次计算,那个文本文件越来越大,不知会不会速度越来越慢????怎么样才能加快写入速度呢???在那个软件中,还经常(每天也有几十万次)要对一个文本文件(这个文本文件的内容实时更新)的内容进行处理,该文本文件大小几十K,请问怎么样快速将这个文本文件的内容赋值给一个string变量呢????
请教请教!!!!

解决方案 »

  1.   

    1   建议操作数据库2   
    Private Sub Command1_Click()
    Dim mystr As String
    gettext "c:\123.txt", mystr
    End SubSub 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