CSVエディタ「Cassava」で複数の指定文字列を含む行以外を削除するマクロ

以前、CSVデータに特化したエディタを紹介しました。

軽量でシンプルなCSVエディタ「Cassava」

データ解析のために、一部のデータを削除することがあります。

削除に便利なマクロはエディタ作者様のサイトのサポート掲示板で公開されています。

[243] 特定の行の削除 - Cassava Editor サポート掲示板 - あすかぜ・ねっと

いずれも、さくっとレコードを削除するには便利なマクロですが、「複数の指定文字列を含む行以外を削除」するマクロが見当たりませんでした。

なので、VB開発経験はまったくありませんが、上記の3つを参考にマクロを自作してみました。

複数の指定文字列を含む行以外を削除

values = InputBoxMultiLine("抽出するキーワードを改行区切りで入力してください");
if (values == "") {
  return;
}

for (y = Bottom; y >= 1; y--) {
  remaining = values;
  delflg = True;
  while (remaining != "") {
    p = pos(remaining, "\n");
    if (p == 0) {
      value = remaining;
      remaining = "";
    } else {
      value = left(remaining, p - 1);
      remaining = mid(remaining, p + 1);
    }
    if (pos([x,y], value) > 0) {
      delflg = False;
      remaining = "";
    }
  }
  if (delflg) {
    DeleteRow(y);
  }
}

それなりに動くと思いますが、ちょっと自信はありません…

指定文字列を含む行を削除

指定文字列を含む行以外を削除

複数の指定文字列を含む行を削除

複数の指定文字列を含む行以外を削除