[あすかぜ・ねっと]あすかぜ・ねっと自作ソフトCassava > サポート掲示板

Cassava Editor サポート掲示板

スレッド一覧に戻る返信

[724] 検索した文字列が含まれている行のみを残し、それ以外の行を全て削除

ごろう [2023/01/13 13:14:24]

検索した文字列が含まれている行のみを残し、それ以外の行を全て削除可能なマクロは可能でしょうか?

Re: [724] 検索した文字列が含まれている行のみを残し、それ以外の行を全て削除

あすかぜ [2023/01/13 22:37:46]

次のようなマクロで、カーソル列に文字列が含まれない行を削除できます。

s = InputBox("検索する文字列を入力してください。");
for (y = Bottom; y >= 1; y--) {
  if (pos([x,y], s) == 0) {
    DeleteRow(y);
  }
}

カーソル列だけでなくすべての列を検索する必要がある場合は次のようにしてください。

s = InputBox("検索する文字列を入力してください。");
for (y = Bottom; y >= 1; y--) {
  found = false;
  for (x = 1; x <= Right; x++) {
    if (pos([x,y], s) > 0) {
      found = true;
      break;
    }
  }
  if (!found) {
    DeleteRow(y);
  }
}

よろしくお願いします。

Re: [724] 検索した文字列が含まれている行のみを残し、それ以外の行を全て削除

ごろう [2023/01/21 15:09:37]

ありがとうございます。
しっかり動作いたしました。感謝です。

スレッド一覧に戻る返信