テキストファイルマスクツール

本番環境での性能検証でNGになってしまった。
どの処理でどれほどの処理時間がかかっているかを把握するためにログレベルを変更して、ログを取得した。
対応方法を自社の担当者と検討するために、本番環境からこのログを持ち帰りたいが、本番メールアドレスがログに記録されている。
数千件のメールアドレスを手動でマスクするのは現実的ではないので、ツールを作ることにした。
（どちらかというと、ツールというよりはサンプルです。）

ツールを実行するためのバッチファイルです。
WScript.Echoを使っているので、ダブルクリックで実行すると大量のメッセージボックスが表示されてしまう。
これを回避するためラッパーであり、実際の処理は次のvbsファイルです。

@echo offrem rem mask_text.bat: テキストファイルの内容をマスクするrem cscript.exe /nologo mask_text.vbspause

@echo off

rem

rem mask_text.bat: テキストファイルの内容をマスクする

rem

cscript.exe /nologo mask_text.vbs

pause

入力ファイルをオープンし、読取行のメールアドレスを置換して出力ファイルに出力します。
何らかの変更があった場合は、変更前／後を標準出力に出力します。

'' mask_text.vbs: テキストファイルの内容をマスクする'' 実行方法: cscript.exe /nologo mask_text.vbs'Option Explicit'入出力ファイル =========='マスク対象のファイルを定義してください。Const INPUT_FILE="test.txt"'マスクした内容を出力するファイルを定義してください。Const OUTPUT_FILE="test_masked.txt"'処理用定数 ==========Const ForReading = 1'マスク用の正規表現の定義 =========='メールアドレス的なワード(一般的なメールアドレスチェック用のものではない)Dim oReMailAddrSet oReMailAddr = CreateRegExp( _ "\b[A-Z0-9._%+-]+@[A-Z0-9.-]+[A-Z]{2,4}\b", True, True)'必要であれば以降に追加(下記は追加例)'Dim oReTest'Set oReTest = CreateRegExp("regexp", True, True)WScript.echo "start"'入力ファイルの内容を置換して出力 ==========Dim oFSO, oInStream, oOutStreamSet oFSO = CreateObject("Scripting.FileSystemObject")Set oInStream = oFSO.OpenTextFile(INPUT_FILE, ForReading)Set oOutStream = oFSO.CreateTextFile(OUTPUT_FILE, True)Dim sLine, sRepLineDo Until oInStream.AtEndOfStream '行読取 sLine = oInStream.ReadLine '置換 sRepLine = oReMailAddr.Replace(sLine, "***@***") 'sRepLine = oReTest.Replace(sLine, "***") 'デバッグ If sLine <> sRepLine Then  WScript.Echo "< " & sLine  WScript.Echo "> " & sRepLine  WScript.Echo "---" End If '出力 oOutStream.WriteLine sRepLineLoopoInStream.CloseoOutStream.CloseWScript.echo "end"'マスク用の正規表現オブジェクトを生成する。Function CreateRegExp(sExp, bGlobal, bIgnoreCase) Set CreateRegExp = CreateObject("VBScript.RegExp") With CreateRegExp  .Pattern = sExp  .Global = bGlobal  .IgnoreCase = bIgnoreCase End WithEnd Function

' mask_text.vbs: テキストファイルの内容をマスクする

' 実行方法: cscript.exe /nologo mask_text.vbs

Option Explicit

'入出力ファイル ==========

'マスク対象のファイルを定義してください。

Const INPUT_FILE="test.txt"

'マスクした内容を出力するファイルを定義してください。

Const OUTPUT_FILE="test_masked.txt"

'処理用定数 ==========

Const ForReading = 1

'マスク用の正規表現の定義 ==========

'メールアドレス的なワード(一般的なメールアドレスチェック用のものではない)

Dim oReMailAddr

Set oReMailAddr = CreateRegExp( _

"\b[A-Z0-9._%+-]+@[A-Z0-9.-]+[A-Z]{2,4}\b", True, True)

'必要であれば以降に追加(下記は追加例)

'Dim oReTest

'Set oReTest = CreateRegExp("regexp", True, True)

WScript.echo "start"

'入力ファイルの内容を置換して出力 ==========

Dim oFSO, oInStream, oOutStream

Set oFSO = CreateObject("Scripting.FileSystemObject")

Set oInStream = oFSO.OpenTextFile(INPUT_FILE, ForReading)

Set oOutStream = oFSO.CreateTextFile(OUTPUT_FILE, True)

Dim sLine, sRepLine

Do Until oInStream.AtEndOfStream

'行読取

sLine = oInStream.ReadLine

'置換

sRepLine = oReMailAddr.Replace(sLine, "***@***")

'sRepLine = oReTest.Replace(sLine, "***")

'デバッグ

If sLine <> sRepLine Then

WScript.Echo "< " & sLine

WScript.Echo "> " & sRepLine

WScript.Echo "---"

End If

'出力

oOutStream.WriteLine sRepLine

Loop

oInStream.Close

oOutStream.Close

WScript.echo "end"

'マスク用の正規表現オブジェクトを生成する。

Function CreateRegExp(sExp, bGlobal, bIgnoreCase)

Set CreateRegExp = CreateObject("VBScript.RegExp")

With CreateRegExp

.Pattern = sExp

.Global = bGlobal

.IgnoreCase = bIgnoreCase

End With

End Function

ダウンロードは下記から。

GitHub

tools/90_汎用/mask_text at master · nextdoorwith/tools

tools. Contribute to nextdoorwith/tools development by creat…