tagCANDY CGI VBレスキュー(花ちゃん)の Visual Basic 6.0用 掲示板
VBレスキュー(花ちゃん)の Visual Basic 6.0用 掲示板
[ツリー表示へ]　 [ワード検索]　 [Home]

タイトル ： 容量が増えると動作速度が遅くなる
投稿日： 2009/07/31(Fri) 08:33
投稿者： ごれ
今下記のプログラムにしていて、CSVファイルの容量が増えると処理速度がかなり遅くなって(2分くらい）しまいます。処理速度を速くするいい方法はないでしょうか？
よろしくお願いします。

Public Sub make_csv_Data(Number As Integer)
    Dim fName As String
    Dim fData As String
    Dim data1 As String
    Dim data2 As String
    Dim data3 As String
    Dim write_data As Variant

    On Error GoTo Error_Handler     'エラー処理
      
    fName = ".\\data\\data_" & CStr(Number) & ".csv"
    fData = Number  
    Open fName For Input Access Read As fData
    write_data = "Point：" & memDate(Number).sName(Number) & vbCrLf
    write_data = write_data & "Title1,Title3,Title2" & vbCrLf
    Do Until EOF(fData)
        Lock fData
        　　Input #fData, data1, data2, data3
        Unlock fData
        write_data = write_data & data1 & "," & data3 & "," & data2 & vbCrLf
    Loop

Error_Handler:
    Close fData
    
    fName = ".\\data" & CStr(Number) & "_download" & ".csv"
    fData = FreeFile
    Open fName For Output Access Write As fData
    Print #fData, write_data
    Close fData
    
End Sub
- 関連一覧ツリー （ をクリックするとツリー全体を一括表示します）

古いスレッドにレスはつけられません。