| |
>ファイル名の拡張子を取得変更する
//* これで答えになっていますか ???
//*-------------------------------------------------------------------72
//*changename "ABC_abc.TxT";
call pp_get_kaku1;
message $$return;
//if( leftstr($$return,1) == "." ){
//message $$return;
//}
call pp_re_filename2 ".txt", ".doc";
message $$return;
call pp_re_filename2 ".txt", ".DOC";
message $$return;
call pp_re_basename2 ".txt", ".doc";
message $$return;
call pp_re_basename2 ".txt", ".DOC";
message $$return;
//*changename $$return;
call pp_re_basename2 ".xtx", ".Doc";
if( leftstr($$return,1) == "." ){
message $$return + " - が見つかりません !";
} else {
message $$return;
//*changename $$return;
}
endmacro;
pp_re_filename2:
$$rename = $$2;$$n = filename;
//ありえない文字 [@] を使用する。delimiter, デリミター、区切記号
##i = strstr($$n+"@",$$1+"@");
if( strlen($$n) != 0 && ##1 >= 0 ){
$$rename = leftstr(filename2,##i) + $$2;
}
return $$rename;
pp_re_basename2:
$$rename = $$2;$$n = basename;
##i = strstr($$n+"@",$$1+"@");
if( strlen($$n) != 0 && ##1 >= 0 ){
$$rename = leftstr(basename2,##i) + $$2;
}
return $$rename;
pp_get_kaku1:
//"aaa.bbb.ccc" というファイル名には対応していません !
//"x:\ddd.eee\" というディレクトリ名には対応していません !
//*$$nm = filename;
$$nm = basename;
$$get_kaku = "";
##i = strstr($$nm,".");
if( ##i >= 0 ){
//*$$get_kaku = midstr($$nm,##i+1,999);// kkk
$$get_kaku = midstr($$nm,##i,999);// .kkk
} else {
$$get_kaku = "";
}
return $$get_kaku;
|
|