【ExcelVBA】IPCOMのコンフィグから利用機能を自動で一覧化する。

Sub IPCOMのコンフィグから機能を確認()
保存ファイル名 = "IPCOMの機能一覧化_" & Format(Date, "yyyymmdd") & Format(Time(), "hhmmss") & ".txt"
'Excelのフォルダに存在するテキストファイルリストを取得
検索パス = ThisWorkbook.Path
ファイル名リスト = ファイルリスト取得(検索パス)

For i = LBound(ファイル名リスト) To UBound(ファイル名リスト)
ファイルパス = ファイルパス取得(検索パス, ファイル名リスト(i))
'コンフィグファイルを配列へ格納
コンフィグ = ファイルの内容を配列へ格納(ファイルパス)
'機能抽出
結果 = 機能抽出(ファイル名リスト(i), コンフィグ)
'Excelのフォルダにテキスト出力
Call テキストファイルに出力(検索パス, 保存ファイル名, Join(結果, vbCrLf))
Next
'テキストファイルを起動
End Sub
Function ファイルリスト取得(検索フォルダ)
Dim FSO, ファイルオブジェクト As Object
Set FSO = CreateObject("Scripting.FileSystemObject")

Dim ファイル一覧() As Variant, ループカウンタ As Long
ループカウンタ = 0
For Each ファイルオブジェクト In FSO.GetFolder(検索フォルダ).Files
If ファイルオブジェクト.Name Like "*.txt*" Or _
ファイルオブジェクト.Name Like "*.log*" Then
ReDim Preserve ファイル一覧(ループカウンタ)
ファイル一覧(ループカウンタ) = ファイルオブジェクト.Name
ループカウンタ = ループカウンタ + 1
End If
Next
ファイルリスト取得 = ファイル一覧
End Function
Function ファイルパス取得(パス, ファイル名)
Set FSO = CreateObject("Scripting.FileSystemObject")

For Each ファイル In FSO.GetFolder(パス).Files
If ファイル.Name Like ファイル名 Then
ファイルパス取得 = ファイル.Path
End If
Next
End Function
Function ファイルの内容を配列へ格納(ファイルパス)
Set FSO = CreateObject("Scripting.FileSystemObject")
Set テキストファイル = FSO.OpenTextFile(ファイルパス)
ファイルの内容を配列へ格納 = Split(テキストファイル.ReadAll, vbLf)
テキストファイル.Close
End Function
Function テキストファイルに出力(フォルダパス, ファイル名, データ)
Set FSO = CreateObject("Scripting.FileSystemObject")
出力フルパス = FSO.BuildPath(フォルダパス, ファイル名)
Set テキストファイル = FSO.OpenTextFile(出力フルパス, 8, True)

テキストファイル.Write (データ)
テキストファイル.Close
End Function
Function 機能抽出(ファイル名, コンフィグ)
機能名 = Array("", _
"リンクアグリゲーション", _
"VLAN　　　　　　　　　", _
"送信先NAT　　　　　　　", _
"送信元NAT　　　　　　　", _
"アクセス制御ルール　　", _
"アクセス制御マップ　　", _
"アノマリ型IPS　　　　", _
"シグネチャ型IPS　　　", _
"帯域制御　　　　　　　", _
"サーバ負荷分散　　　　", _
"SSLアクセラレーター　", _
"リンク負荷分散　　　　", _
"装置冗長化　　　　　　", _
"LAN二重化　　　　　　")
検索文字 = Array("", _
"channel-group", _
"vlan-link", _
"dst-na", _
"src-na", _
"rule access", _
"access-map", _
"rule protect", _
"ips", _
"qos-flow", _
"slb-rule", _
"rule ssl-accel server", _
"wan-link", _
"cluster id", _
"bnd-link")
Dim 結果(16)
結果(0) = "「" & ファイル名 & "」の機能"
For i = 1 To UBound(結果) - 2
結果(i) = IIf(UBound(Filter(コンフィグ, 検索文字(i))) > 0, 機能名(i) & "：有", 機能名(i) & "：無")
Next
機能抽出 = 結果
End Function