現(xiàn)在用一個小例子再介紹這個函數(shù)

data paren;

if _n_=1 then pattern=prxparse("/(\d )|(\d\d )|(\d\d\d )/");

retain pattern;

input string $char30.;

position=prxmatch(pattern,string);

if position gt 0 then which_paren=prxparen(pattern);

datalines;

one single digit 8 here

two 888 77

12345 1234 123 12 1

;

run;

結(jié)果：

如圖所示，position是函數(shù)prxmatch的返回結(jié)果，即字符的位置，which_paren是prxparen的返回結(jié)果，即對應(yīng)的是字符搜索的哪一部分。if position gt 0 then which_paren=prxparen(pattern); 這里的if是為了確認(rèn)是prxmatch搜索到位置的時(shí)候才判斷字符是屬于pattern的哪一部分。

現(xiàn)在用一個實(shí)際數(shù)據(jù)處理中的例子再深化這個函數(shù)。

這是一份領(lǐng)導(dǎo)給我的數(shù)據(jù)，可以看到數(shù)據(jù)上中文字符之后還有一些亂七八糟的英文啊符號啊數(shù)字啊，當(dāng)時(shí)領(lǐng)導(dǎo)的需求是，把這份數(shù)據(jù)清洗出來變成只用字符的變量以及不要用類似“黃山分行”這種字眼的存在。所以當(dāng)下就寫了以下這段代碼解決的這個需求。來，上代碼！

data ss;

set dd;

if _n_=1 then

ret=prxparse("/(\D?\銀行)|(\D?\金融)|(\D?\貸款)|(\D?\融資)|(\D?\保險(xiǎn))|(\D?\擔(dān)保)|(\D?\信用[社合聯(lián)])/");

retain ret;

position=prxmatch(ret,QUERY_OPERATOR);

if position gt 0 then which_posit=prxparen(ret);

else which_posit=0;

if which_posit gt 0 then do;

call prxsubstr(ret,QUERY_OPERATOR,start,length);

if start gt 0 and which_posit=1 then do;

dd=substr(QUERY_OPERATOR,1,start)||"銀行";

end;

if start gt 0 and which_posit=2 then do;

dd=substr(QUERY_OPERATOR,1,start)||"金融公司";

end;

if start gt 0 and which_posit=3 then do;

dd=substr(QUERY_OPERATOR,1,start)||"貸款公司";

end;

if start gt 0 and which_posit=4 then do;

dd=substr(QUERY_OPERATOR,1,start)||"融資有限公司";

end;

if start gt 0 and which_posit=5 then do;

dd=substr(QUERY_OPERATOR,1,start)||"保險(xiǎn)有限公司";

end;

if start gt 0 and which_posit=6 then do;

dd=substr(QUERY_OPERATOR,1,start)||"擔(dān)保公司";

end;

if start gt 0 and which_posit=7 then do;

dd=substr(QUERY_OPERATOR,1,start)||"農(nóng)村信用合作社";

end;

end;

else dd='其他';

drop start length which_posit position ret;

run;

結(jié)果：

現(xiàn)在單獨(dú)取一個if語句的下的執(zhí)行語句介紹一下：

call prxsubstr(ret,QUERY_OPERATOR,start,length);

if start gt 0 and which_posit=1 then do;

dd=substr(QUERY_OPERATOR,1,start)||"銀行";

end;

call prxsubstr 在之前的文章中已經(jīng)介紹過了，所以如果忘了，再翻一下。然后if start gt 0 and which_posit=1 then do ；這個語句中的which_posit=1 即就是搜索到“銀行”兩個字就是認(rèn)定這個機(jī)構(gòu)就是銀行卡，然后就截取“銀行”前面的那一串字，然后再接上“銀行”兩個字。這里你會問，問什么長度為什么用的是“start”這個變量，因?yàn)槲覀兯阉鞯氖恰便y行”兩個字，所以返回的位置是銀行的位置，但是我們需要的是“銀行”前面的那一串字符，所以就使用start作為長度。數(shù)據(jù)分析師培訓(xùn)