// 行抽出2 by あすかぜ 2004/10/07

// 不要な行を削除する場合は TRUE、非表示にする場合は FALSE
conf_deleteRows = TRUE;

// 実行の後に保存を行う場合は TRUE、行わない場合は FALSE
conf_executeSaveAs = TRUE;

/*
 * 非表示にした場合、「フィルタ」マクロ付属の「フィルタ解除.cms」で
 * 表示状態を元に戻すことができます。
 * 「フィルタ」マクロは
 * http://www.asukaze.net/soft/cassava/macro/index.html
 * あたりで「filter.zip」を探してください。
 */

// ここから先は内容を理解した上で変更してください。

key = InputBox(x + "列目から抽出する語句を入力下さい。");
if(key == ""){ return; }

B = Bottom;

for(y = B; y > 0; y--){
  if(pos([x,y], key) == 0) {
    if(conf_deleteRows){ DeleteRow(y); }
    else{ SetRowHeight(y,0); }
  }
}

if(conf_executeSaveAs){ SaveAs(); }