文字列の中の特定の文字を変換していく処理

【before】
faheeawh # faehuawh # fhaafh # fae # llkj # dfsa
1,4,3,6,2
【after】
faheeawh 1 faehuawh 4 fhaafh 3 fae 6 llkj 2 dfsa

上記のように文字列の中の文字#にリストの数字を当てはめていきたいです。
Excelやバッチファイルあたりを使ってできないかと考えてみましたが、
うまいやり方が見つかりませんでした。何か良い方法はありますでしょうか。

No.1 回答者： Ogre7077 回答日時： 2016/12/27 10:49

// シャープを数字に置換するスクリプト.js

var s = "faheeawh # faehuawh # fhaafh # fae # llkj # dfsa";
var m = [1,4,3,6,2];
var i = 0;
var a = s.replace(/#/g, function(){return m[i++]});
WScript.Echo(a);

以上をテキストファイルとして保存
拡張子は .js
通常の Windows なら、ダブルクリックで実行可能

No.2 回答者： WindFaller 回答日時： 2016/12/28 01:05

VBAもしく、VBSで可

'#に数字を割り当てる

Dim sTxt
Dim reTxt
Dim arRe
Dim t, i
Dim buf
buf =""
sTxt = "faheeawh # faehuawh # fhaafh # fae # llkj # dfsa"
reTxt = "1,4,3,6,2"
arRe = Split(reTxt, ",")
t = Len(sTxt) - Len(Replace(sTxt, "#", ""))
buf =sTxt
For i = 1 To t
buf = Replace(buf, "#", arRe(i - 1),1,1)
Next
MsgBox buf