topic Re: Extracting a subset of data from text file in SAS Programming

Extracting a subset of data from text file

ngottala — Mon, 20 Dec 2021 10:59:52 GMT

Dear All,

I need to extract a sub set of data from the text file. Here i have attached the input text file .

I have given the output below. when ever i pass the parameter SGT or any other it should extract the data from text file.

output:

*SGT
0.005 0.0 0.
0.040 0.005 0.
0.080 0.013 0.
0.120 0.026 0.
0.160 0.040 0.
0.200 0.058 0.
0.240 0.078 0.
0.280 0.100 0.
0.320 0.126 0.
0.360 0.156 0.
0.400 0.187 0.
0.440 0.222 0.
0.480 0.260 0.
0.520 0.300 0.
0.560 0.348 0.
0.600 0.400 0.
0.640 0.450 0.
0.680 0.505 0.
0.720 0.562 0.
0.760 0.620 0.
0.800 0.680 0.
0.840 0.740 0.

Re: Extracting a subset of data from text file

yabwon — Mon, 20 Dec 2021 12:40:13 GMT

Do you mean something like this?:

data want;
  infile cards4 missover;
  input;

  if _INFILE_ =: '*SGT' then
    do until(a=.);
      input;
      a = input(scan(_INFILE_,1," "), ?? best32.);
      b = input(scan(_INFILE_,2," "), ?? best32.);
      if a>. then output;
    end;

cards4;
 **---------------------------- ROCK FLUID -------------------------------
*ROCKFLUID
*RPT
*SGT
      0.005     0.0      0.
      0.040     0.005    0.
      0.080     0.013    0.
      0.120     0.026    0.
      0.160     0.040    0.
      0.200     0.058    0.
      0.240     0.078    0.
      0.280     0.100    0.
      0.320     0.126    0.
      0.360     0.156    0.
      0.400     0.187    0.
      0.440     0.222    0.
      0.480     0.260    0.
      0.520     0.300    0.
      0.560     0.348    0.
      0.600     0.400    0.
      0.640     0.450    0.
      0.680     0.505    0.
      0.720     0.562    0.
      0.760     0.620    0.
      0.800     0.680    0.
      0.840     0.740    0.
*SWT
      0.160     0.0      0.
      0.200     0.002    0.
      0.240     0.010    0.
      0.280     0.020    0.
      0.320     0.033    0.
      0.360     0.049    0.
      0.400     0.066    0.
      0.440     0.090    0.
      0.480     0.119    0.
      0.520     0.150    0.
      0.560     0.186    0.
      0.600     0.227    0.
      0.640     0.277    0.
      0.680     0.330    0.
      0.720     0.390    0.
      0.760     0.462    0.
      0.800     0.540    0.
      0.840     0.620    0.
      0.880     0.710    0.
      0.920     0.800    0.
      0.960     0.900    0.
      0.995     1.0      0.
**-------------------------------- INITIAL CONDITION --------
*INITIAL
*VERTICAL *DEPTH_AVE *WATER_GAS
*REFPRES  3550.0
;;;;
run;

Bart

Re: Extracting a subset of data from text file

Ksharp — Mon, 20 Dec 2021 14:05:13 GMT

%let key=  *SGT ;

data want;
  infile 'c:\temp\k1r1.txt' termstr=lf length=len;
  input want $varying400. len;
  retain found .;
  if want =: "&key." then found=1;
  if first(want)='*' and  want ne: "&key." then found=0;
  if found;
run;

Re: Extracting a subset of data from text file

ngottala — Mon, 20 Dec 2021 16:45:40 GMT

Thank you. Yes, this is the output i needed

Re: Extracting a subset of data from text file

ngottala — Mon, 20 Dec 2021 16:46:45 GMT

Thank you for your solution. Yes, that's the output i needed