MS-Excel への掃きだし (DDE 編 ) SAS データセット名 dum の変数 X1 X2 X3 X4 を TEST.xls の Sheet1 の 4 行 4 列から 4 行 5 列と Sheet2 の 4 行 6 列から 4 行 7 列に掃きだす場合下記

Size: px

Start display at page:

Download "MS-Excel への掃きだし (DDE 編 ) SAS データセット名 dum の変数 X1 X2 X3 X4 を TEST.xls の Sheet1 の 4 行 4 列から 4 行 5 列と Sheet2 の 4 行 6 列から 4 行 7 列に掃きだす場合下記 "

ちえこやまのかみしゃ
7 years ago
Views:

1 目次注 SAS8.2 SAS9.1.3 を想定して作成 MS-Excel への掃きだし (DDE 編 ) MS-Excel への掃きだし (export 編 ) フォーマットを SAS データセットから取り込む出力にヘッダーヘッダーフッターフッターを付ける改行コード除去変数 var1 から改行コード除去変数 var1 から改行コード除去 pdf ファイルへの出力 html ファイルへの出力 word ファイルへの出力 SAS のアウトプットウインドアウトプットウインドへの出力停止 SAS 日付値年月日フォーマット ( 例 format date yymmdds.;) 時間フォーマット日時フォーマット年齢の計算 CSV ファイルへの出力 CSV ファイルの読み込み永久 SAS データセット複数 SAS ファイルを連続してサブミットサブミットするフォルダのお掃除注 SAS8.2 SAS9.1.3 を想定して作成

.....6 word ファイルへの出力......6 SAS のアウトプットウインドアウトプットウインドへの出力停止......6 SAS 日付値......7 年月日フォーマット ( 例 format date yymmdds.;)......7 時間フォーマット......7 日時フォーマット.

2 MS-Excel への掃きだし (DDE 編 ) SAS データセット名 dum の変数 X1 X2 X3 X4 を TEST.xls の Sheet1 の 4 行 4 列から 4 行 5 列と Sheet2 の 4 行 6 列から 4 行 7 列に掃きだす場合下記のように記述する x "'TEST.xls'";*EXCEL 起動 ; filename XXX1 dde "excel [TEST.xls]sheet1!R4C4:R4C5" ; * 出力場所 1; filename XXX2 dde "excel [TEST.xls]sheet2!R4C6:R4C7" ; * 出力場所 2; *データ出力 1; data _null_; set dum; file XXX1 dlm='09'x notab dsd lrecl=1000; put X1 X2; *データ出力 2; data _null_; set dum; file XXX2 dlm='09'x notab dsd lrecl=1000; put X3 X4; 手動で TEST.xls を開いておけば x "'TEST.xls'"; は不用ちなみに x "start excel"; とすると新規 excel を起動する filename のあとの X と file のあとの XXX1 や XXX2 は名前が同じであればなんでもよい '09'X は TAB キーを意味する(WINDOWS) PUT X1 X2; PUT X2 X3; とした場合以下のように改行される列 1 列 2 行 1 X1 X2 行 2 X3 X4 掃き出すデータが多い時には lrecl=1000 を変える 1~1,048,576(1MB) 範囲の指定 R4C2:R7C3 は R1C1 参照形式を使用できる EXCEL のメニューのツールオプション全般タブの R1C1 参照形式を使用するにチェックを入れると EXCEL で R1C1 形式表示されるようになる MS-Excel への掃きだし (export 編 ) ライブラリ sam の SAS データセット dum を c:\test.xls のシート test に掃きだす場合下記のように記述する PROC EXPORT DATA= sam.dum DBMS=Excel FILE='c:\test.xls' REPLACE; SHEET= test ; DBMS=Excel とすると Excel 対応で出力 REPLACE をつけると上書き出力既に c:\test.xls が存在している場合に REPLACE をつけないと掃きだしが取り消される NEWFILE=YES; とすると c:\test.xls を新規作成して出力する NO だと上書き出力 c:\test.xls は閉じておくセルの表示形式が標準のため小数点以下 9 桁までしか表示されないので注意

R4C6:R4C7" ; * 出力場所 2; *データ出力 1; data _null_; set dum; file XXX1 dlm='09'x notab dsd lrecl=1000; put X1 X2; *データ出力 2; data _null_; set dum; file XXX2 dlm='09'x notab dsd lrecl=1000; put X3 X4;

