[程序分享] http in sas [推广有奖]

0关注
123
粉丝

已卖：4460份资源

教授

还不是VIP/贵宾

TA的文库 其他...

SAS Technology

威望: 0 级
论坛币: 31987 个
通用积分: 6.2141
学术水平: 283 点
热心指数: 262 点
信用等级: 257 点
经验: 56058 点
帖子: 396
精华: 4
在线时间: 1328 小时
注册时间: 2010-10-12
最后登录: 2018-3-9

楼主

zhou.wen 发表于 2013-9-13 17:39:55 |AI写论文

是否 +2 论坛币

k人参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

/*1.建立目录 C:\temp*/
/*2.运行下面代码*/
%macro sas_getMap;
data _null_;
length url $ 2048;
url = catt(
'http://maps.googleapis.com/maps/api/staticmap?markers=', urlencode(&address),
'&zoom=15',
'&size=', &height, 'x', &width,
'&sensor=false');
url = transtrn(trim(url), ' ', '%20');
call symputx('REQUEST_URL', url);
run;
filename img_fref &img_filename;
filename hdr_out "c:\temp\header.txt";
proc http
out = img_fref
url = "%superq(REQUEST_URL)"
headerout = hdr_out
method = "GET"
ct="application/x-www-form-urlencoded"
;
run;
data _null_;
infile hdr_out;
input;
if prxmatch('/^HTTP\/\S+\s+\d+/', _infile_);
status = scan(_infile_, 2, ' ');
if status = '200' then
call symputx('STATUS', 0);
else
call symputx('STATUS', status);
stop;
run;
%mend;

proc fcmp outlib=sasuser.funcs.web;
function sas_getMap(address $, height, width, img_filename $);
length status 8;
rc = run_macro('sas_getMap', address, height, width, img_filename, status);
return (status);
endsub;
quit;

data addresses;
length name $ 32 address $ 50;
infile datalines truncover;
input name address $128.;
datalines;
SCUT south china university of technology
;
run;
options cmplib=sasuser.funcs;
data _null_;
set addresses;
/* <Imagine report generation code here> */
rc = sas_getMap(address, 800, 600, catt('c:\temp\', name, '.png'));
if rc then
putlog 'ERROR: Could not get map for ' name;
run;