掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
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
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2020 Takeshi Okamoto All Rights Reserved.