So-net無料ブログ作成
検索選択

SAS:『カレントディレクトリのパス取得3 マクロvar.2』 [SAS]

%macro Carrent();

 %global dir0 dir1 dir2 dir3;

 FILENAME mydir ".";

 DATA _NULL_;
  call symput('dir0',PATHNAME("mydir"));
 RUN;

 %let dir1=%substr(&dir0,1,%length(&dir0)-%length(%scan(&dir0,-1,"\"))-1);
 %let dir2=%substr(&dir1,1,%length(&dir1)-%length(%scan(&dir1,-1,"\"))-1);
 %let dir3=%substr(&dir2,1,%length(&dir2)-%length(%scan(&dir2,-1,"\"))-1);

%mend Carrent;

%carrent;

%put &dir0;
%put &dir1;
%put &dir2;
%put &dir3;


【解説】

マクロを使った省スペース版。
(繰り返すためには使っていないので、初回のみ実行。)


nice!(0)  コメント(0)  トラックバック(0) 

nice! 0

コメント 0

コメントを書く

お名前:
URL:
コメント:
画像認証:
下の画像に表示されている文字を入力してください。

トラックバック 0

この広告は前回の更新から一定期間経過したブログに表示されています。更新すると自動で解除されます。

×

この広告は1年以上新しい記事の更新がないブログに表示されております。