猫と喰いものと創作同人の日々

複数の人間が利用するファイルサーバーの管理をしています。
ファイル/フォルダ名は、使い方に何となくルールはあるものの、
それぞれ独自の変換で保存してしまうので、
サーバー内は半角全角などが混在する状態です。

これを手作業でルールにのっとって修正するのは結構困難で、
かなりの時間を要します。
こんなフォルダがいくつもあるのですから・・・もう・・（×_×）

そんなシステム管理者に、御用達のツールを紹介します。

　　まずはこちら ⇒ 「PSSTPSST（プスプス）」

複数のファイル/フォルダを一括リネームするためのソフトです。
ワープロソフト感覚でファイルやフォルダ名を変更することができる上、
頻繁に利用する文字なら履歴も残るので非常に便利です。

簡単な使い方の図説です。

非常に便利ですが、置換は１パターンずつしか実行できません。
「複数条件で置換」する方法があれば、かなり効率が上がるのですが・・・。

例えば、
　　１）りんご→林檎
　　２）みかん→蜜柑
　　３）ぶどう→葡萄
のように３つの条件を入力することで、一度に置換する。

これができれば、
ファイルサーバーのファイル名の平準化が一気に進みます。

いくつか方法が考えられますが、イメージ的には「文章添削・校正」が一番近いように思います。
なので、MS Word のマクロを使用する方法が適切のようです。

　　こちらを参照 ⇒「複数の置換を一括で行うマクロ」

これを応用して、まず「英数字だけ全角→半角変換」を実行してから
置換したい文字列のCSVファイルにしたがって置換を実行するれば、
ほぼ思い通りにワンクリックでファイル名を平準化することができました。
マクロの構文はこちら・・・

---------------------
'まず「英数字だけ全角→半角変換」する構文
Private Sub myconv(ByVal strPattern As String, ByVal lngCase As Long)
Selection.Find.ClearFormatting
With Selection.Find
.Text = strPattern
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.MatchFuzzy = False
.MatchWildcards = True
End With
Do While Selection.Find.Execute
Selection.Text = StrConv(Selection.Text, lngCase)
Selection.Collapse wdCollapseEnd
Loop
End Sub

'置換表を元に置換する構文
Sub 置換()

Dim strPattern As String
strPattern = "[" & Chr(&H824F) & "-" & Chr(&H829A) & "]{1,}"
myconv strPattern, vbNarrow


Open "（フルパスでファイルを指定）置換表.csv" For Input As #1
While Not EOF(1)
Line Input #1, a
s = Split(a, ",")

Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = s(0)
On Error Resume Next
.Replacement.Text = s(1)
On Error Resume Next
.Forward = True
.Wrap = wdFindContinue

End With
Selection.Find.Execute Replace:=wdReplaceAll

Wend
Close #1

End Sub
---------------------

（使い方）
ワード(MS word) の設定で
　[ファイル]-[オプション] の「セキュリティセンター」を開いて
　[セキュリティセンターの設定]で
　「すべてのマクロを有効にする」にしてから
プスプスの作業ウインドウの内容を貼り付けて、
ツールバーの [表示]-[マクロ]を開けて「置換」を実行すると、
ファイル名が平準化された名前になります。