| |
きいろいまふらあさん今日は、ひろです。macro を書かない人には全く無
駄な投稿です。
> CurrentDateのように書式を指定して元のメールから
> 日付や時刻を取り出す関数が欲しいところです。
確かに有れば楽ですが、秀丸の macro は前から「出来る事は、存在する関数を使
ってね。」という stance ですよね(^^)。
ちなみに私が公開した macro では次のような subroutine を使っています。
call r_Date;
$r_Date = $$return;
:
:
:
endmacro;
arab_day_int://日付を数値として取得
$$r_Date = dllfuncstr("RootHeader","Date");
##search_point = strstr($$r_Date,", ");
$$r_Date = midstr($$r_Date,##search_point+2,256);
##search_point = strstr($$r_Date," ");
return val(leftstr($$r_Date,##search_point));
arab_day:
call arab_day_int;
return str(##return);
r_Date:
$$r_Date = dllfuncstr("RootHeader","Date");
##search_point = strstr($$r_Date,", ");
$$r_Date = midstr($$r_Date,##search_point+2,256);
##search_point = strstr($$r_Date," ");
return midstr($$r_Date,##search_point+1,256);
r_month:
$$return = leftstr($r_Date,3);
if($$return == "Jan")return "1";
else if($$return == "Feb")return "2";
else if($$return == "Mar")return "3";
else if($$return == "May")return "4";
else if($$return == "Apr")return "5";
else if($$return == "Jun")return "6";
else if($$return == "Jul")return "7";
else if($$return == "Aug")return "8";
else if($$return == "Sep")return "9";
else if($$return == "Oct")return "10";
else if($$return == "Nov")return "11";
else if($$return == "Dec")return "12";
else return "";
r_hour:
return str(val(midstr($r_Date,9,2)));
r_min:
return str(val(midstr($r_Date,12,2)));
r_second:
return str(val(midstr($r_Date,15,2)));
|
|