vba

Sub 検索()

    Dim ファイルパス As String

    Dim 検索ワード As String

    Dim テキスト行 As String

    Dim 行番号 As Long

    

    ' ファイルパスと検索ワードを設定

    ファイルパス = "C:\Path\To\Your\File.txt" ' ファイルの実際のパスに置き換えてください

    検索ワード = "安全のご注意"

    

    ' ファイルを開く

    Open ファイルパス For Input As #1

    

    ' ファイルを行ごとに読み込み、検索ワードが含まれているか確認

    行番号 = 0

    Do While Not EOF(1)

        Line Input #1, テキスト行

        行番号 = 行番号 + 1

        If InStr(1, テキスト行, 検索ワード) > 0 Then

            MsgBox 検索ワード & " が見つかりました。行番号: " & 行番号

            Exit Do

        End If

    Loop

    

    ' ファイルを閉じる

    Close #1

End Sub