In my "D:\work\" folder, I have two types of files, that are "8-digit-number_type.dbf" and "character_type.dbf" as follows: 00093282.dbf, 00345602.dbf, 69209340.dbf, 69806980.dbf, 92406482.dbf, 99999999.dbf,... aaa.dbf, bbb.dbf, ...
I want to take only the "8-digit-number_type.dbf" files, and exclude the character type files. (I don't care about the character type files.) Then, I want to create a text file (say, namelist.txt) that contains the list of names of the dbf files as follows:
00093282
00345602
69209340
69806980
99999999
....
How can I do that in SAS?
Thanks.
hi ... same idea, use a pipe but with DIR/B...
filename x pipe 'dir/b "z:\*.dbf" ' ;
filename y 'z:\namelist.txt';
data _null_;
infile x dlm='.';
file y;
input name : $20.;
if ^verify(trim(name),'0123456789') then put name;
run;
Start with this:
filename toto PIPE "DIR ""D:\work\*.dbf"" " console=min;
data _null_;
length name $200;
infile toto firstobs=6 truncover;
input a$ b$ c$ file $char200.;
file "D:\work\namelist.txt";
name = trim(tranwrd(upcase(file),".DBF",""));
if anyalpha(name) = 0 then put name;
run;
PG
I run it, and the namelist.txt looks like the following:
35,548 00093282
17,539 00095480
12,406 00095520
38,854 00095602
10,927 00098880
18,670 00099999
29,819 00340240
12,952 00340560
569,260 00345602
198,085 00346162
3,458 00347560
25,072 00349999
18,670 00400040
3,010 00409999
65,737 00801692
...
Some numbers that I don't want in the first column. But I can remove the first column later.
Thank you so much.
Take Mike's code, it's much better, mine was just an approximation. - PG
hi ... same idea, use a pipe but with DIR/B...
filename x pipe 'dir/b "z:\*.dbf" ' ;
filename y 'z:\namelist.txt';
data _null_;
infile x dlm='.';
file y;
input name : $20.;
if ^verify(trim(name),'0123456789') then put name;
run;
This code produces the list that I want. Thank you so much.
If you only want 8 digit file name ,I prefer to Perl Regular Expression.
if prxmatch('/\d{8}/',name) then put name;
Ksharp
Don't miss out on SAS Innovate - Register now for the FREE Livestream!
Can't make it to Vegas? No problem! Watch our general sessions LIVE or on-demand starting April 17th. Hear from SAS execs, best-selling author Adam Grant, Hot Ones host Sean Evans, top tech journalist Kara Swisher, AI expert Cassie Kozyrkov, and the mind-blowing dance crew iLuminate! Plus, get access to over 20 breakout sessions.
Learn how use the CAT functions in SAS to join values from multiple variables into a single value.
Find more tutorials on the SAS Users YouTube channel.