ファイル名を変えず、特定の数字を先頭に持っていく

質問

タイトルがなにやらおかしな感じですみません。

ファイル名に【お客様番号_5500_名取】だったり
【名取　お客様番号　5500】というように名前がついているのですが
元々のファイル名を変えずに4桁(この場合5500)の数字を
ファイル名の先頭に持って行くことはできますか？

例）【お客様番号_5500_名取】→【5500お客様番号_5500_名取】
【名取　お客様番号　5500】→【5500名取　お客様番号　5500】

「保管フォルダ」と名付けたフォルダにファイルは無数に入っています。
この4桁の数字は0001～9000番まであります。
名前の付け方を統一してもらえないため手動変更していたのですが
ファイル数が多いためどうにか自動化できないかと思った次第です
できればExcelで操作できると嬉しいです

こういうのは基本できないよと言うことでしたら
これまで通り手動変更していきますので大丈夫です
どうぞよろしくお願い致します

回答No.1

M_Sato · ベストアンサー

質問です。
【お客様番号_5500_名取】→【5500お客様番号_5500_名取】
これはファイル名を変えるということですが、
【5500お客様番号_5500_名取】を【お客様番号_5500_名取】というファイル名だと、OSに認識させたいということなのでしょうか？
それは無理でしょう。ファイル名を変えてもいいということでしたら、以下の手順でファイル名を変えることはできます。

１）dirコマンドでファイル名を抜き出し（〔例〕dir > list.txt）、編集して対象となるファイル名だけが並んだテキストファイルを作る。
（この編集は自動化できますが、それにはフォルダの中身と対象ファイル名の詳細が分からないと説明できません）
２）そのテキストファイルをsed.exeというストリームエディタで処理して、４桁の数字を抜き出し、元ファイル名と数字＋元ファイル名を併記し、行の先頭にren を挿入したリストにする。
〔例〕　ren お客様番号_5500_名取.xxx 5500お客様番号_5500_名取.xxx
３）そのテキストファイルの拡張子を.batに変え、クリックする。

これでそのフォルダ内の全ファイルが、頭に４桁の数字をつけたファイル名にリネームされます。
sed.exeで実行するスクリプトは以下の１行だけです。
s/^\(..*\)\([0-9][0-9][0-9][0-9]\)\(..*\)$/ren \1\2\3 \2\1\2\3/
この手順はある程度自動化できますが、何の作業をしているのかということをちゃんと認識し、bat実行前にファイルの中身をよくチェックすることを怠ると、ファイル名がめちゃくちゃになって、取返しがつかなくなることがあります。

お礼

ありがとうございます
教えていただいた手順でやってみます

回答No.2

imogasi

（１）まずVBSCRIPTの本やWEB記事で、ファイル名の変更の箇所を読んで学ぶこと。
＞FileオブジェクトのNameプロパティを使用します。
https://step-learn.com/article/vbscript/059-file-nama-change.htmlなど。
（２）フォルダー内の１つ１つのファイルのファイル名はFor　Eachで捉えられる。
この記事もWEB上に沢山ある。
（３）お客様番号_5500_名取の5500だけを抜き出すのが、VBAでのロジックを使うことになるが、Instr関数で「_」の２つを前後２つの位置を見つけ、その間の文字（今回は数字）を抜出し（例Mid関数）、元のファイル名の文字列の先頭部に結合する。
ーー
本件似た質問がよくあり、平凡で、この中でどこが難しいのかな。コードを書く気がしない程度のこと。

お礼

すみません。その平凡なことでさえよくわからないので
質問をさせていただいた次第です
ご回答いただきありがとうございました