| |
>現在は妥協策として、一度データの保存を行い、
>
>.*ほげ.*ほげ.*ほげ.*
>
>でgrep検索を行い、検索結果に対して
>
>^[^:]+:
>
>の置換を行い、データを整形しています。
現状では、おっしゃる通りこういった方法でするしかないかもしれません。
grepでもマクロは作ることはできて、
$s = searchbuffer;
#f = searchoption;
localgrep ".*ほげ.*ほげ.*ほげ",regular,nohilight;
replaceallfast "^[^:]+: ","",regular;
setsearch $s, #f;
というような感じで同じような処理を一括でできると思います。
ちなみに
>抽出したい特定文字列の出現回数が1回だけなら、
>
>^[^ほげ]*[\r\n]+
という方法の"[^ほげ]"は、「"ほ"または"げ"ではない１文字」という意味にな
ってしまうので、期待する結果にはならないかもしれません。
１回だけの場合も３回の方法と同じほうがいいかもしれないです。
input関数を使うとマクロで検索文字列を入力するようにもできます。
$s = searchbuffer;
#f = searchoption;
$a=input("検索文字列",$s);
localgrep $a,regular,nohilight;
replaceallfast "^[^:]+: ","",regular;
setsearch $s, #f;
|
|