buri0624回答ポイント 500ptウォッチ

VBAによるテキストファイルの処理についての質問です。

特定のフォルダ内にある全てのテキストファイルにおいて、特定のキーワードから
始まる複数行のデータを抽出するマクロをご教示ください。

例）
2015/3/10 23:30:05
～
==== DATA =====
--- DATA1 ---- ----DATA2---- ----DATA3---- ----DATA4----
2015/1/1 00:00 0.00 100 200 300 0.0 0% 0%
2015/1/1 00:10 0.00 100 200 300 0.0 0% 0%
～
2015/1/1 23:50 0.00 100 200 300 0.0 0% 0%

==== DATA2 ====
～


上記データが含まれるテキストファイル（改行LF）が複数あり、全てのテキスト
ファイルから==== DATA ===== から ==== DATA2 ===== までの間のデータ
だけを抽出し、1つのファイルに保存するマクロを作りたいのですが、
作り方をご教示ください。

キーワードからキーワードまででも良いですし、キーワードから決まった行数分
データを抽出するでもかまいません。

元ファイルがLF改行なので、その点も考慮頂きヒントを頂けますと幸いです。


以上、宜しくお願いします。

• はてなアカウントでログイン
• 無料ユーザー登録

ベストアンサー

• a-kuma32015/03/11 01:51:19

  満足500pt

  こんな感じになると思います。

  Sub extract_textdata()
  
      Open "D:\tmp\input.txt" For Input As #1
          Line Input #1, buf
      Close #1
      
      buf2 = Split(buf, vbLf)
      found = False
  
      Dim data() As String
      n = 0
      For Each Line In buf2
          If Line = "==== DATA2 ====" Then    ' 終了判定
              Exit For
          End If
          If found Then
              ReDim Preserve data(n)
              data(n) = Line
              n = n + 1
          End If
          If Line = "==== DATA =====" Then    ' 開始判定
              found = True
          End If
      Next
  
      Open "D:\tmp\output.txt" For Output As #1
      For Each Line In data
          Print #1, Line
      Next
      Close #1
  
  End Sub
  

  入力のデータを一気に読み込んでから Split 関数で分割しているので、元データが大きいと動かない可能性はあります。
  とりあえず、1、2 万行くらいのデータであれば処理できるみたいですけれど。
  
  
  
  

  ---

  追記です。
  
  全てのテキストファイル、というのを、すっかり失念してました　＞＜。
  こんな感じになります。

  Sub extract_textdata()
  
      Const targetFolder = "D:\tmp"               ' 対象のテキストファイル群があるフォルダ名
      Const outputFile = "D:\output\output.txt"   ' 出力ファイル名
      
      Set fs = CreateObject("Scripting.FileSystemObject")
      Set folder = fs.GetFolder(targetFolder)
  
      Open outputFile For Output As #2
  
      For Each f In folder.Files
          fname = folder.Path & "\" & f.Name
          Open fname For Input As #1
              Line Input #1, buf
          Close #1
          
          buf2 = Split(buf, vbLf)
          found = False
  
          Dim data() As String
          n = 0
          For Each Line In buf2
              If Line = "==== DATA2 ====" Then
                  Exit For
              End If
              If found Then
                  ReDim Preserve data(n)
                  data(n) = Line
                  n = n + 1
              End If
              If Line = "==== DATA =====" Then
                  found = True
              End If
          Next
  
          For Each Line In data
              Print #2, Line
          Next
  
      Next
  
      Close #2
  
      Set fs = Nothing
  
  End Sub
  

  
  

  後、追加の質問で恐縮ですが、指定したキーワードから上下で何行まで
  とかを指定することは可能でしょうか？
  もしくは、開始キーワードからの行数指定での抽出方法があれば
  ご教示下さい。

  「上下」ってのは、ちょっと面倒なのですが、開始キーワードから行数指定であれば簡単です。
  内側のループの脱出条件を、以下のように書き換えます。

          For Each Line In buf2
  '           If Line = "==== DATA2 ====" Then
  '               Exit For
  '           End If
              If n = 2 Then       ' 開始キーワードから 2行だけ出力する
                  Exit For
              End If
  

  スター

  • 

    1件のコメントを見る

  • buri0624 2015/03/14 11:09:07

    上下指定が出来ればベストですが、別で質問させて頂いた不要な行の削除
    処理とあわせれば何とかできそうです。
    
    素早い回答本当に助かります。どうも有難うございました。

    スター

その他の回答

この質問へのコメント

• buri06242015/03/12 18:36:47
  情報有難うございます。
  
  複数ファイルの読み込み処理をクリアできれば使えそうです。
  上記マクロに、条件としていた"特定のフォルダ内にある全てのテキスト
  ファイル"を読み込んで処理が出来ればイメージに近いことが出来そうです。
  
  後、追加の質問で恐縮ですが、指定したキーワードから上下で何行まで
  とかを指定することは可能でしょうか？
  もしくは、開始キーワードからの行数指定での抽出方法があれば
  ご教示下さい。宜しくお願いします。
  
• a-kuma32015/03/12 22:43:31
  すみません、全てのテキストファイルから、というのをすっかり失念してました　＞＜。
  
  対象フォルダの全ファイルを対象にしたマクロを、回答に追記しました。

質問の情報

登録日時

2015-03-10 23:39:44

終了日時

2015-03-14 11:09:21

回答条件

1人1回まで

この質問のカテゴリ

• コンピュータ

この質問に含まれるキーワード

人気の質問

• この英文どうなってますか？ The boy seemed to be waiting for his mother to come.（その少年は母親が来…匿名質問者312日前
• 不定詞の形容詞的用法らしいんですけど、副詞的用法と書いたら✖️ですか？ I want to buy a book to read …匿名質問者112日前
• 日向陽葵という○V女優が好きなのですが似ている○V女優はいますか匿名質問者1日前
• 共通テストで使われるプログラミング言語は共通テスト特有の言語と聞いたのですが、受験勉強で身につけたプ…匿名質問者211日前
• 内定してほしいポケモンはいますか？匿名質問者1日前

メニュー

• 質問一覧
• カテゴリ一覧
• 無料ユーザー登録
• 人力検索はてなトップ

PC版

• お問い合わせ
• ヘルプ
• お知らせ
• はてなトップ