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