SAS忘備録: 関数: PRXCHANGE

2015年10月19日月曜日

最初の1バイト目だけ大文字に変換する

たとえば「abc def」→「Abc def」のような変換です。

前提条件
・最初の1バイト目はアルファベットである事。
・対象変数は半角の英数記号のみである事。

サンプルデータ

data DT1;
length VAL $20.;
VAL="proc print"; output;
VAL="data step"; output;
run;

VAL
proc print
data step

先頭の1バイト目だけ大文字にする

data DT2;

length VAL2 VAL3 $20.;

set DT1;

* ① SUBSTR関数を使う ;
VAL2 = upcase(first(VAL)) || substr(VAL,2);

* ② 正規表現を使う ;
VAL3 = prxchange('s/(^[a-z])/\U$1/', 1, VAL);
run;

VAL2	VAL3	VAL
Proc print	Proc print	proc print
Data step	Data step	data step

① SUBSTR関数を使う方法
FIRST関数は1バイト目を抜き出す関数
つまり1バイト目を抜き出して大文字にしたものと、2バイト目以降の文字を結合しています。

② 正規表現を使う方法
PRXCHANGE関数で正規表現による置換をしてます。
「prxchange('s/(^[a-z])/\U$1/', 1, VAL)」

「(^[a-z])」は先頭の文字がa～zのいずれかである場合、、という意味。
「\U$1」は上記を大文字に変換しています。

2014年8月20日水曜日

VERIFY（KVERIFY）関数の紹介

あまり日の目をみることがない「VERIFY関数」にスポットライトを当ててみたいと思います。

VERIFY関数

VERIFY( 変数, "検索文字" )

変数に対して、検索文字を含まない最初の位置（何バイト目か）を取得する。
日本語などのマルチバイト文字には未対応です。

例

*** サンプルデータ ;
data DT1;
length V1 $10.;
V1 = "000A"; output;

V1 = "00AB"; output;

V1 = "ABCD"; output;

V1 = "A000"; output;

run;

*** VERIFY関数を使う ;
data DT2;
set DT1;
V2 = verify( V1, "ABC" );
run;

V1	V2
000A	1
00AB	1
ABCD	4
A000	2

ここではV1に、「A」「B」「C」の文字を含まない最初の位置を返しています。
検索文字は「ABC」という文字を検索するのではなく、「A」「B」「C」と1バイトずつ検索していることに注意しましょう。

実践例

では、実際にVERIFYがよく使われるシチュエーション。
サンプルデータに対して、先頭の0を取った値が欲しいとします。

V1	V2
000A	A
00AB	AB
ABCD	ABCD
A000	A000

これを実現するには、正規表現を使うか、VERIFY関数がスマートなプログラムになるかなと思います。

data DT3;
set DT1;

length V2 V3 $10.;

* 正規表現を使う例 ;
V2 = prxchange("s/0*(.*)/$1/", 1, V1);

* VERIFY関数を使う例 ;
_VER = verify(V1, "0");
if _VER >=1 then V3 = substr(V1, _VER);
run;

簡単な説明となりますが、

正規表現の例では、PRXCHANGEという正規表現を使って置換処理をする関数で、先頭の0を抜いた文字に置き換えてます。

VERIFYを使う例では、まず0以外の文字が最初に出現する位置を取得して、SUBSTR関数でその位置からの文字を抜き出しています。

KVERIVY関数

こちらは日本語などのマルチバイト文字に対応しています。

KVERIFY( 変数, "検索文字" )

変数に対して、検索文字を含まない最初の位置（何文字目か）を取得する。
VERIFY関数が「何バイト目か」を取得するのに対し、KVERIFY関数は「何文字目か」を取得する事に注意。

例

*** サンプルデータ ;
data DT3;
length V1 $20.;
V1 = "あいうえお"; output;
V1 = "あおいえい"; output;
run;

*** KVERIFY関数を使う ;
data DT4;
set DT3;
V2 = kverify( V1, "あお" );
run;

V1	V2
あいうえお	2
あおいえい	3

V1に、「あ」「お」の文字を含まない最初の位置を返しています。
検索文字は「あお」という文字を検索するのではなく、「あ」「お」と1文字ずつ検索していることに注意しましょう。

わたし自身、VERIFY関数の面白い使い方をまだ探し中なので、こんな使い方できるよっていうのがあれば、教えてほしいです。