1103081 ランダム
 ホーム | 日記 | プロフィール 【フォローする】 【ログイン】

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

PR

プロフィール


kabatan&まき

カレンダー

フリーページ

カテゴリ

コメント新着

kabatan&まき@ 背番号のないエース0829さんへ 杏酒は多分売ってるのではないですかね?…
背番号のないエース0829@ Re:杏の収穫~(06/04) 上記の画像を見ていると、久しぶりにあん…
ハンサムクン3714@ Re:あんみつさんは動く~(02/08) この度は私の描いた四コマ漫画「隊長と寺…
kabatan&まき@ ハンサムクン3714さんへ 訪問有難うございます。 先ほどそちら様の…
ハンサムクン3714@ Re:あんみつさんは動く~(02/08) はじめまして。勝手に訪問させて頂いて、…

お気に入りブログ

巫女服アイロン New! てら丼さん

夜に駆ける・香水 / … New! lavender80さん

うんな中学校校歌 … 背番号のないエース0829さん

バカネコ日記 海獣トドさん
愛猫についてのブログ reiko_mama621さん

ニューストピックス

バックナンバー

キーワードサーチ

▼キーワード検索

2016.05.14
XML
カテゴリ:購入品&修理

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

半角全角などが混在する状態の例

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

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

  まずはこちら ⇒ 「PSSTPSST(プスプス)

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

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

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

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

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

いくつか方法が考えられますが、イメージ的には「文章添削・校正」が一番近いように思います。
なので、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) の設定で
 [ファイル]-[オプション] の「セキュリティセンター」を開いて
 [セキュリティセンターの設定]で
 「すべてのマクロを有効にする」にしてから
プスプスの作業ウインドウの内容を貼り付けて、
ツールバーの [表示]-[マクロ]を開けて「置換」を実行すると、
ファイル名が平準化された名前になります。

置換完了後

この内容を、プスプスで一括リネームすれば完了。
おかげで作業効率がグンと向上しました~!。ご参考に。






最終更新日  2016.09.24 21:09:15
コメント(0) | コメントを書く
[購入品&修理] カテゴリの最新記事



Copyright (c) 1997-2020 Rakuten, Inc. All Rights Reserved.