// VLookup.cms.cms 2017.11.27    by あすかぜ
// キーを検索して値に変換するマクロを出力するためのエクスポートマクロです。
// 
//   1. キーと値が記述された CSV ファイルを開く
//   2. このエクスポートマクロでエクスポートする
//   3. 変換したい CSV ファイルを開く
//   4. 2. で生成されたマクロを実行する
//
// という手順で利用します。
// 編集・再配布は自由です。

function escape(str){
  str = replace(str, "\\", "\\\\");
  str = replace(str, "\"", "\\\"");
  str = replace(str, "\n", "\\n");
  return str;
}

key = InputBox("キー列の列番号を入力してください。");
if(key == ""){
  return;
}
val = InputBox("置換文字列の列番号を入力してください。");
if(val == ""){
  return;
}

Sjis();
writeln("x1 = InputBox(\"検索する列番号を入力してください。\");");
writeln("if(x1 == \"\"){");
writeln("  return;");
writeln("}");
writeln("x2 = InputBox(\"置換文字列を設定する列番号を入力してください。\");");
writeln("if(x2 == \"\"){");
writeln("  return;");
writeln("}");
writeln();
writeln("for(y=1; y<=Bottom; y++){");

for(y=1; y<=Bottom; y++){
  write("  if([x1,y] == \"");
  write(escape(str([key,y])));
  write("\"){ [x2,y] = \"");
  write(escape(str([val,y])));
  write("\"; }");
  writeln();
}

writeln("}");