VBA用idl変換

gistfile1.js

var FilePath = 'test2.txtへのパス';
var s = new ActiveXObject("Scripting.FileSystemObject").OpenTextFile(FilePath).ReadAll();
//WScript.Echo(s);

// carriage returnの削除
s = s.replace(/\r/g,'');
// WScript.Echo(s);

// 引数の属性
s = s.replace(/\[.*\]/g,'[in]');

// 引数の型と名前
s = s.replace(/\].*\b(\*+)?(\w+)(,?)/g,'] long $2$3');

// 結果
WScript.Echo(s);