// 行抽出 by あすかぜ 2004/09/28

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

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

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

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

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

R = Right;
B = Bottom;

for(y = B; y > 0; y--){
  find = FALSE;
  for(x = L; x <= R && !find; x++) {
    if(pos([x,y],key) > 0) {
      find = TRUE;
    }
  }
  if(!find){
    if(conf_deleteRows){ DeleteRow(y); }
    else{ SetRowHeight(y,0); }
  }
}

if(conf_executeSaveAs){ SaveAs(); }