| |
totomuさん，こんにちは。
》テキスト文書からmailアドレスを抽出したいのですが、
》簡単なスクリプトありませんでしょうか。
次のようなマクロで試してみてください。
アドレスに使用される文字はもしかしたら他にもあるかも知れませんので，適
宜追加してください。
//----------------------------------------------------------//
// E-Mail アドレスの抽出
#searchmode = searchmode;
call Change_search;
disabledraw;
gofiletop;
while( 1 ) {
searchdown "[A-z0-9._-]+@[A-z0-9._-]+", regular;
if( !result ) break;
$email[#i] = gettext( seltopx, seltopy, selendx, selendy );
moveto selendx, selendy;
#i = #i + 1;
}
call Reset_search;
//必要な処理をする
menuarray $email, #i;
newfile;
while( #k < #i ) {
insert $email[#k] + "\n";
#k = #k + 1;
}
endmacro;
Change_search: // 検索状態の保存
if ( !#searchmode ) { // 検索状態を範囲選択に変更
openreg "CURRENTUSER", "Software\\Hidemaruo\\Hidemaru\\Env";
writeregnum "SelectFound", 1;
envchanged;
}
#searchoption = searchoption;
$searchbuffer = searchbuffer;
return;
Reset_search: //検索状態を元に戻す
if ( !#searchmode ) {
writeregnum "SelectFound", 0;
envchanged;
closereg;
}
setsearch $searchbuffer, #searchoption;
return;
//----------------------------------------------------------//
では， (^^)/~
山紫水明
|
|