Seek関数を使いこなすには (ID:119414)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

検索する文字列
A1 = "6columsyori"
A2 = "7columsyori"
が、ファイルの中に何個所もあり、呼び出す毎に、見つかった位置から
次のA1・A2を検索するのなら、こんな感じかも。
まぁ、Seek関数を使いこなしてはいないが(^^;

でも、質問者は解決したと思っているのでもう見てないかな？

Private Sub FSEEK()
    Dim fso As Object
    Dim ts As Object
    Dim lngSkipLine As Long
    Dim strFileName As String
    Dim A(1 To 2) As String
    Dim iCounter As Integer
    Dim strBuffer As String
    Dim dse As String
    
    Static FPos As Long
    
    Const ForReading = 1
    
    Set fso = CreateObject("Scripting.FileSystemObject")
    
    strFileName = "F:\CKJフェイシング表\mast.csv"
    Set ts = fso.OpenTextFile(strFileName, ForReading)
    
    '前回見つかった位置から検索する
    For lngSkipLine = 1 To FPos
        ts.SkipLine
    Next lngSkipLine
    
    iCounter = 1
    A(1) = "6columsyori"
    A(2) = "7columsyori"
    Do Until ts.AtEndOfStream
        strBuffer = ts.ReadLine
        
        dse = Split(strBuffer, ",")(1)
        
        If StrComp(dse, A(iCounter)) = 0 Then
            MsgBox ts.Line & "行目" & "で見つかりました！" & A(iCounter) & "行目の処理"
        
            '見つかった位置を記憶
            FPos = ts.Line
            
            '処理の入れ替え
            iCounter = iCounter + 1
            If iCounter > UBound(A) Then
                Exit Do
            End If
        End If
    Loop
    
    ts.Close
    
    Set ts = Nothing
    Set fso = Nothing
End Sub

←解決時は質問者本人がここをチェックしてください。

戻る