投稿日	： 2004/07/14(Wed) 22:52
投稿者	： 花ちゃん
Ｅメール	：
ＵＲＬ	：
タイトル	： Re: バイナリ形式の扱い方について

ファイルを丸ごと読み込みSplit 関数で切り出してみては。
AddDat = Split(myString, vbCrLf)

因みに、私のノートパソコン　WindowsXP VB6.0 celeron 2.40GHz  496MB RAM の
環境で約5MBの掲示板のログファイル(テキスト形式)
での切り出し（表示部分は除く）　
　0.95 秒でした。

Option Explicit
Private Declare Function timeGetTime Lib "winmm.dll" () As Long

Private Sub Command1_Click()
    Dim lngStartTime As Long
    lngStartTime = timeGetTime
    Dim myString As String
    Dim Fso   As New FileSystemObject
    Dim FsoTS As TextStream
    Set FsoTS = Fso.OpenTextFile("c:\test.log")
    myString = FsoTS.ReadAll
    FsoTS.Close
    Set FsoTS = Nothing
    Dim AddDat   As Variant
    AddDat = Split(myString, vbCrLf)

    Dim i As Long
    Dim LineRead As String
    For i = LBound(AddDat) To UBound(AddDat)
        LineRead = AddDat(i)
    Next i
    Debug.Print (timeGetTime - lngStartTime) / 1000
End Sub

★ - バイナリ形式の扱い方について - けんいち 07/14-22:04No.9659
• Re: バイナリ形式の扱い方について - 花ちゃん 07/14-22:52 No.9660
  • Re^2: バイナリ形式の扱い方について - けんいち 07/15-15:45 No.9662