求*.xpt类型文件的使用方法，恳请版主老师指点

相似文件 换一批

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

请各位高手指点*.xpt类型文件的使用方法，是在http://www.cpc.unc.edu/网站上下载的。根据网站的说明是SAS XPORT类型，但是SAS似乎不支持。附件中有数据的样本。

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏3 回帖

关键词：xport Port HTTP 高手指点 UNC 网站 样本

楼主试试在libname语句中加上xport， 并指向xpt文件。

libname aaa  xport   "C:\files\test.xpt";

*** Create XPT file;
data aaa.test;
     set sashelp.class;
run;

*** Convert XPT File to SAS dataset;
data class;
     set aaa.test;
run;

还有一种XPT文件是由PROC CPORT 产生，这时就需要先用filename指向该文件，然后用PROC CIMPORT将xpt文件转为SAS数据集。

filename temp1 "C:\files\temp.xpt";

*** Create XPT file;
proc cport data=sashelp.class file=temp1;
run;

*** Convert back;
proc cimport infile=temp1 data=class1;
run;

非常感谢你的指点，不过我按照你的语句执行好像并不行呢。能不能麻烦你下载附件帮我看看呢？

试一下这个，我这里能转成数据集：

libname aaa xport "C:\files\c00pe.1004.xpt";

*** Convert XPT File to SAS dataset;
data wanted;
     set aaa.c00pe;
run;

非常感谢，按照你的方法我终于看见数据了。不过我这里XPT文件非常的多，不知道有没有办法可以实现批转换呢？请指教

516469702 发表于 2010-9-14 21:36
非常感谢，按照你的方法我终于看见数据了。不过我这里XPT文件非常的多，不知道有没有办法可以实现批转换呢？请指教

可以用宏

stat transfer software

如果你是准备用stata打开的话，那么你可以下载一个stata transfer，然后在input file里面选择SAS Transport，然后output file 里面选择Stata/se格式，就可以了。如果你用的是其他软件，那么input file的选择不变，outfile格式选择你自己需要的就是了。

http://support.sas.com/kb/33/918.html
附上链接，可以批量XPT导入SAS，但是同名的不行，即使改了名字。

1. /* The code below creates a transport file in the temp folder for use by the macro */
   
2. 
   
3.   libname testlib xport 'c:\temp\trans.xpt';
   
4.     proc copy in=sashelp out=testlib;
   
5.     select retail;
   
6.   run;
   
7. 
   
8. /* Note:  Macro starts here */
   
9. 
   
10. /* Macro using PROC COPY and the XPORT engine for reading transport files*/
    
11. %macro drive(dir,ext,out);                                                                                                                  
    
12.                                                                                                                                        
    
13.   %let filrf=mydir;                                                                                                                     
    
14.                                                                                                                                        
    
15.   /* Assigns the fileref of mydir to the directory and opens the directory */                                                                    
    
16.   %let rc=%sysfunc(filename(filrf,&dir));                                                                                                
    
17.   %let did=%sysfunc(dopen(&filrf));                                                                                                      
    
18.                                                                                                                                        
    
19.   /* Returns the number of members in the directory */                                                                  
    
20.   %let memcnt=%sysfunc(dnum(&did));                                                                                                      
    
21.                                                                                                                                        
    
22.    /* Loops through entire directory */                                                                                                  
    
23.    %do i = 1 %to &memcnt;                                                                                                               
    
24.    
    
25.      /* Returns the extension from each file */                                                                                                                                    
    
26.      %let name=%qscan(%qsysfunc(dread(&did,&i)),-1,.);                                                                                   
    
27.                                                                                                                                        
    
28.      /* Checks to see if file contains an extension */                                                                                    
    
29.      %if %qupcase(%qsysfunc(dread(&did,&i))) ne %qupcase(&ext) %then %do;                                                                  
    
30.                                                                                                                                        
    
31.      /* Checks to see if the extension matches the parameter value */                                                                     
    
32.      /* If condition is true, submit PROC COPY statement  */                                                                     
    
33.      %if (%superq(ext) ne and %qupcase(&name) = %qupcase(&ext)) or                                                                       
    
34.          (%superq(ext) = and %superq(name) ne) %then %do;   
    
35.                                                                         
    
36.                  libname old xport "&dir.\%qsysfunc(dread(&did,&i))";
    
37.                 libname new "&out";
    
38.                 proc copy in=old out=new;
    
39.                 run;
    
40.      %end;                                                                                                                              
    
41.    %end;
    
42.   %end;
    
43.                                                                                                                                        
    
44.   /* Close the directory */                                                                                                            
    
45.   %let rc=%sysfunc(dclose(&did));                                                                                                        
    
46. /* END MACRO */                                                                                                                                          
    
47. %mend drive;   
    
48. 
    
49. /* Macro call */
    
50. 
    
51. /*First parameter is the source folder, the second parameter is extension being */
    
52. /*searched for, and the third parameter is the target directory for the         */
    
53. /*converted files.                                                              */
    
54. 
    
55.   %drive(c:\temp,xpt,c:\temp\)

复制代码