Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


10139 / 76738 ←次へ | 前へ→

【72151】Re:テキストファイルの検索
発言  kanabun  - 12/6/8(金) 17:12 -

引用なし
パスワード
   以下は、
Dir関数でファイルを取得、ひとつづつOpenして
一行づつ読み込み、検索文字列が含まれていたら、
それをセルに出力するサンプルです。
Sub Try_Find2()
  ActiveSheet.UsedRange.ClearContents
  SearchText "D:\(Data)", "*.txt", "あいう", ActiveSheet
  
End Sub

'A列にファイル名、B列に 一致行を出力
Private Sub SearchText(LookIn$, Filename$, What$, _
            ws As Worksheet)
  Dim f As String
  Dim i As Long, Lno As Long
  Dim io As Integer, flg As Boolean
  Dim ss As String
  
  If Right$(LookIn, 1) <> "\" Then LookIn = LookIn & "\"
  f = Dir$(LookIn & Filename)
  io = FreeFile()
  Do While Len(f) > 0
    Open LookIn & f For Input As io
    flg = True
    Lno = 0
    Do Until EOF(io)
      Lno = Lno + 1
      Line Input #io, ss
      If InStr(1, ss, What, vbTextCompare) > 0 Then
        If flg Then
          i = i + 1
          ws.Cells(i, 1).Value = f
          flg = False
        End If
        i = i + 1
        ws.Cells(i, 2).Value = "[" & Lno & "] " & ss
      End If
    Loop
    Close io
    
    f = Dir$()
  Loop
End Sub
0 hits

【72148】テキストファイルの検索 ぬうゆう 12/6/8(金) 12:04 質問
【72149】Re:テキストファイルの検索 kanabun 12/6/8(金) 13:36 発言
【72150】Re:テキストファイルの検索 kanabun 12/6/8(金) 13:59 発言
【72151】Re:テキストファイルの検索 kanabun 12/6/8(金) 17:12 発言

10139 / 76738 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free