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

ベストアンサー

• oil9992012/02/07 17:42:35

  満足100pt

  以下のマクロをお試しください。

  Option Explicit
  
  '1行処理
  Function convRow(buf As String, ln As Long, path As String, fname As String) As String
      Dim items() As Variant
      Dim sour As String
      Dim i As Integer
  
      'ダブルクォーテーション削除
      Set re = CreateObject("VBScript.RegExp")
      pat = """"
      With re
          .Pattern = pat
          .IgnoreCase = True
          .Global = True
      End With
      buf = re.Replace(buf, "")
      Set re = Nothing
  
      convRow = buf
  End Function
  
  '1ファイル処理
  Sub convFile(path As String, fname As String)
      Dim ln As Long
      Dim buf As String
      Dim fname1 As String, fname2 As String
      fname1 = path & fname
      fname2 = path & fname & ".$$$"
      Open fname1 For Input As #1
      Open fname2 For Output As #2
      ln = 1
      Do Until EOF(1)
          Line Input #1, buf
          buf = convRow(buf, ln, path, fname)
          If (buf <> "") Then Print #2, buf
          ln = ln + 1
      Loop
      Close #1
      Close #2
      Kill fname1                 'オリジナル・ファイル削除
      Name fname2 As fname1
  End Sub
  
  'ファイル探索＋処理実行
  Sub hogeConv(path As String, ext As String)
      Dim fcol As Object, re As Object
      Dim flist As Variant, remat As Variant
      Dim pat As String
      'サブディレクトリ探索
      Set fcol = CreateObject("Scripting.FileSystemObject").GetFolder(path).SubFolders
      For Each flist In fcol
          Call hogeConv(path & flist.Name & "/", ext)
      Next flist
      Set fcol = Nothing
      '処理対象ファイル探索＋処理実行
      Set fcol = CreateObject("Scripting.FileSystemObject").GetFolder(path).Files
      Set re = CreateObject("VBScript.RegExp")
      pat = "\." & ext & "$"
      With re
          .Pattern = pat
          .IgnoreCase = True
          .Global = True
          For Each flist In fcol
              Set remat = .Execute(flist.Name)
              If remat.Count > 0 Then Call convFile(path, flist.Name)
          Next flist
      End With
      Set re = Nothing
      Set fcol = Nothing
  End Sub
  
  Sub main()
      Call hogeConv("C:/test/", "csv")
  End Sub
  

  スター

  • 

    5件のコメントを見る

  • inosisi 2012/02/07 18:06:21

    コンパーラーエラー
    変数が定義されていません
    のメッセージがでます原因は何でしょう？

    スター

  • inosisi 2012/02/07 18:26:51

    aaaa"bbbb"
    
    のようなダブルコーテーションです
    置換で処理しますととれますがどのファイルにあるかわかりません
    のでそのデータを含むファイル名を表記できるとよいのですが

    スター

  • inosisi 2012/02/07 18:44:06

    すみません
    aaa""bbbb""
    
    のダブルコーテーションです

    スター

  • inosisi 2012/02/07 18:57:20

    ありがとうございました
    前回のマクロで""を入れてやってみましたら上手くいきました

    スター

  • oil999 2012/02/07 19:00:12

    お手数をおかけしました。

    スター

その他の回答

この質問へのコメント

• きゃづみぃ2012/02/08 01:47:20
  これぐらい 秀丸で置換でいいじゃん。
  
  

質問の情報

登録日時

2012-02-07 17:29:19

終了日時

2012-02-07 18:57:34

回答条件

1人3回まで

この質問のカテゴリ

• コンピュータ
• インターネット

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

人気の質問

• この英文どうなってますか？ 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版

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