3 MS-Excel Excelからの取り込み(DDE 利用 ) TEST.xls の Sheet1 の 4 行 4 列から 4 行 5 列をライブラリ sam の SAS データセット dum に取り込む場合下記のように記述する filename X dde "excel [TEST.xls]sheet1!R4C4:R4C5"; data sam.dum; infile X notab dlm='09'x dsd missover; informat 変数 X1 (フォーマット名 1) ( 変数 Xn) (フォーマット名 n); input 変数 X1 変数 Xn; length 変数 X1 変数長 1 変数 Xn 変数長 n; missover オプションを指定すると該当ファイルのレコードを読み込む際全ての変数を読み込む前にレコードが終端に来た場合に残りの変数を欠損値として扱う変数長は文字型の場合は $1000 のように$つきで指定する MS-Excel Excelからの取り込み(libname 利用 ) ライブラリ sam に c:\test.xls を SAS データセットとして取り込む Libname sam c:\test.xls ; V9 であれば可能 MS-Excel Excelからの取り込み(Import (Importプロシジャプロシジャ) c:\test.xls の Sheet1 の 4 行 4 列から 10 行 11 列をライブラリ sam の SAS データセット dum に取り込む場合下記のように記述する PROC IMPORT DBMS=EXCEL OUT= sam.dum DATAFILE= "c:\test.xls" REPLACE ; VERSION='2002'; SHEET="sheet1"; GETNAMES=YES; SCANTEXT=YES; USEDATE=YES; SCANTIME=YES; DBSASLABEL=NONE; TEXTSIZE=512; MIXED=YES VERSION='2002'; Excel のバージョンを指定 SHEET="sheet1"; 取り込むシート名を指定代わりに range='sheet1$a12:g23'; とすると sheet1 の 12 行 1 列から 23 行 7 列を取り込む GETNAMES=YES; EXCEL の最初の行の値を SAS データの列の変数名とする SCANTEXT=YES; EXCEL の全行をチェックして SAS データセットの各変数の桁数を決定する USEDATE=YES; 日付時間の列に DATE フォーマットをあてる SCANTIME=YES; 時間の列をチェックし特定する DBSASLABEL=NONE; SAS データセットに自動的にラベルをつけない TEXTSIZE=512; テキストの最大桁数 1 から MIXED=YES 数字とテキストが混合することを考慮する

$込む際全ての変数を読み込む前にレコードが終端に来た場合に残りの変数を欠損値として扱う変数長は文字型の場合は $1000 のように$つきで指定する MS-Excel Excelからの取り込み(libname 利用 ) ライブラリ sam に c:\test.$

4 フォーマットの基本数値型フォーマット作成例 1 PROC FORMAT; value cat_effa 0=' 影響はなかった' 1=' 少し影響した' 2=' 影響した' 3='かなり影響した'; 数値型フォーマット作成例 2 PROC FORMAT; value cat_effb Low-<10= =2 2-30=3 30<-High=4; 文字型フォーマット作成例 PROC FORMAT; value $cat_effc 0 =' 影響はなかった' 1 =' 少し影響した' 2 =' 影響した' 3 ='かなり影響した'; 変数 var にフォーマット cat_effa をあてる例 data Y; set X; format var cat_effa. ; あてたフォーマットを外す例 data Y; set X; format code ; frec プロシジャや by ステートメント class ステートメントはフォーマット後の値を参照するため例えば cat_effb でフォーマットし層別解析を行なうことも可能ただし means プロシジャはフォーマット前の値を参照している

した' 2 =' 影響した' 3 ='かなり影響した'; 変数 var にフォーマット cat_effa をあてる例 data Y; set X; format var cat_effa.

5 フォーマット内容の確認ライブラリ sam のフォーマットを確認 PROC FORMAT LIB=sam FMTLIB; ライブラリ sam のフォーマット一覧をライブラリ sam の SAS データセット fom に出力 PROC FORMAT LIB=sam CNTLOUT=sam.fom; フォーマットを SAS データセットから取り込むライブラリ sam の sas ファイル form の内容をフォーマットとして取り込む PROC FORMAT CNTLIN=sam.form; 最低限 FMTNAME (フォーマット名 ) START ( 値 ) LABEL (フォーマットのラベル) の 3 変数が必須必要に応じて END ( START と併せて数値の範囲を書く)を使う変数 TYPE を C としておくと文字型変数となる CNTLOUT オプションを使って作られたデータセットを見ると設定できる変数が分かる出力にヘッダーヘッダーフッターフッターを付けるアウトプットにヘッダーフッターをつける場合ヘッダーは TITLE フッターは FOOTNOTE が対応している TITLE ヘッダー ; FOOTNOTE フッター ; 複数行にわたって書きたい時は TITLE1 ヘッダー ; TITLE2 ヘッダー2 行目 ; TITLE1 から TITLE10 まで可能 TITLE1 の次に TITLE 3 を書いた場合 1 行空く逆に設定した後で外す場合は以下のようにする TITLE; FOOTNOTE; 仮に TITLE1,2 を設定したとしてもその後 TITLE1 を設定すればそれまでの TITLE1,2 は書き換えられる改行コード除去変数 var1 から改行コード除去 var1 =COMPRESS(var1,'0A'X '0D'X); 改行コードを全角空白に置き換え変数 var1 から改行コード除去 var1=tranwrd(var1,'0a'x," "); var1=tranwrd(var1,'0d'x," ");

form; 最低限 FMTNAME (フォーマット名 ) START ( 値 ) LABEL (フォーマットのラベル) の 3 変数が必須必要に応じて END ( START と併せて数値の範囲を書く)を使う変数 TYPE を C としておくと文字型変数となる CNTLOUT オプションを使って作られたデータセットを見

6 pdf ファイルへの出力 ods pdf file="c:\dummy.pdf"; *pdf ファイルへの出力開始 ; * 挟まれた部分のアウトプットが PDF ファイルに出力される; ods pdf close; *pdf ファイルへの出力終了 ; html ファイルへの出力 ods html file="c:\dummy.html"; *html ファイルへの出力開始 ; * 挟まれた部分のアウトプットが html ファイルに出力される; ods html close; *html ファイルへの出力終了 ; word ファイルへの出力 ods rtf file="c:\dummy.doc"; *word ファイルへの出力開始 ; * 挟まれた部分のアウトプットが word ファイルに出力される; ods rtf close; *word ファイルへの出力終了 ; SAS のアウトプットアウトプットウインドウインドへの出力停止 ods noresults; *アウトプットウインドへの出力停止 ; ods results; *アウトプットウインドへの出力再開 ; プログラムの自動起動 X コマンドが利用可能 OPTIONS NOXWAIT NOXSYNC; X "start excel"; OPTIONS NOXWAIT NOXSYNC; には次のオプションを指定可能 xwait X コマンドで SAS システムから制御した後再度 SAS システムに戻るには exit を入力する noxwait X コマンドで SAS システムから制御した後自動的に再度 SAS システムに戻る xsync X コマンドで開始した処理が終了するまで SAS システムに戻らない noxsync X コマンドで開始した処理の終了を待たずに SAS システムに戻るこれを使う場合は EXCEL を起動してシートにデータを出力した後でファイル名を指定してセーブする必要がある名前をつけて保存し閉じる命令もあるちなみに X "start notepad"; ならメモ帳が起動 X start excel "c:\test.xls" ; なら D:\aa aa\dummy.xls を MS-Excel で開く

doc"; *word ファイルへの出力開始 ; * 挟まれた部分のアウトプットが word ファイルに出力される; ods rtf close; *word ファイルへの出力終了 ; SAS のアウトプットアウトプットウインドウインドへの出力停止 ods noresults; *アウトプットウインドへの出力停止 ; ods results;

7 SAS 日付値 *datetime sas 日時値 date sas 日付値 (date は DATEPART(datetime)と同じ) DATE() 現在の年月日を SAS 日付値で返す DATEPART(datetime) SAS 日時値の日付部分を SAS 日付値で返す DATETIME() 現在の日時を SAS 日時値として返す DAY(date) SAS 日付値 ( 年月日 )から日にちを返す DHMS(date,hour,minute,second) 指定した sas 日時値を返す(date は sas 日付値 ) HMS(hour,minute,second) 指定した sas 時間値を返す HOUR(datetime) SAS 日時値の時間部分を返す INTCK( interval,date1,date2) date1 から date2 の間に interval(year や month や day 等 )が何回変わるかを返す INTNX( interval,date,n) sas 日付値 date の interval(year や month や day 等 )を n だけ増減させた sas 日付値を返す * 注 07/07/07-(month+1) 07/08/01 07/07/07-(year+1) 08/01/01 INTNX(interval,date,n, sameday ) interval(year や month) 以外は変わらない MDY(month,day,year) 指定した sas 日付値を返す MINUTE(datetime) SAS 日時値の分を返す MONTH(date) SAS 日付値の月を返す SECOND(datetime) SAS 日時値の秒を返す TIME() 現在の時間を SAS 時間値で返す TIMEPART(datetime) SAS 日時値の時間部分を SAS 時間値で返す WEEKDAY(date) sas 日付値の曜日を返す * 注 1 が日曜日 ~7 が土曜日を表す downame または jdatewk でフォーマットすると曜日表記になる year(date) SAS 日付値の年を返す年月日フォーマット ( 例 format date yymmdds.;) yymmdds 07/08/16 date 16AUG07 ddmmyy 16/08/07 jdateydw 07 年 8 月 16 日 jdateymd 07 年 8 月 16 日 jnengo 平成 19 年 8 月 16 日 jnengow 平成 19 年 8 月 16 日 mmddyy 08/16/07 nengo H.19/08/16 nldate 2007 年 08 月 16 日 nldatew 07 年 08 月 16 日木 weekdate Thursday, August 16, 2007 weekdatx Thursday, 16 August 2007 worddate August 16, 2007 worddatx 16 August 2007 year 2007 yymmdd (yymmddb10.) (yymmddc10.) 2007:09:13 (yymmddd10.) (yymmddn10.) (yymmddp10.) (yymmdds10.) 2007/09/13 時間フォーマット hhmm 4:50 hour 17 jtimeh 17 時 jtimehm 17 時 10 分 jtimehms 17 時 10 分 02 秒 jtimehw 17 時 jtimemw 17 時 10 分 jtimesw 17 時 10 分 02 秒 nldatmtm 17 時 10 分 02 秒 nltimap 5:10:02 PM nltime 17 時 10 分 02 秒 time 17:10:02 日時フォーマット datetime 16AUG07:17:23:20 jdateyt 07 年 8 月 16 日 17 時 23 分 jdateytw 07 年 8 月 16 日 17 時 23 分 jnengot 平成 19 年 8 月 16 日 17 時 23 分 jnengotw 平成 19 年 8 月 16 日 17 時 23 分 nldatm 2007 年 08 月 16 日 17 時 23 分 19 秒 nldatmap 2007 年 08 月 16 日午後 05 時 23 分 19 秒年齢の計算 birth 誕生日の SAS 日付値 current 年齢を計算する日 ( 同意取得日等 )の sas 日付値 age=intck('year', birth, current); if (month(current) < month(birth)) then age=age - 1; else if (month(current) = month(birth)) and day(current) < day(birth) then age=age - 1;

の時間部分を返す INTCK( interval,date1,date2) date1 から date2 の間に interval(year や month や day 等 )が何回変わるかを返す INTNX( interval,date,n) sas 日付値 date の interval(year や month や day 等 )を n だけ増減

8 CSV ファイルへの出力 WORK ライブラリの SAS データセット data を dummy.csv で出力する PROC EXPORT DATA= work.data OUTFILE= "c:\dummy.csv" DBMS=CSV REPLACE; DATA オプション変換元の SAS データセットをライブラリ参照名.データセット名形式で指定 OUTFILE オプション出力する CSV ファイルのパスとファイル名を指定する DBMS オプション CSV ファイルの場合は CSV を指定する REPLACE オプション出力 CSV ファイルが存在したら置き換えを行なう場合に指定する CSVファイルファイルの読み込み PROC IMPORT OUT= Work.data DATAFILE=" c:\dummy.csv " DBMS=CSV REPLACE; GETNAMES=YES; DATAROW=2; GUESSINGROWS=500; OUT オプション出力する SAS データセットをライブラリ参照名.データセット名形式で指定 DATAFILE オプション入力する CSV ファイルのパスとファイル名を指定する DBMS オプション CSV ファイルの場合は CSV を指定する REPLACE オプション出力データセットが存在したら置き換えを行なう場合に指定する GETNAMES ステートメント先頭行を変数名として使う場合は YES を指定する DATAROW ステートメントデータの開始行を指定する GUESSINGROWS オプション先頭から指定行までのデータを事前に読み込みデータの判定を行なわせるデフォルトは 20 この値を増やすことで 21 行目以降に最大長のデータが存在する場合の文字切れを回避する最大はであるが増やすと読み込みが遅くなる

$IMPORT OUT= Work.data DATAFILE=" c:\dummy.csv " DBMS=CSV REPLACE; GETNAMES=YES; DATAROW=2; GUESSINGROWS=500; OUT オプション出力する SAS データセットをライブラリ参照名.$

9 SASデータセットデータセットの加工 ( 元データ) data ccc; input item X Y; datalines; ; ( 加工例 1) data ccc1;set ccc; t="x"; h=x;it=item;output; t="y"; h=y;it=item;output; drop x y item; ( 出力 ) t h it X 1 1 Y 2 1 X. 2 Y. 2 X 4 3 Y 5 3 ( 加工例 2) proc transpose data=ccc out=ccc2; ( 出力 ) 前の変数名 COL1 COL2 COL3 item X 1. 4 Y 2. 5 ( 加工例 3) data ccc31 ccc32 ccc33;set ccc1; if it=1 then output ccc31; if it=2 then output ccc32; if it=3 then output ccc33; drop it; data ccc3; merge ccc31(rename=(h=t1)) ccc32(rename=(h=t2)) ccc33(rename=(h=t3)); by t; ( 出力 ) t T1 T2 T3 X 1. 4 Y 2. 5

2 X 4 3 Y 5 3 ( 加工例 2) proc transpose data=ccc out=ccc2; ( 出力 ) 前の変数名 COL1 COL2 COL3 item 1 2 3 X 1. 4 Y 2.

10 ( 元データ) data ccc5; input no group id count; datalines; ; ( 加工例 4) proc transpose data=ccc5 out=ccc6(drop=_name_) ; var count; by group; ( 出力 ) group COL1 COL 注出力結果意図しないものになっている加工例 5のように id を指定する ( 加工例 5) proc transpose data=ccc5 out=ccc7(drop=_name_) ; var count; by group; id id; ( 出力 ) group COL1 COL

11 永久 SASデータセット libname test 'c:\test'; data test.dummy; set work. dummy; *1 行目は test という永久 SAS データセットの保存先を指定しているこのフォルダは事前に作成しておく必要有り *2 行目以降で work の SAS データセット dummy を ensyu に保存している proc copy in=work out=dum1; select data1; ライブラリ WORK の SAS データセット data1 をライブラリ DUM1 にコピーする Select ステートメントをつけない場合はライブラリ WORK の SAS データセットをフォーマットファイルごと全部コピーする複数 SASファイルファイルを連続してサブミットサブミットする FILENAME saspgm 'c:\test'; %INCLUDE saspgm( "test1.sas" "test2.sas" "test3.sas") / SOURCE2; * 一行目は sas ファイルがあるフォルダを指定している ; フォルダのお掃除ライブラリ sam のデータを全削除 proc datasets lib=sam kill ; データセットのコンペア作成したデータセットの比較 (DUM1 に基準 DUM2 にもう一人が作成したものがあるとする) libname DUM1 'c:\dataset\da1'; libname DUM2 'c:\dataset\da2'; OPTIONS FMTSEARCH=(DUM1 DUM2) NOFMTERR; %macro comp(files); proc compare data=dum1.&files comp=dum2.&files allobs; %mend; %comp(dummy1 ); %comp(dummy2 ); %comp(dummy3 ); フォーマットをはずしてコンペアしたほうが差異が見やすいかもフォーマットの一致はformatプロシジャでフォーマット一覧をSASデータセットに出力したもの同士をコンペアするのも1つの方法

$SAS データセット data1 をライブラリ DUM1 にコピーする Select ステートメントをつけない場合はライブラリ WORK の SAS データセットをフォーマットファイルごと全部コピーする複数 SASファイルファイルを連続してサブミットサブミットする FILENAME saspgm 'c:\test'; %INCLUDE saspgm( "test1.$

Microsoft Word - FrontMatter.doc

Microsoft Word - FrontMatter.doc SAS 認定プロフェッショナルのための Base Programming for SAS 9 完全ガイド ii このマニュアルの正確な書誌情報は以下のとおりです SAS 認定プロフェッショナルのための Base Programming for SAS 9 完全ガイド Copyright 2009, SAS Institute Inc., Cary, NC, USA

MS-Excel への 掃 きだし (DDE 編 ) SAS データセット 名 dum の 変 数 X1 X2 X3 X4 を TEST.xls の Sheet1 の 4 行 4 列 か ら 4 行 5 列 と Sheet2 の 4 行 6 列 から 4 行 7 列 に 掃 きだす 場 合 下 記

MS-Excel への掃きだし (DDE 編 ) SAS データセット名 dum の変数 X1 X2 X3 X4 を TEST.xls の Sheet1 の 4 行 4 列から 4 行 5 列と Sheet2 の 4 行 6 列から 4 行 7 列に掃きだす場合下記