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

名前

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

本文 Sub foo(ByRef fn As Integer) '( ´Д｀)＜もっといいのがあるが、ちょと言いたかったので。 Const FindStr1 As String = "6columsyori" Const FindStr2 As String = "7columsyori" Dim lineSt As String Dim status As Long status = 0 Do While Not EOF(fn) Line Input #fn, lineSt Select Case status Case 0 'find FindStr1 If InStr(1, lineSt, FindStr1) Then status = 1 Debug.Print FindStr1 & "が見つかりました" End If Case 1 'find FindStr2 If InStr(1, lineSt, FindStr1) Then Debug.Print FindStr2 & "が見つかりました" Exit Do End If End Select Loop End Sub ※汚くてスマソ＆終レスに投稿スマソ…(orz