| ■46937 / ) |
CSVファイル入出力時の速度向上方法について |
□投稿者/ みち (1回)-(2010/02/14(Sun) 23:30:53)
|
分類:[VB6 以前]
初めまして。
VB6について質問させていただきます。
開発環境：WinXP、MicroSoft Visual Basic 6.0
あるCSVファイル（Base)から、最初のヘッダ行を数行スキップし
以降の行(10万〜20万前後）を新しいCSVファイル（Tmp）に保存する処理を作っています。
（スキップする行数はCSVファイル毎に可変）
そこで以下のように作成したのですが、
もう少し処理速度を早く出来ないかと要望が降りてきてしまいどうしたらいいか悩んでいます。
どのようにしたらさらに処理速度を上げることができるでしょうか。
Sub CSVファイル作成(Byval スキップ行数 As Integer)
Dim BaseFso As New FileSystemObject
Dim TmpFso As New FileSystemObject
Dim BaseTs As TextStream
Dim TmpTs As TextStream
Dim i As Integer
Dim strSkipRow As string
'CSVファイルセット
Set BaseTs = BaseFso.OpenTextFile([BaseCSVファイルのパス]）
Set TmpTs = TmpFso.CreateTextFile([TmpCSVファイルのパス]）
'BaseCSVファイル行スキップ
for i = 1 To スキップ行数
BaseTs.SkipLine
next
'TmpCSVファイルへ、BaseCSVのデータ書き込み
Do Until(BaseTs.AtEndofLine)
TmpTs.Write(BaseTs.ReadLine & vbNewLine)
Loop
End Sub
|
|
