am sharing the sample code However its not the actual code which i was using as was not saved . data want; infile 'C:\Desktop\test\test5.txt' truncover end=eof; input line $200.; length type_flag $5 file_name $100 S_number Sub_number occ $4 imp imp_start imp_end aaa_abli_limit_one aaa_abli_limit_two aaa_joyl _limit_one aaa_joyl _limit_two /*aaa_toto _limit_one*/ /*aaa_toto_limit_two*/ /*aaa_pipi_limit_one*/ /*aaa_pipi_limit_two*/ /*aaa_rkrk_limit_one*/ /*aaa_rkrk _limit_two*/ /**/ /*bbb_abli_limit_one*/ /*bbb_abli_limit_two*/ /*bbb_joyl _limit_one*/ /*bbb_joyl _limit_two*/ /*bbb_toto _limit_one*/ /*bbb_toto_limit_two*/ /*bbb_pipi_limit_one*/ /*bbb_pipi_limit_two*/ /*bbb_rkrk_limit_one*/ /*bbb_rkrk _limit_two*/ /**/ /*ccc_abli_limit_one*/ /*ccc_abli_limit_two*/ /*ccc_joyl _limit_one*/ /*ccc_joyl _limit_two*/ /*ccc_toto _limit_one*/ /*ccc_toto_limit_two*/ /*ccc_pipi_limit_one*/ /*ccc_pipi_limit_two*/ /*ccc_rkrk_limit_one*/ /*ccc_rkrk _limit_two*/ /**/ /*ddd_abli_limit_one*/ /*ddd_abli_limit_two*/ /*ddd_joyl _limit_one*/ /*ddd_joyl _limit_two*/ /*ddd_toto _limit_one*/ /*ddd_toto_limit_two*/ /*ddd_pipi_limit_one*/ /*ddd_pipi_limit_two*/ /*ddd_rkrk_limit_one*/ /*ddd_rkrk _limit_two*/ 8. ; format imp_start datetime19.; format imp_end datetime19.; retain type_flag file_name S_number Sub_number occ imp imp_start imp_end aaa_abli_limit_one aaa_abli_limit_two aaa_joyl_limit_one aaa_joyl_limit_two aaa_toto _limit_one aaa_toto_limit_two aaa_pipi_limit_one aaa_pipi_limit_two aaa_rkrk_limit_one aaa_rkrk _limit_two /**/ /*bbb_abli_limit_one*/ /*bbb_abli_limit_two*/ /*bbb_joyl _limit_one*/ /*bbb_joyl _limit_two*/ /*bbb_toto _limit_one*/ /*bbb_toto_limit_two*/ /*bbb_pipi_limit_one*/ /*bbb_pipi_limit_two*/ /*bbb_rkrk_limit_one*/ /*bbb_rkrk _limit_two*/ /**/ /*ccc_abli_limit_one*/ /*ccc_abli_limit_two*/ /*ccc_joyl _limit_one*/ /*ccc_joyl _limit_two*/ /*ccc_toto _limit_one*/ /*ccc_toto_limit_two*/ /*ccc_pipi_limit_one*/ /*ccc_pipi_limit_two*/ /*ccc_rkrk_limit_one*/ /*ccc_rkrk _limit_two*/ /**/ /*ddd_abli_limit_one*/ /*ddd_abli_limit_two*/ /*ddd_joyl _limit_one*/ /*ddd_joyl _limit_two*/ /*ddd_toto _limit_one*/ /*ddd_toto_limit_two*/ /*ddd_pipi_limit_one*/ /*ddd_pipi_limit_two*/ /*ddd_rkrk_limit_one*/ /*ddd_rkrk _limit_two*/ 8. ; if index(line,"File name") = 1 then do; if file_name > ' ' then do; output; S_number = ' '; end; file_name = strip(scan(line,2,':')); end; select (substr(line,1,5)); when ('abli') do; line = scan(line,3,':'); select (type_flag); when ('delta') do; aaa_abli_limit_one = input(scan(line,3,'09'x),5.); aaa_abli_limit_one= input(scan(line,4,'09'x),5.); end; when ('joyl') do; aaa_joyl_limit_one = input(scan(line,3,'09'x),5.); aaa_joyl_limit_two = input(scan(line,4,'09'x),5.); when ('toto_') do; aaa_toto_limit_one = input(scan(line,3,'09'x),5.); aaa_toto_limit_two = input(scan(line,4,'09'x),5.); when ('pipi') do; aaa_pipi_limit_one = input(scan(line,3,'09'x),5.); aaa_pipi_limit_two = input(scan(line,4,'09'x),5.); when ('rkrk') do; aaa_rkrk_limit_one = input(scan(line,3,'09'x),5.); aaa_rkrk_limit_two = input(scan(line,4,'09'x),5.); end; /* /same for other BBB,CCC,DDD/*/ otherwise; end; end; otherwise do; if index(line,'S_number ') = 1 then do; if Study_nr = ' ' then S_number = strip(scan(line,2,':')); if index(line,'Subject number') = 1 then Sub_number= strip(scan(line,5,':')); end; if index(line,'play [(uV)^2]') = 1 then type_flag = strip(scan(line,2,':')); if index(line,'Date and time created') = 1 then do; line = strip(substr(line,indexc(line,':')+1)); substr(line,10,1) = ':'; imp_start = input(line,datetime19.); substr(line,11,1) = ':'; imp_start = input(line,datetime19.); substr(line,19,1) = ':'; imp = input(line,datetime19.); end; if index(line,'Occasion') = 1 then Occasion = strip(scan(line,2,':')); end; end; if eof then output; run;
... View more