Skip to content

Merge_text

Summary

指定されたディレクトリ内のテキストファイルを結合するためのサブプロシージャです。

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
Sub Merge_text()

Dim path As String, strPath As String
Dim FileName As String
Dim fso As Object
Dim objfile As Object
    Set fso = CreateObject("Scripting.FileSystemObject")
Dim buf As String

'FileNameを与える
    FileName = "MergeText"

'path取得
    path = ThisWorkbook.path

'read_txt
        For Each objfile In fso.getFolder(path).Files
            strPath = path & "\" & objfile.Name
            If GetExtension(objfile.Name) = "txt" Then
                Open strPath For Input As #1
                Do Until EOF(1)
                     Line Input #1, buf
                     Call Logging(buf, , FileName, "txt")
                 Loop
                 Close #1
            Else
            End If
        Next
End Sub

説明

このサブプロシージャは、指定されたディレクトリ内のテキストファイルを結合するために使用されます。 サブプロシージャでは、指定されたディレクトリのパスを取得し、そのディレクトリ内のすべてのファイルに対して処理を行います。

各ファイルについて、拡張子が "txt" の場合はテキストファイルとして扱われ、ファイルを開き、1行ずつ読み込んで変数 buf に格納します。そして、Logging サブプロシージャを呼び出して、buf の内容を指定されたファイル名と拡張子 "txt" のログファイルに記録します。

これにより、指定されたディレクトリ内のすべてのテキストファイルの内容が結合され、ログファイルに記録されます。

引数

  • なし

戻り値

  • なし

Examples

1
2
' サブプロシージャ merge_text を呼び出してテキストファイルの結合を実行する
Call merge_text()